VBA - IS ERROR sur fichier actif

[ConsultantJP]

Bonjour à tous,

Je crois bien pour le coup avoir un probleme de neuronne , mon probleme est simple, je veux savoir si une fichier est actif si c'est le cas très bien je continue ma procedure sinon je l'ouvre...

j'ai fait une tentative avec un iserror mais ça n'a pas marché, avez vous une idée ?

If IsError(Workbooks("Monfichier.xls").Activate) Then
MsgBox "ouverture du fichier obligatoire"
Else
Workbooks("Monfichier.xls").Activate
UserForm1.Show
End Sub

 

[PascalXLD]

Re : VBA - IS ERROR sur fichier actif

Bonjour

on error goto erreur

Workbooks("Monfichier.xls").Activate
UserForm1.Show
exit sub
erreur :
MsgBox "ouverture du fichier obligatoire"

End Sub