Merci de l'aide que vous m'apporterez
Sub OCheck()
Dim dossier As String, Fichier As String, Chemin As String
dossier = "X:\AJ\Dossier de suivi\"
Fichier = "Visio+.xls"
Chemin = dossier & Fichier
Dim Presence As Boolean
Presence = False
For Each w In Workbooks
If w.Name = Fichier Then Presence = True
Next w
If Presence = True Then
Workbooks(Fichier).Activate
Else
Workbooks.Open Filename:=Chemin
End If
End Sub