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

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

Merci cs_MPi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes 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.