Sub Path_of_open_file()
'Compte le nombre de workbooks et stocke dans la variable Nbwbinit
Nbwbinit = Workbooks.Count
'Tant qu'aucun workbook n'a été ouvert, on attend
While Not (Workbooks.Count > Nbwbinit)
Application.Wait (Now + TimeValue("0:00:01"))
ActiveWorkbook.RefreshAll
Wend
'Si un workbook est ouvert actions
MsgBox "Done"
'Resultat = ActiveWorkbook.name
End Sub