Discussion :

[Pierre67]

bonjou au forum

à l'aide de la commande suivante je peux choisr le fichier csv à ouvrir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set fichouvrir = Application.Workbooks.Open(Application.GetOpenFilename("Import fichiers MCT (*.csv),*.csv"))

mais comment lui préciser de mettre les données dans des colonnes séparées ?
bien à vous

[Daniel.C]

Bonjour,

Utilise le paramètre "Delimiter" de la méthode "Open" suivant le séparateur utilisé.

[Pierre67]

merci Daniel pour le tuyau mais je ne vois pas comment faire

[Daniel.C]

En supposant que ton séparateur soit "," :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set fichouvrir = Application.Workbooks.Open(Application.GetOpenFilename("Import fichiers MCT (*.csv),*.csv"), delimiter:=",")

ou plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Fich As String, FichOuvrir As Workbook
Fich = Application.GetOpenFilename("Import fichiers MCT (*.csv),*.csv")
Set FichOuvrir = Application.Workbooks.Open(Fich, delimiter:=",")

[Pierre67]

aucune des deux solutions ne me constitue des colonnes.
toutes les données figurent en colonne A

[Marc-L]

Bonjour,

ouvrir le fichier .csv avec le Bloc-notes par exemple pour vérifier le délimiteur (par exemple c'est peut-être ;) …

Sinon mettre le fichier en pièce jointe après avoir nettoyé les données confidentielles …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Pierre67]

Bonsoir

j'ai cliqué trop vite sur résolu
sans vous remercier pour votre contribution
avec mes excuses