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
lorsque tu met l'instruction
With Sheets([B19].Value)
B19 correspond a base de donnée hors tu dis avec la feuille base de donnée blablabla
mais ce n'est pas possible car la feulle ne s'apelle pas base de donnée mais BD
change le nonm de ta feuilles pour commencer
A+
je ne comprends pas ta remarque vu que dans la macro caisse1 on ne fait pas référence à la BD et si je fais fonctionner la macro caisse1 par le bouton elle fonctionne mais pas quand on l'appelle par avec une autre macro.
bonjour,
je ne reve pas je vois bien caisse 1 appeler dans ce bout de code et non pas par un bouton.
Code:
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
je te propose plutot ce code:
Code:
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