Bonjour Robert, Bonjour Lone-Wolf
Merci beaucoup pour votre intervention.
Lone-Wolf : Quand je teste le code que tu me propose,
Sub OuvrirDossierFichier2()
Dim Chemin
Chemin = Workbooks(ActiveWorkbook.Name).Path
ShellExecute 0, vbNullString, Chemin, vbNullString, vbNullString, 0
End Sub
j'ai un...