Bonjour,
Lorsque je lance ma macro, voici ce qu'elle fait :
- J'ouvre un fichier CSV qui comporte une seule feuille du même nom que le CSV
- Je copie cette feuille dans mon classeur qui contient la macro
- Je ferme le fichier CSV
Mon souci, c'est que tout le CSV se copie sur une seule colonne (pas de prise en compte du délimiteur ";").
Pourtant, lorsque j'ouvre mon CSV seul, toutes les colonnes sont bien en place.
Je n'arrive pas à spécifier lors du collage de la feuille, que c'est un CSV avec un délimiteur ";".
Pourriez-vous m'aider SVP ?
Dim b As Variant
For Each b In Array("crayon","ficelle")
ce_classeur = ThisWorkbook.Name
' Copie la feuille dans le le classeur
Workbooks.Open Filename:=ThisWorkbook.Path & "\TRUC\" & b & ".csv" ', DataType:=xlDelimited, Semicolon:=True
Workbooks(b & ".csv").Activate
Sheets(b).Copy After:=Workbooks(ce_classeur).Sheets(6)
Workbooks(b & ".csv").Activate
ActiveWorkbook.Close True
Next b
Tout fonctionne lorsque je supprime ce que j'ai mis ici en commentaire 'DataType:=xlDelimited, Semicolon:=True
Mais lorsque je mets DataType et semicolon, j'ai le message "Erreur de compilation : Argument nommé introuvable"
Merci.