Macro ouvrir fichier avec début nom [Fermé]

Signaler
-
Messages postés
17301
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
20 janvier 2021
-
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

Messages postés
17083
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
8 avril 2021
10 298
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
Merci mais ça ne marche pas, ca indique "erreur d'execution 1004"
Messages postés
17083
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
8 avril 2021
10 298
ça marche si tu adaptes... Je ne connais pas le nom de ton répertoire, ni son emplacement.
Messages postés
17301
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
20 janvier 2021
4 543
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