Discussion :

[euskadi]

Bonjour,

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

[Invité]

Bonjour

Pourrait-on avoir ta macro ?

Starec

[euskadi]

Bonjour,

Voici le début de la macro:

Code :

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

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

[ouskel'n'or]

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

[euskadi]

Bonjour ouskel'n'or,

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

[kiki29]

Salut,

Code :

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

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

[ouskel'n'or]

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