Convertir des fichier csv en xls avec un macro

[DJE]

Bonjour,

Je souhaite convertir des fichiers .csv en fichier .xls avec une macro. J'ai créé une macro pour le faire. Seulement, les données de ces fichiers (créés par la macro) sont séparé par des points virgules, alors que quand je fais la manip à la main, le fichier est OK.
Voici la macro que j'ai crée :
Sub conversion_csv()
'
' Macro6 Macro
' Macro enregistrée le 14/04/2008 par DJE
'

'
'declaration de la variable

Dim nmois As String
nmois = InputBox(prompt:="Entrer le numéro du mois")

Dim equipe As String
equipe = InputBox(prompt:="Entrer le nom de votre équipe en MAJUSCULE")

'ouverture des csv
Workbooks.Open Filename:= _
"\\srvcrdaprj\Projets\CRD COMMUN PRJ\tableaux de bord téléconseillers\hyperion stats appels\" & equipe & "\ALL-AGT-M-SUA-" & nmois & ".csv" _
, UpdateLinks:=0

Workbooks.Open Filename:= _
"\\srvcrdaprj\Projets\CRD COMMUN PRJ\tableaux de bord téléconseillers\hyperion stats appels\" & equipe & "\ALL-AGT-M-TMTAE-" & nmois & ".csv" _
, UpdateLinks:=0

Workbooks.Open Filename:= _
"\\srvcrdaprj\Projets\CRD COMMUN PRJ\tableaux de bord téléconseillers\hyperion stats appels\" & equipe & "\ALL-AGT-M-TPDMR-" & nmois & ".csv" _
, UpdateLinks:=0

Workbooks.Open Filename:= _
"\\srvcrdaprj\Projets\CRD COMMUN PRJ\tableaux de bord téléconseillers\hyperion stats appels\" & equipe & "\ALL-AGT-M-TPDMT-" & nmois & ".csv" _
, UpdateLinks:=0


Windows("ALL-AGT-M-TMTAE-" & nmois & ".csv").Activate
ActiveWorkbook.SaveAs Filename:= _
"\\srvcrdaprj\Projets\CRD COMMUN PRJ\tableaux de bord téléconseillers\hyperion stats appels\" & equipe & "\ALL-AGT-M-TMTAE-" & nmois & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("ALL-AGT-M-TPDMR-" & nmois & ".csv").Activate
ActiveWorkbook.SaveAs Filename:= _
"\\srvcrdaprj\Projets\CRD COMMUN PRJ\tableaux de bord téléconseillers\hyperion stats appels\" & equipe & "\ALL-AGT-M-TPDMR-" & nmois & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("ALL-AGT-M-TPDMT-" & nmois & ".csv").Activate
ActiveWorkbook.SaveAs Filename:= _
"\\srvcrdaprj\Projets\CRD COMMUN PRJ\tableaux de bord téléconseillers\hyperion stats appels\" & equipe & "\ALL-AGT-M-TPDMT-" & nmois & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("ALL-AGT-M-SUA-" & nmois & ".csv").Activate
ActiveWorkbook.SaveAs Filename:= _
"\\srvcrdaprj\Projets\CRD COMMUN PRJ\tableaux de bord téléconseillers\hyperion stats appels\" & equipe & "\ALL-AGT-M-SUA-" & nmois & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False


End Sub

Pouvez-vous m'aider ?

 

[MJ13]

Re : Convertir des fichier csv en xls avec un macro

Bonjour

Regardes dans ce post

https://www.excel-downloads.com/threads/ouvrir-un-fichier-csv-via-une-macro-une-solution.85859/

 

[DJE]

Re : Convertir des fichier csv en xls avec un macro

Merci beaucoup

 

[Staple1600]

Re : Convertir des fichier csv en xls avec un macro

Bonjour à tous


un autre lien du forum avec des exemples de codes VBA.

Export CSV

 

[Algerian_Statistician]

Re : Convertir des fichier csv en xls avec un macro

1-telecharger le fichier sauve.xls
2-copier ce fichier dans votre base de donné
3-ouvre ce fichier
4-clic sur la fleche
.....Regarde la pièce jointe SauveCSV.xls

 

[Marc L]

Effacé car redondant avec le lien paramètre Local:=True …

Qui plus est discussion datant de plusieurs années ‼
​