arreter Private Sub Workbook_BeforeClose

Question

Bonjour,
je souhaite pouvoir, verifier la valeur d'une cellule ,avec la fonction "Private Sub Workbook_BeforeClose(Cancel As Boolean)"
si la valeur de la cellule est = "BON" le fichier se sauvegarde et se ferme
si la valeur de la cellule n'est pas = "BON" le fichier ne se sauvegarde pas et ne se ferme pas

voici le bout de programme que j'ai essaye de faire ,qui ne marche pas !!! , si la valeur de la cellule n'est pas = "BON" le fichier se ferme quand meme :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    verif = Range("H1")
    If verif = ("BON") Then
    ActiveWorkbook.Save
    Else
    Exit Sub
    End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
verif = ("BON")
End Sub

je tourne en rond depuis hier , merci pour votre aide 
didou

bugger · Answer

Salut.
Essaies cela :

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
verif = Range("H1") .Value 
If verif = "BON")Then 
ActiveWorkbook.Save 
Else 
Exit Sub 
End If 
End Sub 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
verif = "BON"

End Sub 

Bonne chance.

Emmanuel

Arreter Private Sub Workbook_BeforeClose

1 réponse

Discussions similaires

Newsletters