Workbook_beforeclose + sortir de la procédure
Bonjour,
soit la procédure suivante :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Private Sub workbook_beforeclose(Cancel As Boolean)
On Error Resume Next
Call Sauvegarde
If valeur = False Then
Exit Sub
Else
'Lancement du correcteur orthographique
Worksheets("Feuil1").CheckSpelling
'Enregistrement du fichier
ActiveWorkbook.Save
End If
End Sub |
La procédure appelle la fonction Sauvegarde qui effectue des tests sur le fichier et renvoie la variable VALEUR.
Si VALEUR=FALSE je ne souhaite pas que la procédure de sauvegarde continue.
Si valeur=TRUE la procédure continue comme indiqué.
Le problème c'est que à la place de l'exit sub le fichier m'affiche la boite de fermeture d'Excel en me demandant si je veux sauvegarder le fichier.
Comment faire pour éviter cela et pouvoir faire ma vérification automatiquement avant la fermeture du fichier ?
J'ai essayé en remplacant
Code:
1
2
|
Private Sub workbook_beforeclose(Cancel As Boolean) |
par
Code:
1
2
3
|
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel as Boolean) |
mais la procédure ne se lance jamais :-(
Quelqu'un peut-il m'aider ? Merci par avance.
