Convertir fichiers TXT en xlsx avec mise en forme Fermé

Question

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

cs_Le Pivert · Answer

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

Convertir fichiers TXT en xlsx avec mise en forme

1 réponse

Discussions similaires

Newsletters