Convertir fichiers TXT en xlsx avec mise en forme

PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -  
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Dans un répertoire , j'ai des fichiers txt que je dois ouvrir et transformer en xlsx + Mise en forme.

Aujourd’hui, j'ouvre fichier après fichier avec l'assistant d'importation.

Assistant d’importation Etape 1 sur 3
o Cocher Délimité
o Suivant >

 Assistant d’importation Etape 2 sur 3
o Cocher Autre
o Indiquer * (étoile)
o Terminer

Est' il possible de réaliser cette opération pour tous les fichiers présents dans un répertoire ?

Lorsque chaque fichier est ouvert, et mis en forme par une1ère macro, je souhaite la 2ème ligne en colonne F sur la colonne G en 1ère ligne.

Avant

https://www.cjoint.com/c/KJfnCFVAxSW

et après (modification souhaitée)

https://www.cjoint.com/c/KJfnDERQYjW

Merci d'avance,

Configuration: Windows / Firefox 78.0
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Comme ceci pour la 2ème macro: 

Option Explicit
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("01-09-21")
    NoCol = 6 'lecture de la colonne F
    For NoLig = Split(FL1.UsedRange.Address, "$")(4) To 2 Step -2
        Var = FL1.Cells(NoLig, NoCol)
       FL1.Cells(NoLig - 1, NoCol + 1) = Var
      Rows(NoLig & ":" & NoLig).Delete Shift:=xlUp
    Next
    Set FL1 = Nothing
End Sub


pour la 1ère macro sert toi de l'enregistreur de macro. Ensuite tu fait une boucle sur tes fichiers avec tes 2 macros


1
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
Bonjour cs_Le Pivert,

Un grand Merci !
0

Discussions similaires

Comment passer de .wfp a mp4
Lucasribou -
madmyke -

1 réponse