Convertir un fichier *.csv en *.xls

[L_S]

Bonjour,

Je cherche une macro qui me permettrais de modifier l'extension du fichier sur lequel je travaille.

Je travaille sur un fichier *.csv et je cherche à le transformer en *.xls. tout en conservant l'intitulé du fichier (Ex: (SoldesHiver).csv et passer en (SoldesHiver).xls ou en (SoldeHiver.csv).xls peut importe)

Voici mon ébauche de macro:

Sub Macro1()

Sheets("Feuille1").Activate
ActiveWorkbook.Path & "\" & "Nom du fichier" & ".xls"

End Sub

Merci d'avance

 

[JNP]

Re : Convertir un fichier *.csv en *.xls

Bonjour le fil 🙂,
En prenant la question d'une manière très litérale :

Sub test()
Dim Chemin As String
Chemin = "C:\temp\Test.csv"
Name Chemin As Left(Chemin, Len(Chemin) - 3) & "xls"
End Sub

à adapter pour Chemin 😉.
Bon WE 😎

 

[Staple1600]

Re : Convertir un fichier *.csv en *.xls

Re JNP

Bien vu 😉

J'oublie souvent Name (qui fait des choses que son nom n'indique pas 😉 )

[EDITION]
De passage en mode édition, pour rendre le salut à Softmama, puisque nous ne pouvions nous croiser chacun étant dans son propre passage 😉
[/EDITION]

 

[Softmama]

Re : Convertir un fichier *.csv en *.xls

Bonjour à tous,

En poursuivant ce que t'ont répondu JNP et Staple1600 que je salue au passage, tu peux te passer de noter dans le code le chemin :

Sub test()
Dim Chemin As String
Chemin = Activeworkbook.fullName
Name Chemin As Left(Chemin, Len(Chemin) - 3) & "xls"
End Sub