Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Gerer le bouton "annuler"

Gerer le bouton "annuler"

4 réponses
Avatar
Jed
Bonjour,
Suite à qq prob sur w2000 et excel, j'ai du mettre dans mes macros des
module AutoOpen et AutoClose pour fermer et ouvrir mes barres d'outils
personnalisés.
Sub AutoClose()
CommandBars("Modèle CIDEN").Visible = False
End Sub
Quand on clique sur la croix de fermeture la barre se ferme alors que
l'ecran de confirmation s'affiche.
J'aimerai savoir comment coder pour refaire apparaitre la barre quand
l'utilisateur clique sur "Annuler" ?
Merci pour votre aide
Jed
Signaler un problème avec ce contenu

4 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
papou
Bonjour
Pour pouvoir gérer l'annulation de la fermeture, utilise plutôt les
évènements au niveau Workbook :
Auto_Open = Workbook_Open
Auto_Close = Workbook_BeforeClose

Dans ton cas cela donne :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cancel = True Then
Exit Sub
Else: Application.CommandBars("Modèle CIDEN").Visible = False: End If
End Sub
Private Sub Workbook_Open()
Application.CommandBars("Modèle CIDEN").Visible = True
End Sub


Cordialement
Pascal

"Jed" a écrit dans le message news:

Bonjour,
Suite à qq prob sur w2000 et excel, j'ai du mettre dans mes macros des
module AutoOpen et AutoClose pour fermer et ouvrir mes barres d'outils
personnalisés.
Sub AutoClose()
CommandBars("Modèle CIDEN").Visible = False
End Sub
Quand on clique sur la croix de fermeture la barre se ferme alors que
l'ecran de confirmation s'affiche.
J'aimerai savoir comment coder pour refaire apparaitre la barre quand
l'utilisateur clique sur "Annuler" ?
Merci pour votre aide
Jed


Avatar
michdenis
Bonjour Jed,

La seule méthode que je connaisse ....!

'---------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Res As VbMsgBoxResult

Res = MsgBox("Voulez-vous enregistrer les modification au classeur : " & _
Me.Name & " ?", vbYesNoCancel + vbInformation, "Attention")

On Error Resume Next
Select Case Res

Case Is = vbYes
Application.CommandBars("Modèle CIDEN").Visible = False
Me.Save
Cancel = False

Case Is = vbNo
Application.CommandBars("Modèle CIDEN").Visible = False
Me.Saved = True
Cancel = False

Case Is = vbCancel
Cancel = True

End Select

End Sub
'---------------------------------------



Salutations!




"Jed" a écrit dans le message de news:
Bonjour,
Suite à qq prob sur w2000 et excel, j'ai du mettre dans mes macros des
module AutoOpen et AutoClose pour fermer et ouvrir mes barres d'outils
personnalisés.
Sub AutoClose()
CommandBars("Modèle CIDEN").Visible = False
End Sub
Quand on clique sur la croix de fermeture la barre se ferme alors que
l'ecran de confirmation s'affiche.
J'aimerai savoir comment coder pour refaire apparaitre la barre quand
l'utilisateur clique sur "Annuler" ?
Merci pour votre aide
Jed
Avatar
Jed
Bon je suis confus... la question devait être poser pour Word 2000 et je l'ai
poster sur excel. Mon probleme est sur word et non pas excel.
Merci pour vos reponses.
Désolé pour le derangement !
Cordialement
Jed

"papou" wrote:

Bonjour
Pour pouvoir gérer l'annulation de la fermeture, utilise plutôt les
évènements au niveau Workbook :
Auto_Open = Workbook_Open
Auto_Close = Workbook_BeforeClose

Dans ton cas cela donne :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cancel = True Then
Exit Sub
Else: Application.CommandBars("Modèle CIDEN").Visible = False: End If
End Sub
Private Sub Workbook_Open()
Application.CommandBars("Modèle CIDEN").Visible = True
End Sub


Cordialement
Pascal

"Jed" a écrit dans le message news:

Bonjour,
Suite à qq prob sur w2000 et excel, j'ai du mettre dans mes macros des
module AutoOpen et AutoClose pour fermer et ouvrir mes barres d'outils
personnalisés.
Sub AutoClose()
CommandBars("Modèle CIDEN").Visible = False
End Sub
Quand on clique sur la croix de fermeture la barre se ferme alors que
l'ecran de confirmation s'affiche.
J'aimerai savoir comment coder pour refaire apparaitre la barre quand
l'utilisateur clique sur "Annuler" ?
Merci pour votre aide
Jed







Avatar
Jed
Bon je suis confus... la question devait être poser pour Word 2000 et je l'ai
poster sur excel. Mon probleme est sur word et non pas excel.
Merci pour vos reponses.
Désolé pour le derangement !
Cordialement
Jed

"michdenis" wrote:

Bonjour Jed,

La seule méthode que je connaisse ....!

'---------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Res As VbMsgBoxResult

Res = MsgBox("Voulez-vous enregistrer les modification au classeur : " & _
Me.Name & " ?", vbYesNoCancel + vbInformation, "Attention")

On Error Resume Next
Select Case Res

Case Is = vbYes
Application.CommandBars("Modèle CIDEN").Visible = False
Me.Save
Cancel = False

Case Is = vbNo
Application.CommandBars("Modèle CIDEN").Visible = False
Me.Saved = True
Cancel = False

Case Is = vbCancel
Cancel = True

End Select

End Sub
'---------------------------------------



Salutations!




"Jed" a écrit dans le message de news:
Bonjour,
Suite à qq prob sur w2000 et excel, j'ai du mettre dans mes macros des
module AutoOpen et AutoClose pour fermer et ouvrir mes barres d'outils
personnalisés.
Sub AutoClose()
CommandBars("Modèle CIDEN").Visible = False
End Sub
Quand on clique sur la croix de fermeture la barre se ferme alors que
l'ecran de confirmation s'affiche.
J'aimerai savoir comment coder pour refaire apparaitre la barre quand
l'utilisateur clique sur "Annuler" ?
Merci pour votre aide
Jed