Workbook_BeforeClose problème

smotty à dit:

Bonjour Nadia, Le forum,

A mon avis tu devrais mettre le teste dans l'évènement BeforeSave, qui sauf erreur de ma part, intervient avant le BeforeClose.

cdt

smotty

Cliquez pour agrandir...

smotty à dit:

As-tu testé la valeur retournée par la fonction?

On est bien d'accord que quand tu mets cancel à True, c'est que tu veux stopper la sauvegarde?

J'ai testé, ça fonctionne, donc peut-être peux-tu joindre le code de la fonction?

cdt

smotty

Cliquez pour agrandir...

nadia11565 à dit:

Bonsoir, Merci de votre aide, mais lorsque j'ajoute
ThisWorkbook.Saved = True

Le message qui demande de sauvegarder ne s'affiche plus, mais le fichier
se ferme et je ne voudrais pas qu'il se ferme, car le champ
obligatoire n'a pas été saisie.
Je vous joins mon document qui contient tout le code.

Cliquez pour agrandir...

Private Sub Workbook_BeforeClose(Cancel As Boolean)

     if ValidationChampObligatoire then cancel =true

End Sub

tricher en indiquant à excel que le classeur à été sauvegardé.

Cliquez pour agrandir...

smotty à dit:

Bonjour Nadia, Hasco, le forum

Juste au passage ce simple code fait la meme chose:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

     if ValidationChampObligatoire then cancel =true

End Sub

Selon moi, pas besoin de tricher, le code fonctionne très bien comme ça.

le problème vient certainement de la fonction:ValidationChampObligatoire

D'ailleurs, cette fonction retourne-t-elle bien une valeur booleene?

Function ValidationChampObligatoire() as boolean

si oui, essaie une autre fonction qui retourne juste la valeur à true ou false, et tu verras que ça fonctionne😉

cdt

smotty

Cliquez pour agrandir...

nadia11565 à dit:

Oui ma fonction retourne une valeur booleene
C'est quoi la différence avec une fonction qui retourne une valeur à true ou
false vs m'a fonction qui est déclaré As Boolean

De plus lorsque le WorksheetAsError est true est-ce qu'il a moyen de dire de ne pas fermer le fichier

If WorksheetAsError = True Then
Cancel = True
ThisWorkbook.Saved = True
Else
Cancel = False
End If


Voilà une partie de ma fonction

Public Function ValidationChampObligatoire () As Boolean


'Reset error flag
WorksheetAsError = False

Dim lastRow As Integer
Dim lastColumn As Integer
Dim i As Integer
Dim j As Integer
Dim b As Integer
Dim typeAttribut As String
Dim nomAttribut As String
Dim attributObligatoire As Boolean
Dim celluleNonVide As Boolean
Dim DATEMISEENSERVICE As Date
'DATEMISEENSERVICE = Selection.NumberFormat = "yyyy-mm-dd"
'Dim ErreurValidation As Boolean

On Error GoTo ControlError


typeAttribut = ""
nomAttribut = ""
attributObligatoire = False
celluleNonVide = False
lastRow = ActiveWorkbook.Worksheets(2).UsedRange.Rows.Count
lastColumn = ActiveWorkbook.Worksheets(2).UsedRange.Columns.Count


'Pour toute les lignes de chaque colonne appliquer les validations
For j = FIRSTCOLUMN To lastColumn
For i = FIRSTROW To lastRow
'Parcourir toutes les cellules de la ligne pour voir si une cellule est rempli
'si oui appliquer les validations sur les cellules de la lignes
'Ne pas faire cette validation sur la colonne équipement
For b = 3 To lastColumn
If Not IsEmpty(Cells(i, b)) Then
celluleNonVide = True
Exit For
End If
Next b

If celluleNonVide Then
Select Case j
Case COLONNEEQUIPEMENT
If validerEquipement(Cells(i, j)) Then
If validateLength(Cells(i, j), MAXLENGTHEQUIPEMENT, validerEquipement(Cells(i, j)), CHAMPEQUIPEMENT) Then GoTo ControlError
End If
Case COLONNEDESCRIPTION
If validateLength(Cells(i, j), MAXLENGTHDESCRIPTION, False, CHAMPDESCRIPTION) Then GoTo ControlError
Case COLONNEEMPLACEMENT
If validateLength(Cells(i, j), MAXLENGTHEMPLACEMENT, True, CHAMPEMPLACEMENT) Then GoTo ControlError
Case COLONNEPARENT
If validateLength(Cells(i, j), MAXLENGTHPARENT, False, CHAMPPARENT) Then GoTo ControlError
Case COLONNERESPONSABLE
If validateLength(Cells(i, j), MAXLENGTHRESPONSABLE, True, CHAMPRESPONSABLE) Then GoTo ControlError
Case COLONNEDATEMISEENSERVICE
If validateDate(Cells(i, j), DATEMISEENSERVICE, True, CHAMPDATEDEMISEENSERVICE) Then GoTo ControlError
Case COLONNECODEDEPANNE
If validateLength(Cells(i, j), MAXLENGTHCODEPANNE, False, CHAMPCODEDEPANNE) Then GoTo ControlError
'Validation des attributs du modèle de spécifications
Case Else
typeAttribut = validerChampAlphaOuNum(Cells(LIGNETYPEATTRIBUT, j))
nomAttribut = rechercherNomAttribut(Cells(LIGNENOMATTRIBUT, j))
attributObligatoire = validerAttributObligatoire(Cells(LIGNEATTRIBUTOBLIG, j))
If typeAttribut = "Alpha" Then
If validateLength(Cells(i, j), MAXLENGTHATTRIBUTALPHA, attributObligatoire, nomAttribut) Then GoTo ControlError
Else
If validateNumeric(Cells(i, j), MAXLENGTHVATTRIBUTNUM, attributObligatoire, nomAttribut) Then GoTo ControlError
End If
End Select
End If
celluleNonVide = False
Next i
Next j


Exit Function

ControlError:
ValidationChampObligatoire = True
Exit Function

End Function

Merci de votre aide
Nadia

Cliquez pour agrandir...

Hasco à dit:

Re, Nadia,

Ton fichier exemple fonctionne comme tu le souhaites chez moi avec la macro ci-desssous.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
       Dim WorksheetAsError As Boolean
       'Reset
       WorksheetAsError = False
       'Invoke validation
       WorksheetAsError = ValidationAvantSauvegarder()
        If WorksheetAsError = True Then
            Cancel = True
            ThisWorkbook.Saved = True    'tricher en indiquant à excel que le classeur à été sauvegardé.
        Else
            Cancel = False
        End If
End Sub

1 - L'utilisateur veut fermer le fichier
2 - WorksheetAsError = True (Vrai)
Pas de proposition d'enregistrement
Le fichier n'est pas fermé

3 - WorksheetAsError = False (Faux)
Proposition d'enregistrement
Le fichier est fermé.

N'est-ce pas ce que tu souhaites?

Et comme cela fonctionne
ThisWorkbook.Saved = True devient inutile

Réduite à sa plus simple expression ta macro Before_Close devient efficace également comme ci-dessous. Test 100% ok chez moi.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
       Cancel = ValidationAvantSauvegarder()
End Sub

A+

Cliquez pour agrandir...

smotty à dit:

Autant pour moi,

utiliser before close uniquement

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ValidationAvantSauvegarder Then Cancel = True
End Sub

voir fichier joint

Edit:Oups!! désolé Hasco

Cliquez pour agrandir...