VBA Ouverture de fichier CSV

Bonjour,

Je code habituellement sous Windows, mais là on me demande de réaliser des macros sous mac.
Mon problème est que lorsque j'ouvre mon fichier csv de cette façon:

Code:

---

1 2	strFile = Dir(ThisWorkbook.Path & Application.PathSeparator) Workbooks.Open ThisWorkbook.Path & Application.PathSeparator & strFile

---

Le fichier s'ouvre bien, mais toutes les données se retrouvent dans la première colonne séparées d'un ";".

Sous windows, on peut solutionner le problème comme ça:

Code:

---

Workbooks.Open ThisWorkbook.Path & Application.PathSeparator & strFile, Local:=True

---

Mais cette option n'est pas présente sous la version mac.
Connaissez-vous un équivalent?
Ou un moyen simple de récupérer les données entre chaque point virgule?

A vrai dire, j'ai codé des fonctions qui me permettent d'arriver au résultat mais le code sera difficile à maintenir vu les astuces que j'ai utilisées!

Pouvez-vous m'aider sur ce point?

Merci à vous par avance.

Bonjour,

depuis la feuille de calculs il y a la fonction Convertir du menu Données, TextToColumns en VBA …

Sinon rien qu'en lisant l'aide des méthodes Workbooks.Open et Workbooks.OpenText !



__________________________________________________________________________________________________
Tous unis, tous Charlie

Salut, voir également ici

Bonjour à tous

Je travaille sur Excel sous Windows mais j'ose apporter ma modeste pierre à la discution.

personnellement j'ouvre les fichiers texte de cette manière :

Code:

---

1 2 3 4 5

'création du fichier txt en format Excel Workbooks.OpenText Filename:=file_select, _ Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _ Array(Array(0, 1), Array(21, 1), Array(25, 1), Array(67, 1)), _ TrailingMinusNumbers:=True

---

donc file_select estle nom d'une variable qui contient le nom du fichier texte avec son Path

l'avantage c'est assez simple et c'est maintenable puisqu'il découpe en différent taille par rapport à la position dans la ligne de texte.

c'est vrai que ne connaissant par Excel MAC je ne suis pas sur que : Origin:=xlMSDOS fonctionne Bien

Bonne journée

A+

Un p'tit peu hors sujet : bien relire la demande initiale et puis rien qu'en lisant l'aide des méthodes indiquées …

Citation:

---

Envoyé par Marc-L

Un p'tit peu hors sujet : bien relire la demande initiale et puis rien qu'en lisant l'aide des méthodes indiquées …

---

Ben le fichier CSV est pour moi un fichier Texte :calim2:

Mais bon si tu m'en fait le reproche c'est que tu dois avoir surement raison :aie:

à bientôt

Bonjour,

Merci à tous pour vos liens et conseils.

Citation:

---

Sinon rien qu'en lisant l'aide des méthodes Workbooks.Open et Workbooks.OpenText !

---

En fait, c'est la première chose que j'ai fait. Mais après de nombreux essais, je n'ai pas réussi à trouver ce qu'il me faut.

Je tiens à préciser que quand j'ouvre le fichier par un double clique, les données sont correctement séparées. Le problème arrive seulement quand c'est VBA qui ouvre le fichier. Problème que je connais et sais résoudre sous windows.

Je vais essayer d'explorer la méthode convertir.

Ce n'est pas un reproche Igloobel, juste un constat …

Citation:

---

Envoyé par GreatTeacherOnizuka

mais toutes les données se retrouvent dans la première colonne séparées d'un ";"

---

Donc le fichier texte a pour délimiteur un point-virgule et ton code est pour un fichier sans délimiteur !

En lisant bien l'aide d'Open ou d'OpenText, il y a tout ce qu'il faut pour préciser un délimiteur …

Bonjour,

Citation:

---

Donc le fichier texte a pour délimiteur un point-virgule et ton code est pour un fichier sans délimiteur !

---

Si vous parlez de la fonction Delimiter, je n'arrive pas à la faire marcher. Même sur PC ça n'est pas passé.

Mais sur PC, il existe plusieurs fonctions qui permettent de résoudre ce problème. Je devrais avoir l'occasion de revenir sur ce problème, je reviendrais vers vous si j'ai quelque chose.

Salut, de tout façon à consulter.