Autres .QueryTables.Add plante avec getopenfilename

[patricktoulon]

bonjour a tous
je ne pige pas un truc
la ligne "...QueryTables.Add" plante avec getopenfilename et ne plante pas avec le chemin en dur

  fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt", 1, "ouvrir un fichier")
    If fichier = False Then Exit Sub
      
     Columns("A:A").Clear
    With Sheets(1).QueryTables.Add(Connection:=fichier, Destination:=Range("$A$1"))
        .Refresh BackgroundQuery:=False
        .Delete
    End With

 

[dg62]

Bonjour Patricktoulon,

avec cette syntaxe ça semble fonctionner

Sub Openfichier()
 fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt", 1, "ouvrir un fichier")
    If fichier = False Then Exit Sub
      
     Columns("A:A").Clear
    With Sheets(1).QueryTables.Add(Connection:="Text;" & fichier, Destination:=Range("$A$1"))
        .Refresh BackgroundQuery:=False
        .Delete
    End With
    
End Sub

 

[patricktoulon]

Bonjour @dg62
c'est nickel
Merci