Macro ouvrir fichier avec début nom

pseudo -  
Bonjour,

Je voudrait écrire une macro qui me permette d'ouvrir un fichier excel depuis un autre en sachant que le nom du fichier va varier selon les versions, seul le début du nom restera le même.

Est-ce que quelqu'un peut m'aider ?

Merci.

2 réponses

  1.  m@rina Modérateur
    Bonjour,

    Supposant que ton fichier commence par toto :

    monfichier = Dir("C:\...\toto*.xls")
    Workbooks.Open Filename:=monfichier

    cela sous-entend qu'un seul fichier dans le dossier indiqué commence par toto.

    Sinon, tu peux faire une inputbox qui demande le nom du fichier ou bien ouvrir la boîte de dialogue Ouvrir...

    m@rina
    0
    1. pseudo
      Merci mais ça ne marche pas, ca indique "erreur d'execution 1004"
      0
    2. m@rina Modérateur
      ça marche si tu adaptes... Je ne connais pas le nom de ton répertoire, ni son emplacement.
      0
  2. Mike-31
    Salut,

    Si ton fichier est dans le même répertoire

    Sub test()
    Workbooks.Open Filename:= _
    ThisWorkbook.Path & "\" & Dir(ThisWorkbook.Path & "\" & "Tro*")
    End Sub

    le problème est qu'il t'ouvrira le premier fichier rencontré commençant par exemple Tro

    Si le fichier est dans un autre répertoire, seul le code proposé par M@rina que je salue convient
    à toi de compléter le chemin entre C:// et le fichier mais là aussi avec le joker * le premier fichier classé par ordre alphabétique s'ouvrira
    0