Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

getopenfilename et querytable.add

  • Initiateur de la discussion Initiateur de la discussion fxcat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

fxcat

Guest
Bonjour à tous,

je n'arrive pas faire en sorte qu'une variable (un fichier txt) ouvert par getopenfilename soit reprise par queryTables.add (le nom di fic doit changer chaques jour et il peu y en avoir plusieurs)

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\XL\ficxl_25.02.13.TXT", Destination:=Range("$A$1"))
.Name = "ficxl_25.02.13"
.FieldNames = True
.RowNumbers = False
etc...

Peut-être que je ne peu pas ?

Quelqu'un peu m'aider svp?
Je continue a chercher en attendant...

---pas facile de faire des macro!!--
 
Re : getopenfilename et querytable.add

Résolu, c'est simple au fait...

grace à des exemples sur le forum. merci à eux !


Dim pathFichier As String, nomFichier As String, tmpStr() As String

'récupérer le fichier (path complet)
pathFichier = Application.GetOpenFilename

'si tu veux récupérer le nom du fichier :
tmpStr = Split(pathFichier, "\")
nomFichier = tmpStr(UBound(tmpStr))

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\LSTXL\" & nomFichier, Destination:=Range("$A$1"))
.Name = nomFichier
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 CSV en EXCEL
Réponses
1
Affichages
197
M
Réponses
3
Affichages
1 K
MarieChérie
M
P
Réponses
5
Affichages
1 K
V
Réponses
7
Affichages
2 K
V
P
Réponses
5
Affichages
2 K
B
Réponses
3
Affichages
2 K
betteggan
B
P
Réponses
2
Affichages
1 K
Phagege@
P
X
Réponses
0
Affichages
599
X
C
Réponses
3
Affichages
1 K
creal69360
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…