if msgbox("la caisse journalière a-t-elle été enregistrée?"),vbyesno=vbyes then
activeworbook.close
else:
call macro
end if
MsgBox "la caisse journalière a-t-elle été enregistrée?", vbYesNo
If vbYes Then [B]activeworbook.Close[/B]
If vbNo Then Call macro
Activeworkbook.closeBonsoir,
après essai dans mon fichier cela m'indiquait plusieurs erreurs (écrit en rouge)
je l'ai modifiée ainsi mais elle bloque à hauteur de activewokbook.close
Code:MsgBox "la caisse journalière a-t-elle été enregistrée?", vbYesNo If vbYes Then [B][COLOR="Red"]activeworbook.Close[/COLOR][/B] If vbNo Then Call macro
Bpol
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("intro").Select
'and
MsgBox "la caisse journalière a-t-elle été enregistrée?", vbYesNo
If vbYes Then ActiveWorkbook.Close
If vbNo Then [COLOR="Red"]Call caisse1[/COLOR]
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("intro").Select
If MsgBox("la caisse journalière a-t-elle été enregistrée?", vbYesNo) <> vbYes Then Call caisse1
End Sub