deni29

Papaye

Merci pour c'est info, j'ai essayéta solution, mais cela ne fonctionne pas.
Ci-dessous, je que j'ai réecris.

*******************************

Sub dossier()
' ouvrir un fichier qui ce trouve dans le niveau inférieur de l'arborescence.

Dim Chemin As String
Chemin = ThisWorkbook.Path

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.SearchSubFolders = True
.Filename = 'Données.xls'
.MatchAllWordForms = False
.FileType = msoFileTypeAllFiles
If (.Execute() > 0) Then
NomFic = .FoundFiles(1)
Workbooks.Open Filename:=NomFic
Else
Message MsgBox('Le fichier n'existe pas', 'Essai')
End If

End With

End Sub

***************************

Merci

Deni29