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!!!!
Quelqu'un y verrait-il une erreur
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
@+ JeanValjean
Partager