Macro ouvrir fichier avec début nom

pseudo -  
Mike-31 Messages postés 18407 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.
A voir également:

2 réponses

Réponse 1 / 2
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
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
pseudo
 
Merci mais ça ne marche pas, ca indique "erreur d'execution 1004"
0
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
ça marche si tu adaptes... Je ne connais pas le nom de ton répertoire, ni son emplacement.
0
Réponse 2 / 2
Mike-31 Messages postés 18407 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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