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
A voir également:
- VBA : choix du fichier d'importation de data
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
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
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
Manu
Merci beaucoup, ca répond à mon problème.
