accès à un fichier avec suffixe

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

  • Ce sujet contient 1 réponse, 2 participants et a été mis à jour pour la dernière fois par Stéphane Lorin, le il y a 3 années et 5 mois.
2 sujets de 1 à 2 (sur un total de 2)
  • Auteur
    Articles
  • #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

    #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

2 sujets de 1 à 2 (sur un total de 2)
  • Vous devez être connecté pour répondre à ce sujet.