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

- - Dernière réponse : cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
- 19 déc. 2012 à 15:28
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
Afficher la suite 

1 réponse

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_MPi