Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Fermeture automatique d'Excel

Fermeture automatique d'Excel

2 réponses
Avatar
EmanuelL
Bonjour à Tous,

Encore moi, l'apprentis VBA-Excel.

Comment empêcher ce message lors de la fermetur automatique d'Excel via
VAB?

"Voulez-vous enregistrer les modifications apportées à ..."

Ci-dessous les codes que j'utilise pour fermer automatiquement Excel.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Saved = False
'ActiveWorkbook.Save
End Sub

Private Sub cmdQuitter_Click()
Unload ufmOuvertureClient
SendKeys ("%{F4}")
End Sub

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
MichDenis
Le classeur se ferme sans enregistrer

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub



"EmanuelL" a écrit dans le message de news:

Bonjour à Tous,

Encore moi, l'apprentis VBA-Excel.

Comment empêcher ce message lors de la fermetur automatique d'Excel via
VAB?

"Voulez-vous enregistrer les modifications apportées à ..."

Ci-dessous les codes que j'utilise pour fermer automatiquement Excel.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Saved = False
'ActiveWorkbook.Save
End Sub

Private Sub cmdQuitter_Click()
Unload ufmOuvertureClient
SendKeys ("%{F4}")
End Sub

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Avatar
EmanuelL
Merci de nouveau, impecable, ça marche. ;-)

Le classeur se ferme sans enregistrer

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub



"EmanuelL" a écrit dans le message de news:

Bonjour à Tous,

Encore moi, l'apprentis VBA-Excel.

Comment empêcher ce message lors de la fermetur automatique d'Excel via
VAB?

"Voulez-vous enregistrer les modifications apportées à ..."

Ci-dessous les codes que j'utilise pour fermer automatiquement Excel.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Saved = False
'ActiveWorkbook.Save
End Sub

Private Sub cmdQuitter_Click()
Unload ufmOuvertureClient
SendKeys ("%{F4}")
End Sub


--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org