A
amandine
Guest
Bonjour à tous
Dans mon classeur j'ai mis la procedure Workbook_BeforeClose,mais j'aimerais arreter ce code si B4>0
J'ai bien essayer ce code mais sans succés
merci et bon dimanche à tous
amandine
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim rep
If Range('b4') > 0 Then
reponse = MsgBox('VOUS N'AVEZ PAS ARCHIVER VOTRE DEMANDE' & Chr(13) & '' & Chr(13) & 'OU IL Y A UNE DONNEE DANS UN CELLULE', , 'mjm')
Exit Sub
End If
Application.Quit
End Sub [file name=Classeur2_20060129104102.zip size=7252]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060129104102.zip[/file]
Dans mon classeur j'ai mis la procedure Workbook_BeforeClose,mais j'aimerais arreter ce code si B4>0
J'ai bien essayer ce code mais sans succés
merci et bon dimanche à tous
amandine
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim rep
If Range('b4') > 0 Then
reponse = MsgBox('VOUS N'AVEZ PAS ARCHIVER VOTRE DEMANDE' & Chr(13) & '' & Chr(13) & 'OU IL Y A UNE DONNEE DANS UN CELLULE', , 'mjm')
Exit Sub
End If
Application.Quit
End Sub [file name=Classeur2_20060129104102.zip size=7252]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060129104102.zip[/file]