Discussion :

[tasse2the]

Bonjour à tous.

à partir d'une macro dans un fichier excel, je souhaite ouvrir un fichier texte (csv) dont la structure est la suivante :

Date;Heure de la mesure;Mesure brute;Mesure corrigée;F0;
24/11/2017;09:50:00;13,01;;0:0
24/11/2017;09:50:10;12,89;;0:0
24/11/2017;09:50:20;12,76;;0:0
24/11/2017;09:50:30;12,64;;0:0
24/11/2017;09:50:40;12,53;;0:0

Donc clairement, un fichier texte avec ";" comme séparateur

Lorsque je l'ouvre manuellement dans excel (double clic sur le fichier dans l'explorer, ou fichier/ouvrir/...), aucun souci, il s'ouvre correctement, chaque valeur dans sa colonne.

Lorsque je passe par la macro, ca se corse.

J'utilise les instructions suivantes :

Code :

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

1
2
3
4
 
fichier = repertoire & ListBox1.Value & ".csv"
 
Workbooks.Open Filename:=fichier, Format:=4

(listbox1.value est le nom que j'ai choisi dans une boite de dialogue préalablement ouverte)

Théoriquement, Format:=4 indique que le séparateur est un point virgule (j'ai également essayé avec le code 6 et Delimiter :=";"). Pourtant excel s'obstine à considérer la virgule comme séparateur et me place les valeurs numériques du tableau dans deux colonnes.

Quelqu'un pourrait me dire à quel moment je me plante dans cette histoire ?

Merci d'avance.

[NEC14]

Bonjour,

Excel va prendre par défaut le séparateur indiqué par défaut soit le point soit la virgule. Il faut donc remplacer le séparateur d'origine par celui que tu souhaites.

Voir méthode "Replace". Je vais essayer de trouver ce code et je reviens

Edit : voir cette discussion https://www.developpez.net/forums/d1...ombre-textbox/

[Menhir]

à partir d'une macro dans un fichier excel, je souhaite ouvrir un fichier texte (csv) [...] clairement, un fichier texte avec ";" comme séparateur

Code :

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

1
2
fichier = repertoire & ListBox1.Value & ".csv"
Workbooks.Open Filename:=fichier, Format:=4

N'utilise pas Open mais OpenText qui offre beaucoup plus de possibilités et de flexibilité.
https://msdn.microsoft.com/fr-fr/vba...t-method-excel
Regarde bien la liste de tous les paramètres.

Lorsque je l'ouvre manuellement dans excel (double clic sur le fichier dans l'explorer, ou fichier/ouvrir/...), aucun souci, il s'ouvre correctement, chaque valeur dans sa colonne.

C'est parce que ton Excel est francophone alors que VBA est indécrottablement anglophone.

[Docmarti]

Fais aussi un essai avec Local:=True.

Code :

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

Set wb = Workbooks.Open(Filename:=ch, local:=True)

[tasse2the]

L'utilisation d'opentext ne change malheureusement rien au problème. Le fichier est chargé exactement de la même faon qu'avec l'instruction open.

Par contre, l'option Local:=True semble fonctionner correctement... Du moins sur le PC que j'utilise.

Merci à tous pour vos réponses.

[Menhir]

L'utilisation d'opentext ne change malheureusement rien au problème. Le fichier est chargé exactement de la même faon qu'avec l'instruction open.

Ca dépend quels paramètres tu utilises.