patricktoulon
XLDnaute Barbatruc
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
je ne pige pas un truc
la ligne "...QueryTables.Add" plante avec getopenfilename et ne plante pas avec le chemin en dur
VB:
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