Macro ouvrir fichier avec début nom

pseudo -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
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 Messages postés 27723 Date d'inscription   Statut Modérateur Dernière intervention   11 567
     
    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 Messages postés 27723 Date d'inscription   Statut Modérateur Dernière intervention   11 567
       
      ça marche si tu adaptes... Je ne connais pas le nom de ton répertoire, ni son emplacement.
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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