VBA : choix du fichier d'importation de data
Résolu
Manu
-
Manu -
Manu -
Bonjour,
Je me mets doucement à la programmation de macro.
Je suis à la recherche d'une fonction pour me permettre de venir choisir le fichier dont je veux importer les données.
J'arrive à faire marcher ma macro (issue je l'avoue d'un enregistrement lègèrement dégraissé par mes soins) mais elle ne fonctionne que sur un chemin d'accès figé
Extrait :
"
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Documents\W5 results.txt" _
, Destination:=Range("H5"))
.Name = "W5 results"
.FieldNames = True
"
Comment faire pour aller piocher un autre fichier .txt?
Quel serait le code pour faire apparaitre un gestionnaire de fichier pour aller le choisir???
Merci d'avance
Emmanuel
Je me mets doucement à la programmation de macro.
Je suis à la recherche d'une fonction pour me permettre de venir choisir le fichier dont je veux importer les données.
J'arrive à faire marcher ma macro (issue je l'avoue d'un enregistrement lègèrement dégraissé par mes soins) mais elle ne fonctionne que sur un chemin d'accès figé
Extrait :
"
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Documents\W5 results.txt" _
, Destination:=Range("H5"))
.Name = "W5 results"
.FieldNames = True
"
Comment faire pour aller piocher un autre fichier .txt?
Quel serait le code pour faire apparaitre un gestionnaire de fichier pour aller le choisir???
Merci d'avance
Emmanuel
1 réponse
-
Bonjour,
Aide EXCEL pour choix fichiers .txt
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
Connstring = "TEXT;" & fileToOpen
With ActiveSheet.QueryTables.Add(Connection:=Connstring, Destination:=Range("H5"))
.Name = "W5 results"
.FieldNames = True
End With
Else
'
End If
Bonne suite
