Erreur d'execution '1004'erreur définie par l'application ou par l'objet [Résolu]

Signaler
-
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
-
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

1 réponse

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
16
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