[XL-2003] Erreur dans une commande vba

Erreur dans une commande vba

bonjour j'ai fais une macro qui m'ouvre un fichier csv et qui le converti au format adequat, j'ai ajoute un commandbutton pour que lorsque je clique dessus ca se lance automatiquement.

quand je clique dessus il me fais rechercher le fichier , il ouvre un nouveau classeur mais la il me met une erreur voici le sceen qui peut m'eclaircir s'il vous plait merci d'avance

salutations

PS: l'erreur est en rouge.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub CommandButton2_Click()

Dim F As Variant
  
F = Application.GetOpenFilename("csv Files (*.csv), *.csv")
  
If F = False Then Exit Sub
 
Workbooks.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & F, Destination _
        :=Range("$A$1"))        
        .Refresh BackgroundQuery:=False
        .Name = "fichier_client"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 5, 2, 2, 2, 2, 2, 2, 5, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
        2, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 5, 2)
        .TextFileTrailingMinusNumbers = True
        End With

Bonsoir,

Quand ce type d'erreur m'embête, je commence par supprimer les "_".

Dans ton cas, je supprimerais celui suivant "destination".

Bon courage

Salut,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    .....
 
    If F = False Then Exit Sub
 
    Feuil1.Cells.Clear
 
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & F & "" _
        , Destination:=Range("$A$1"))
 
	......
 
    End With
 
    DelNames
End Sub
 
Private Sub DelNames()
    With ThisWorkbook
        Do While .Names.Count > 0
            .Names(1).Delete
        Loop
    End With
End Sub

merci pour vos reponse ca a marché.
Par contre un autre souci maintenant sur ce code la:

Code:

.TextFilePlatform = 65001

Est ce que c parce que j'utilise la meme macro sur un Excel 2000 parce que sur 2003 ca fonctionne nikel.