accès à un fichier avec suffixe

Étiqueté : Reprise de l'envoi des pièces jointes

Ce sujet contient 1 réponse, 2 participant et a été mis à jour pour la dernière fois par Stéphane Lorin, le il y a 4 années et 5 mois.

Affichage de 1 message (sur 2 au total)

Auteur

Messages
3 novembre 2020 à 19 h 10 min #83462

MLagrange
Participant

Bonjour,

Je suis en Windows 10 – 64bits

Mon fournisseur de données m’envoie sur demande par téléchargement un chiffrier qui s’appelle
“DayTrade_-_Transactions (84).csv” (84 étant une valeur numérique qui s’incrémente à chaque envoi). Dans le browser, le fichier apparaît à la section “Téléchargements” et il est également ouvert à l’écran sous ce nom.

Comment je fais pour appeler le document courant dans une procédure VBA nonobstant le suffixe numérique ?

J’ai essayé avec l’étoile (Windows(“DayTrading_-_Transactions*.csv”).Activate), avec un Inputbox = ” (084)”. Rien ne fonctionne. J’ai même essayé en Power Query, hélas le suffixe pose toujours problème

La façon actuelle de le faire fonctionner, est de “Sauvegarder” manuellement le chiffrier dans Téléchargements en tronquant le suffixe. À ce moment-là l’instruction (Windows(“DayTrading_-_Transactions.csv”.Activate) fonctionne sans problème Y a-t-il une solution “VBAyenne” plus élégante que celle-ci ?

merci

4 novembre 2020 à 3 h 39 min #83464

Stéphane Lorin
Participant

Bonjour
Faites une boucle sur tous les fichiers Excel ouverts et utilisez l’instruction “Like” qui permet d’utiliser les jokers “?” et “*”

For Each Classeur In Application.Workbooks
If Classeur.Name Like “DayTrade_-_Transactions*” Then Classeur.Activate
Next Classeur

Vous n’avez pas besoin de l’instruction “Windows” car vous parcourez la liste des “Workbooks”

Stéphane
Auteur

Messages