Discussion :

[sat478]

Bonjour,

soit la procédure suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private Sub workbook_beforeclose(Cancel As Boolean)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tirex28]

Bonjour,

Si j'ai bien compris..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub workbook_beforeclose(Cancel As Boolean)
 
On Error Resume Next
 
If Sauvegarde Then
    'Lancement du correcteur orthographique
    Worksheets("Feuil1").CheckSpelling
    'Enregistrement du fichier
    ActiveWorkbook.Save
Else
    Cancel = True
End If
End Sub

Cordialement,

Tirex28/