Comment vérifier si un classeur simplex.xls est ouvert et l'ouvrir si ce n'est pas le cas ?

sub OuvreSiPasOuvert()
  ' activer le fichier ==> sinon l'ouvrir
  On Error Resume Next
  Workbooks("simplex.xls").Activate
  If Err <> 0 Then
   fichier = "C:\MesCacouillousSosMpfesimplex.xls"
   Workbooks.Open Filename:=fichier
   If Err <> 0 Then
    MsgBox "Le fichier '" & fichier & "' est introuvable"
   End If
  End If
 end sub

Tu peux aussi remplacer Windows("simplex.xls").Activate par n= Windows("simplex.xls").Width si tu veux pas activer la
fenêtre Si ça t'arrive souvent de chercher à savoir si tel ou tel classeur est déjà ouvert ou non, pourquoi pas une petite fonction dans un coin de ton perso.xls :

Function IsOpen(Classeur$) As Boolean
 On Error Resume Next
 IsOpen = Not Workbooks(Classeur) Is Nothing
 Err.Clear
 End Function

Ensuite, dans ton code : If not IsOpen("Simplex.xls") Then etc.