On Error Resume Next 'test pour vérifier que le fichier "XXXX" n'est pas déjà ouvert
Windows("XXXX.xls").Activate
If Err <> 0 Then
NomFichierXXXX = Dir$(ThisWorkbook.Path + "\XXXX.xls", vbNormal)
If NomFichierXXXX <> "" Then 'Test existence fichier XXXX sur le réseau
Workbooks.Open Filename:=NomFichierXXXX
Else
NomFichierXXXX = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.xl*), *.xl*", Title:="Choix du fichier XXXX")
If NomFichierXXXX <> False Then
Workbooks.Open (NomFichierXXXX) 'sinon boite de dialogue d'ouverture de fichier
End If
End If