Bizarrerie du CSV

[GENTILE]

Bonjour,

Je vous expose mon problème, je dois récupérer des données dans un .CSV, quand je double clic dessus tout se met en place nickel comme je le souhaite, j'ai juste à faire un copier limite, mais quand je l'ouvre via macro, la disposition est complètement anarchique avec les ; des données dans des colonnes improbables.

si-après la commande :

Sub Explorateur_fichier_3()

'Définition du fichier
Dim DATA_à_Dep

'Ouverture de la boite de dialogue
With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count = 1 Then DATA_à_Dep = .SelectedItems(1)

'Affichage du fichier à dépouiller
Workbooks.Open DATA_à_Dep

End With
End Sub

Existe t'il une variante de la commande Workbooks.Open qui ouvre mon CSV comme lors d'un double clique.

Merci par avance pour votre aide.

 

[job75]

Bonjour GENTILE,

Il n'y a rien de bizarre, c'est très classique.

Pour ouvrir le fichier CSV, au lieu de :

Workbooks.Open DATA_à_Dep

utilisez :

Workbooks.OpenText DATA_à_Dep, Local:=True

A+

 

[GENTILE]

Bonjour Job75,

Merci pour ta réponse, j'ai testé avec

Workbooks.OpenXML DATA_à_Dep

Et sa fonctionne parfaitement mais je prends note aussi de solution pour plus tard.

Merci pour ton aide et le retour rapide.