Evenement open

Private Sub Workbook_Open() 'à l'ouverture du classeur YY
Dim Wb As Workbook 'déclare la variable Wb

For Each Wb In Workbooks 'boucle sur tous les classeurs ouverts
If Wb.Name = 'XX.xls' Then 'si le classeur s'appelle 'XX.ls'
MsgBox 'Le classeur XX.xls est déja ouvert' 'message
Exit Sub 'sort de la procédure
End If 'fin de la condition
Next Wb 'prochain classeur de la boucle

Workbooks.Open ('XX.xls') 'ouvre le classeur 'XX.xls'
ThisWorkbook.Activate 'active ce classeur
End Sub

Cliquez pour agrandir...

Sub Test()
        MsgBox 'Fichier ' & IIf(FichOuvert('MonClasseur.xls'), '', 'NON ') & 'ouvert.'
End Sub

Function FichOuvert(F As String) As Boolean
Dim Wk As Workbook
        On Error Resume Next
        Set Wk = Workbooks(F)                 '(merci à Ti pour l'astuce !)
        On Error GoTo 0
        FichOuvert = Not Wk Is Nothing
End Function

Cliquez pour agrandir...