Ouverture d'un fichier csv

bonjou au forum

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

Code:

---

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

Bonjour,

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

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

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

Code:

---

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

---

ou plutôt :

Code:

---

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:=",")

---

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

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

merci de t'interesser à mon sujet
voici le fichier csv joint

En l'ouvrant avec le Bloc-notes, je constate que le séparateur est bien le ";" ! …

Comme c'est le séparateur par défaut de la version française, il suffit donc,
comme indiqué dans l'aide intégrée de VBA, du moins faut-il la lire (…),
de passer l'argument Local à True de la méthode Workbooks.Open :

Code:

---

1 2 3 4 5 6 7

Fich = Application.GetOpenFilename("fichiers MCT,*.csv")   If Fich <> False Then Workbooks.Open Fich, Local:=True [B2:E2].Columns.AutoFit ' Suite du code End If

---

Sinon il y a aussi l'argument Delimiter comme Daniel l'a souligné
mais ne fonctionnant pas avec ce fichier à cause de ses guillemets …


__________________________________________________________________________________________

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


__________________________________________________________________________________________
Quelle époque terrible que celle où des idiots dirigent des aveugles. (Shakespeare)

j'obtiens une erreur 424 sur le ligne

Code:

---

Fich = Application.GetOpenFilename("fichiers MCT,*.csv")

---

Ce n'est pas grave, tu peux quand même reprendre son paramètre comme dans les messages précédents …


__________________________________________________________________________________________

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


__________________________________________________________________________________________
- A ton avis, quel est le plus grand mal de notre époque : l'ignorance ou l'indifférence ?
- J' sais pas et j' m'en fous !

Qu'est-ce qui est résolu ? j'ai dû manquer un cours ?

Qui plus est sans remerciement ni vote … La prochaine fois je zappe !

Bonsoir

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