Salut le Forum!!!

J'ai une procédure qui me permet de tester si mon fichier BordereauLivraison1 est ouvert. Mais depuis qu'elle est dans mon programme, Excel plante régulièrement!!!!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub TestOuvertureBordereauLivraison()
 
On Error Resume Next
Workbooks("BordereauLivraison1").Activate        'Activation du fichier
If Err <> 0 Then                                 'si activation génère erreur alors le fichier est fermé
    On Error GoTo 0
Else                                             'sinon le fichier est ouvert
    Workbooks("BordereauLivraison1").Close False 'Fermeture du fichier sans enregistrement
    On Error GoTo 0
End If
 
End Sub
Quelqu'un y verrait-il une erreur

@+ JeanValjean