S
St@tman
Guest
Bonsoir le forum
Dans un formulaire sur une feuille, j'ai mis un bouton pour fermer le fichier qui est en plein écran. Voilà le code (que j'ai récupéré)
Sub Quitter()
Msg = "Vous voulez vraiment quitter le programme ?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Programme de St@tman" ' ici c'est clair tu mettra le nom de ton programme
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Msg = "Voulez-vous enregistrer les modifications apportées ?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Programme de St@tman" ' ici c'est clair tu mettra le nom de ton programme
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Call Remettremenu2
Range("A1").Select
ActiveWorkbook.Close SaveChanges:=True
Else
Call Remettremenu2
ActiveWorkbook.Close SaveChanges:=False
End If
Else
End If
End Sub
Mon probléme vient du fait que cela ferme bien le classeur actif mais pas excel.
Au départ il yavait: Application.Quit dans thisworkbook
Private Sub Workbook_Beforeclose()
mais j'ai du le retiré pour cause d'interaction avec une autre macro.
J'ai essayé divers endroit dans la macro quitter() mais pour l'instant je séche
Si quelqu'un à une idée
Merci
@+
Dans un formulaire sur une feuille, j'ai mis un bouton pour fermer le fichier qui est en plein écran. Voilà le code (que j'ai récupéré)
Sub Quitter()
Msg = "Vous voulez vraiment quitter le programme ?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Programme de St@tman" ' ici c'est clair tu mettra le nom de ton programme
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Msg = "Voulez-vous enregistrer les modifications apportées ?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Programme de St@tman" ' ici c'est clair tu mettra le nom de ton programme
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Call Remettremenu2
Range("A1").Select
ActiveWorkbook.Close SaveChanges:=True
Else
Call Remettremenu2
ActiveWorkbook.Close SaveChanges:=False
End If
Else
End If
End Sub
Mon probléme vient du fait que cela ferme bien le classeur actif mais pas excel.
Au départ il yavait: Application.Quit dans thisworkbook
Private Sub Workbook_Beforeclose()
mais j'ai du le retiré pour cause d'interaction avec une autre macro.
J'ai essayé divers endroit dans la macro quitter() mais pour l'instant je séche
Si quelqu'un à une idée
Merci
@+