Conversion csv to xlsx ?

Bonsoir à tous,

Je cherche à convertir un fichier.csv au format .xlsx via Macro => en vain

Bien que le fichier soit au format .csv, il demeure formaté comme un fichier Excell classique (tableur sans séparateur de ";")

Lorsque j'utilise le code ci-dessous, le fichier est bien converti en ".xlsx" , mais il prend le format d'un fichier .csv avec séparateur cette fois-ci

Lorsque je réalise l'opération à la main, pas de soucis : Ouvrir => Enregistrer sous => au format .xlsx = OK

Avez-vous une idée ?

Sub conversion_csv_to_xlsx_fichier()

Dim Chemin As String

  Chemin = ThisWorkbook.Path & "\"

' ouverture du fichier
  Workbooks.Open Filename:=Chemin & Dir(Chemin & "Mon_Fichier*.csv")

' Sauvegarde du fichier

ActiveWorkbook.SaveAs Filename:="Mon_Fichier", FileFormat:=xlOpenXMLWorkbook

ActiveWindow.Close

End Sub

Ludoforward a écrit :

Avez-vous une idée ?

Bonjour,

Peut-être avec extension :

ActiveWorkbook.SaveAs Filename:="Mon_Fichier" & ".xlsx", FileFormat:=xlOpenXMLWorkbook

ou alors comme il y a une macro d'importation :

ActiveWorkbook.SaveAs Filename:="Mon_Fichier" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

Bonjour Steelson,

Hélas çà ne fonctionne pas..

Je sèche.

Merci pour ton aide.

Ps: C'est pas une heure pour me répondre çà !!!

Envoie un bout de fichier csv (édite en texte pour le réduire et enlever les termes confidentiels)

Ci-joint le fichier.

Encore merci pour ton aide.

Bonne continuation.

Essaie avec ceci :

Bonjour Steelson,

SUPER !

Merci beaucoup, je ne m'attendais pas à ce que se soit aussi compliqué....

Encore merci !