Workbook_BeforeClose problème

[nadia11565]

Bonjour

Ma macro valide la saisie des champs obligatoires sur l'action sauvegarder. Par contre si je clique sur 'X' pour fermer le fichier, alors j'appel ma validation qui regarde si des cellules obligatoires ne sont pas remplis si oui alors j'affiche un message, sauf que lorsque je clique sur OK sur ce message d'avertissement tout de suite il y a un le message d'Excel qui me demande si je veux sauvegarder mes dernière modifications et si je clique OUI alors il m'affiche le message d'avertissement et ça tourne en rond.. Je ne sais pas comment gérer cela pour que le message de sauvegarde ne s'affiche pas.
Voici code qui est appelé dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim WorksheetAsError As Boolean
'Reset
WorksheetAsError = False

'Invoke validation
WorksheetAsError = ValidationChampObligatoire()

If WorksheetAsError = True Then
Cancel = True
'Application.DisplayAlerts = False ' Ne fonctionne pas
Else
Cancel = False
End If
End Sub


Merci de votre aide
Nadia

 

[Guest]

Re : Workbook_BeforeClose problème

Re Nadia,

Soit tu n'as pas essayé, soit il y a grosse incompréhension parce que chez moi lorsque je ne laisse que la macro ci-dessous, toutes les conditions sont remplies.

Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not ThisWorkbook.Saved Then Cancel = ValidationAvantSauvegarder()
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not ThisWorkbook.Saved Then Cancel = ValidationAvantSauvegarder()
End Sub

La sauvegarde n'est réalisée que si tout est validé.

A+

 

[smotty]

Re : Workbook_BeforeClose problème

Suite essai positif,

La réponse est dans le problème:

utilisez Before_close Et Before_Save avec le même code:

(en reprenant Hasco 😉)

cancel=ValidationAvantSauvegarder

dans les 2 évènements

cdt

smotty

 

[Guest]

Re : Workbook_BeforeClose problème

Re,

@Smotty🙂 Merci de confirmer parce que je me demandais si je ne devenais pas un peu (ou beaucoup) plus fou que d'habitude.🙄

A++

 

[nadia11565]

Re : Workbook_BeforeClose problème

Re Nadia,

Soit tu n'as pas essayé, soit il y a grosse incompréhension parce que chez moi lorsque je ne laisse que la macro ci-dessous, toutes les conditions sont remplies.

Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not ThisWorkbook.Saved Then Cancel = ValidationAvantSauvegarder()
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not ThisWorkbook.Saved Then Cancel = ValidationAvantSauvegarder()
End Sub

La sauvegarde n'est réalisée que si tout est validé.

A+

Est-ce que vous pouvez me confirmer quel version d'Excel vous utiliser... parce que moi j'essaie de faire fonctionner ce que vous m'envoyer et ça ne fonctionne toujours pas.. c'est moi qui est en train de devenir folle😕


Je clique sur X il me dit que le Champ emplacement est obligatoire
Je clique OK il me demande si je veux sauvegarder,
je clique OUI
il me dit que le Champ emplacement est obligatoire
je clIque Ok il me demande si je veux sauvegarder
je clique OUi et ainsi de suite ça tourne en rond.....

Merci encore de votre aide...

 

[smotty]

Re : Workbook_BeforeClose problème

Bonsoir,

après de multiples testes ça fonctionne parfaitement avec le code qu'on vous a donné.

La version d'Excel n'a rien à voir, perso je suis sur 2007.

Voir le fichier joint et comparez avec le votre. N'y aurait'il pas un évènement géré sur Thisworkbook ou autre feuille qui créerait le problème?

cdt

smotty