Erreur d'execution '1004'erreur définie par l'application ou par l'objetRésolu

Question

Bonjour,
J'ai une erreur d'execution '1004' erreur définie par l'application ou par l'objet.
Voici la ligne soulignée en jaune:
With Worksheets("Feuil1").QueryTables.Add("TEXT" & Fichier, Worksheets("Feuil1").Range("A1"))

Le code est:
Public Sub CSV()

Dim Fichier As String

'le chemin du fichier cible, à adapter
Fichier = "C:\Documents and Settings\asow\Desktop\ResponsableInfo.xls"

    'exécute une requéte req recup en feuille "Feuil1" à partir de "A1", à adapter
With Worksheets("Feuil1").QueryTables.Add("TEXT" & Fichier, Worksheets("Feuil1").Range("A1"))

     'le délimiteur est le point-virgule(;)
     .TextFileSemicolonDelimiter = True
     .Refresh 'le met à jour
     .Delete 'supprime la requete
     
 End With


End Sub


Merci d'avance

cs_MPi · Accepted Answer

Essaie comme ceci
With Worksheets("Feuil1").QueryTables.Add(Connection:="TEXT; & Fichier & ", Destination:=Worksheets("Feuil1").Range("A1"))

Peut-être que juste l'ajout du point-virgule suffirait, mais il faut aussi être prudent avec les guillemets...


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Erreur d'execution '1004'erreur définie par l'application ou par l'objet

1 réponse

Votre réponse

Discussions similaires