macro ouvrir fichier avec début nom Fermé

Question

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.

m@rina · Answer

Bonjour,

Supposant que ton fichier commence par toto :

monfichier = Dir("C:\...	oto*.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

Mike-31 · Answer

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

Macro ouvrir fichier avec début nom

2 réponses

Discussions similaires