accès à un fichier avec suffixe

Home – Le CFO masqué › Forums › VBA › accès à un fichier avec suffixe

Tagged: 

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • 3 November 2020 at 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 November 2020 at 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

  • Author
    Posts
Viewing 2 posts - 1 through 2 (of 2 total)
  • You must be logged in to reply to this topic.