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 

Votre réponse

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
16
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 110 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_MPi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.