Importer fichier .txt en rentrant son chemin dans un InputBox

Question

Salut,

 

 Je cherche &#224;
utiliser un InputBox pour y entrer le chemin d'un fichier dans sa
totalit&#233;(avec le nom du fichier avec son extention bien entendu). J'ai
tout d'abord commenc&#233; par ceci :

 

 ActiveSheet.QueryTables.Add(Connection:="TEXT;X:\Michele\SUIVI3.TXT", _

         Destination:=Range("AO4"))

 

 pour verifier que &#231;a fonctionne ainsi. C'est le cas.

 Ensuite j'ai tent&#233; ceci :

 


ActiveSheet.QueryTables.Add(Connection:=InputBox("Donnez le nom du
fichier &#224; consulter, avec son chemin", "Ouverture du fichier"), _

         Destination:=Range("AO4"))

 

 La boite de dialogue s'affiche et j'y rentre mon chemin(celui d'en haut) et l&#224;, erreur.

 Doit-je utiliser un pointeur?Mais l&#224; non plus je ne sais pas comment faire car l&#224; aussi &#231;a semble different du "C".

C'est pour mon stage en informatique qui se termine la semaine
prochaine, et je doit pondre un programme qui marche!! J'ai vraiment
besoin d'aide!!

au bout du clavier...

galopin01 · Answer

bonjour,
moi je verrai bien &#231;a :
Sub Test()
MaVariable = InputBox("Donnez le nom du fichier &#224; consulter, avec son chemin", "Ouverture du fichier")
ActiveSheet.QueryTables.Add Connection:=MaVariable, Destination:=Range("AO4")
End Sub
?

cs_thanatos67 · Answer

Voici ce que j'ai mis :



Sub Test()

    MaVariable = InputBox("Donnez le nom du fichier &#224; consulter, avec son chemin", "Ouverture du fichier")

    With ActiveSheet.QueryTables.Add(Connection:="MaVariable", _

        Destination:=Range("M2"))

    End With

End Sub



Je recoit un message d'erreur : "erreur 1004 : Erreur d&#233;fini par l'application ou par l'objet"
Il me montre la ligne : Destination:=Range("M2"))

Je ne comprends pas le pb.


au bout du clavier...

Importer fichier .txt en rentrant son chemin dans un InputBox

2 réponses

Discussions similaires