Bonjour,
Je cherche =E0 intercepter le message qui dit voulez vous=20
enregistrer les modifications oui/non/annuler. Afin de ne=20
pas effectuer le m=EAme traitement lors de la fermeture=20
suivant si on s=E9lectionne oui ou non. J'ai essay=E9 lui=20
placer une commande d'enregistrement du fichier avant la=20
fermeture mais =E0 priori quand il lit la proc=E9dure=20
Workbook_BeforeClose il renvoie quoi qu'il arrive le=20
message. Si quelqu'un pouvait m'aider =E7a me rendrais grand=20
service d'avance merci !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel HOLDERITH
Salut, a placer dans thisworkbook : Private Sub Workbook_BeforeClose(Cancel As Boolean) FERME = MsgBox("Voulez-vous sauver les modifications ?", vbYesNo) If FERME = vbNo Then End If If FERME = vbYes Then ActiveWorkbook.Save End If If Workbooks.Count > 1 Then Application.DisplayAlerts = False ActiveWindow.Close Else Application.DisplayAlerts = False Application.Quit End If End Sub
ca te convient ? @+ Michel.
"lucio" wrote in message news:08ac01c39f8b$d57d8730$ Bonjour, Je cherche à intercepter le message qui dit voulez vous enregistrer les modifications oui/non/annuler. Afin de ne pas effectuer le même traitement lors de la fermeture suivant si on sélectionne oui ou non. J'ai essayé lui placer une commande d'enregistrement du fichier avant la fermeture mais à priori quand il lit la procédure Workbook_BeforeClose il renvoie quoi qu'il arrive le message. Si quelqu'un pouvait m'aider ça me rendrais grand service d'avance merci !
Salut,
a placer dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
FERME = MsgBox("Voulez-vous sauver les modifications ?", vbYesNo)
If FERME = vbNo Then
End If
If FERME = vbYes Then
ActiveWorkbook.Save
End If
If Workbooks.Count > 1 Then
Application.DisplayAlerts = False
ActiveWindow.Close
Else
Application.DisplayAlerts = False
Application.Quit
End If
End Sub
ca te convient ?
@+
Michel.
"lucio" <lucio@wanadoo.fr> wrote in message
news:08ac01c39f8b$d57d8730$a301280a@phx.gbl...
Bonjour,
Je cherche à intercepter le message qui dit voulez vous
enregistrer les modifications oui/non/annuler. Afin de ne
pas effectuer le même traitement lors de la fermeture
suivant si on sélectionne oui ou non. J'ai essayé lui
placer une commande d'enregistrement du fichier avant la
fermeture mais à priori quand il lit la procédure
Workbook_BeforeClose il renvoie quoi qu'il arrive le
message. Si quelqu'un pouvait m'aider ça me rendrais grand
service d'avance merci !
Salut, a placer dans thisworkbook : Private Sub Workbook_BeforeClose(Cancel As Boolean) FERME = MsgBox("Voulez-vous sauver les modifications ?", vbYesNo) If FERME = vbNo Then End If If FERME = vbYes Then ActiveWorkbook.Save End If If Workbooks.Count > 1 Then Application.DisplayAlerts = False ActiveWindow.Close Else Application.DisplayAlerts = False Application.Quit End If End Sub
ca te convient ? @+ Michel.
"lucio" wrote in message news:08ac01c39f8b$d57d8730$ Bonjour, Je cherche à intercepter le message qui dit voulez vous enregistrer les modifications oui/non/annuler. Afin de ne pas effectuer le même traitement lors de la fermeture suivant si on sélectionne oui ou non. J'ai essayé lui placer une commande d'enregistrement du fichier avant la fermeture mais à priori quand il lit la procédure Workbook_BeforeClose il renvoie quoi qu'il arrive le message. Si quelqu'un pouvait m'aider ça me rendrais grand service d'avance merci !
