Convertir plusieurs fichiers csv. en xls

Bonjour,

Mon dossier comporte plusieurs fichiers csv. (>50). Je dois les convertir en xls. . Eviter de faire la convertion une par une me ferait un gain de temps non-négligeable.

Existerait-il une macro pour convertir ces fichiers en 1 seule clic ?

Merci de vos retours,

Bonjour Studymax, bonjour le forum,

Essaie comme ça (chemin à adapter) :

Sub Macro1()
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim F As String 'déclare la variable F (Fichier)
Dim N As String 'déclare la variable N (Nom)

CH = "C\blabla\blabla\blabla\" 'définit le chemin d'accès CH (à adapter à ton cas)
F = Dir(CH & "*.csv") 'définit le premier fichier .csv du dossier ayant CH comme chemin d'accès
Do While F <> "" 'boucle tant qu'il existe des fichiers .csv
    N = Replace(F, ".csv", "") 'définit le nom N (le nom du fichier sans l'extension)
    Workbooks.Open CH & F 'ouvre le fichier F
    ActiveWorkbook.SaveAs CH & N, FileFormat:=51 'enregistre le fichier au format Excel
    ActiveWorkbook.Close 'ferme le fichier
    F = Dir 'définit le prochain fichier .csv
Loop 'boucle
End Sub

Ohhh yes !

J'essaye ça dans l'après midi puis te tient informé.

Merci ThauThème !

Après avoir affecter la macro à un bouton de déclenchement et renseigner le chemin d'accès, rien ne se passe

Rechercher des sujets similaires à "convertir fichiers csv xls"