macro conversion .csv

:PBonjour,

Lorsque j'exécute une macro xls sur un de mes postes celle-ci effectue correctement l'ouverture d'un fichier .csv sous format converti.
Mon problème est que, lorsque je l'exécute sur un autre poste, la macro ne converti pas le fichier à l'ouverture d'excel. Ainsi, la suite de l'exécution de la macro plante.
Merci de votre aide
euskadi

Bonjour

Pourrait-on avoir ta macro ?

Starec

Bonjour,

Voici le début de la macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Mise_en_forme_X01()     Dim fichierCSV As String   'Récupération du chemin d'accès au fichier CSV fichierCSV = Application.GetOpenFilename(FileFilter:="Fichiers CSV (*.csv), *.csv", Title:="Ouvrir le fichier X01 à traiter", MultiSelect:=False)   'Ouverture du fichier de l'extraction des cas Workbooks.OpenText Filename:=fichierCSV, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, Space:=False, Other:=False   'Mise en forme du fichier Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="<>Sans déplacement", Operator _ :=xlAnd

---

Quand ca plante c'est au niveau du filtre auto mais le réel problème est que pour certains postes, le fichier est converti par la macro et pour d'autres ce n'est pas le cas et donc ca plante.

Merci de ton aide

Tu dois écrire ton critère en deux fois "<>" & "Sans déplacement" (il me semble :? )

Bonjour ouskel'n'or,

Que veux-tu dire par "écrire ton critère en deux fois "<>" & "Sans déplacement" "?
Dois-je mettre un espace? ??

Salut,

Code:

---

Workbooks.OpenText Filename:=fichierCSV, Origin:=xlWindows, StartRow:=1, local:=True

---

Quelle est la réponse qui a réglé ton problème ? (pour ne pas mourir idiot) ;)
Merci.