Discussion :

[GreatTeacherOnizuka]

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 :

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

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 :

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

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.

[Marc-L]

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

[kiki29]

Salut, voir également ici

[Igloobel]

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 :

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

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+

[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 …

[Igloobel]

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

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

à bientôt

[GreatTeacherOnizuka]

Bonjour,

Merci à tous pour vos liens et conseils.

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.