VBA : choix du fichier d'importation de data

Résolu/Fermé

Manu - 19 janv. 2012 à 14:36
Manu - 19 janv. 2012 à 16:43

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

A voir également:

VBA : choix du fichier d'importation de data
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 janv. 2012 à 15:38

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

Manu
19 janv. 2012 à 16:43

Merci beaucoup, ca répond à mon problème.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters