ouverture d'un fichier avec un nom incomplet

Bonsoir Fabien, bonsoir le forum,

Copie la macro ci-dessous dans un fichier déjà enregistré et lance la. Elle va ouvrir un boite d'entrée dans laquelle tu taperas le début du nom de ton nouveau fichier à ouvrir. Ensuite elle va rechercher dans le même répertoire que celui de ton fichier actuel, les fichiers commençant par le nom que tu auras tapé. Elle ouvrira le premier fichier de sa recherche.

Sub test()
Dim nom As String 'déclare la variable nom
dim noncomplet as string 'déclare la variable nomcomplet
Dim chem As String 'déclare la variable chem
nom = InputBox("Nom du classeur") 'définit la variable nom (début du nom du fichier)
chem = ActiveWorkbook.Path 'définit la variable chem (chemin d'accès du classeur actuel, à adapter)
With Application.FileSearch 'recherche de fichier
.LookIn = chem 'dans le même répertoire que le fichier actuel
.SearchSubFolders = True 'dans les sous-répertoires
.Filename = nom & "*.xls" 'tous les fichiers Excel commençant par le nom de la boite
If .Execute > 0 Then 'si au moins un fichier est trouvé
nomcomplet = .FoundFiles(1) 'définit le nom complet du fichier trouvé
Workbooks.Open (nomcomplet) 'ouvre le fichier
End If
End With
End Sub

J'espère que ça correspond à tes besoins.

À plus,

Robert

Bonjour ,


Merci beaucoup ça marche .

A+

fabien