Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Boîte de dialogue à la fermeture du fichier

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Marie-CoinCoin

XLDnaute Nouveau
Bonjour,
Je souhaiterais créer une boîte de dialogue qui autoriserait ou non la fermeture d'un fichier excel. 😕
En clair, je veux que lorsque l'utilisateur ferme le fichier, une boîte de dialogue s'affiche en disant "avez-vous bien complété l'onglet X?" avec 2 boutons, Oui, qui autoriserait donc la fermeture du fichier, et Non, qui laisserait le fichier ouvert pour que l'utilisateur puisse compléter cet onglet.
Je sais pas du tout si c'est faisable et/ou facile à faire mais je tente ma chance ici... 😀
Merci !
 
Trier par date Trier par votes
Re : Boîte de dialogue à la fermeture du fichier

Bonjour,
Si tu souhaites verrouiller davantage :
il faut utiliser l'évenementiel beforeclose du thisworkbook et mettre cancel à true tant que la validation de sortie n'est pas confirmé , cela traitera aussi la fermeture via la croix rouge de fermeture fenêtre.
 
Vote positif 0 Vote négatif
Re : Boîte de dialogue à la fermeture du fichier

@jofdm : euh, ça fonctionne pas chez moi, je dois avoir un truc décoché qq part, il me dit "Ce classeur a perdu son projet VBA, ses contrôles ActiveX et d'autres fonctionnalités liées à la programmabilité." Tu saurais dire quoi faire ?

@camarchepas : j'suis pas très douée en prog, alors j'ai pour ainsi dire strictement rien compris à ce que tu as dit... 😕 Ceci dit je pense que ta solution va m'intéresser, j'aurais voulu que le truc marche en fermant le fichier par la croix de fermeture de fenêtre, sans rajouter un bouton, l'idée est vraiment qu'on puisse pas sortir du fichier sans répondre oui à la question...
 
Vote positif 0 Vote négatif
Re : Boîte de dialogue à la fermeture du fichier

J'ai toutes les macros activées donc ça doit pas venir de là...
Ceci dit, j'ai un second pb, en cherchant dans l'aide, j'ai trouvé en partie ce que voulait dire camarchepas mais j'ai Visual Basic qui est grisé... Une idée du pb ? (sachant que c'est au bureau, c'est pas impossible qu'un truc soit pas activé pour raisons de sécurité, si c'est ça, j'appellerai mon admin...)
 
Vote positif 0 Vote négatif
Re : Boîte de dialogue à la fermeture du fichier

Voici un fichier Exemple,

Attention les puristes du forum, ce fichier démontre l'utilisation des évenementiels thisworkbook beforeclose.

Donc si vous ne désiréz pas avoir cette macro qui ce déclenche, ouvrez le fichier sans exécuter les macros.😀😀😀
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Boîte de dialogue à la fermeture du fichier

Salue Marie-coincoin et le forum, dans outils > macro complementaires, il faut tout cocher sauf le dernier peut etre, mais il te fodra le Cd office
Suerte
croco
 
Vote positif 0 Vote négatif
Re : Boîte de dialogue à la fermeture du fichier

@camarchepas : chez moi c'est ok, et c'est exactement ça que je veux 🙂
Et euh maintenant, tu peux m'expliquer comment je crée ça sur un fichier existant svp ? 😛 Bon par contre désolée, mais va falloir me parler comme à un vrai boulet hein... 😀

@croco40 : ok merci, je regarderai ça demain au taf...
 
Vote positif 0 Vote négatif
Re : Boîte de dialogue à la fermeture du fichier

Ok,
la première chose est de charger le fichier dans lequel tu veux mettre ce controle de sortie. Ensuite aller dans l'éditeur VBA [Alt] et [F11].
Puis (CTRL] R pour ouvrir l'explorateur de projet.
Là tu double clic sur Thisworkbook, Je pense qu'il est vide puisque les macro n'étaient pas actives.
Ensuite tu recopies ou tu fais un copié / collé du petit bloc suivant :

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Autorise Then UserForm1.Show
Cancel = Not Autorise
End Sub
Cliquez pour agrandir...

Ensuite un clic touche droite de la souris dans l'explorateur de projet
Le menu te propose une option Insertion puis l'on choisi Module

Là écriture dans le module de :

Public Autorise As Boolean
Cliquez pour agrandir...

Reste le Userform ou formulaire :

Reclic droit dans la zone Explorateur de projet :

Insertion Userform

Clic droit sur Userform1 puis code

Le bloc suivant à recopier dans ce corps de module

Option Explicit

Private Sub CommandButton1_Click()
Worksheets("Onglet X").Activate
Me.Hide
End Sub

Private Sub CommandButton2_Click()
Autorise = True
Me.Hide
End Sub

Private Sub UserForm_Initialize()
Autorise = False
End Sub
Cliquez pour agrandir...

Reclic droit sur userform1 puis afficher objet

la une boite à outil va s'ouvrir

clic sur le A( Intitulé), il va te permettre de positionner une zone rectangulaire dans le userform et ou tu pourras écrire ta phrase BlaBla pour demander de renseigner la feuille désignée,

puis à nouveau dans la boite à outil clic sur un petit rectangle appelé bouton de commande

Reportes le dans l'userform et met en forme le texte de ce bouton

Faire à nouveau la même chose pour le bouton de sortie validée.

Faire enfin une sauvegarde du fichier puis il ne reste plus qu'a essayer

Dis moi si tu coinces sur une étape , j'essayerai de développer davantage.

Bon courage

Ensuite
 
Vote positif 0 Vote négatif
Re : Boîte de dialogue à la fermeture du fichier

Bonjour,
Moi c'est le contraire...
Dans ma macro, je demande à fermer un fichier excel mais à chaque fois la boite de dialogue apparait pour répondre si l'on veut enregistrer ou non les modifications, moi je voudrais que cette boite n'apparaisse plus ou que ca réponde NON automatiquement sans être obligé de cliquer sur NON.

Merci d'avance.

JM
 
Vote positif 0 Vote négatif
Re : Boîte de dialogue à la fermeture du fichier

Salut

sans Userform, copier dans Thisworbook,
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If MsgBox("Avez-vous traité la feuille Onglet XXX ?" & Chr(10) & "Si oui, le classeur se ferme de suite !", vbYesNo, "Attention !") = vbNo Then
    Cancel = True
    Sheets("Onglet XXX").Activate
  End If
End Sub

testosteronde, c'est un tout autre sujet.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Boîte de dialogue à la fermeture du fichier

Merci beaucoup de votre aide mais je m'exprime mal.
Ce que je souhaiterai faire, c'est lorsque ma macro execute la fermeture d'un autre fichier Excel on est pas besoin de répondre oui ou non au message :"Voulez vous enregistrer..."
Je ne veux pas que les fichiers de ce second fichier Excel soit modifiés lors de la fermeture et que je n'ai pas besoin de répondre OUI ou NON, que cela se ferme sans enregistrer et sans me le demander surtout.
Merci d'avance.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Question Question
Microsoft 365 Vérification formule à la fermeture du classeur
Réponses
4
Affichages
145
pierrof
P
Q
  • Résolu(e)
XL 2019 Evolution fichier
Réponses
7
Affichages
676
TooFatBoy
P
  • Résolu(e)
XL 2016 Masquer les caractères dans une boîte de dialogue de saisie de mot de passe Excel
Réponses
8
Affichages
1 K
AR MOR
A
P
  • Question Question
Autres Evenements VBA - Fermeture du classeur (Croix grise sur fond jaune) / fermeture de l'application (Croix rouge sur fond blanc)
Réponses
12
Affichages
896
papat0
P
Z
  • Question Question
XL 2010 Empêcher la demande de sauvegarde pour un fichier non modifié utilisant un Complément Xlam
5 6 7
Réponses
96
Affichages
2 K
Zorgloub
Z
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
333
Lu76Fer
F
  • Résolu(e)
Microsoft 365 Code vba pour Ouvrir un fichier et copier son contenu dans un classeur existant à partir de la boite de dialogue
Réponses
3
Affichages
1 K
Faroyo
F
E
  • Question Question
Microsoft 365 Boite de dialogue qui s'affiche quand cellules restent vides
Réponses
6
Affichages
577
Erakmur
E
  • Résolu(e)
XL 2019 alimentation quotidienne : gestion/suivi d'un déficit calorique
2 3
Réponses
39
Affichages
2 K
Phil69970
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
539
spike29
S
B
  • Question Question
XL 2016 Exécution macro à l'ouverture de fichier
Réponses
3
Affichages
665
crocrocro
C
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
623
ali591
A
  • Résolu(e)
Microsoft 365 affichage bizarre à la fermeture de mon "usine à gaz"
2 3
Réponses
38
Affichages
2 K
TooFatBoy
M
  • Résolu(e)
XL 2013 Mémoriser le dernier emplacement de sauvegarde
Réponses
9
Affichages
1 K
M.Ben
M
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
160
Lu76Fer
T
  • Question Question
XL 2019 activer une "CommandButton" à la fermeture du fichier
Réponses
5
Affichages
566
patricktoulon
R
  • Question Question
XL 2019 Macros désactivées à chaque ré-ouverture du fichier Excel
Réponses
4
Affichages
2 K
rodymary
R
Y
  • Résolu(e)
Microsoft 365 Fermeture d'un Fichier Excel si celui-ci est déjà ouvert
Réponses
12
Affichages
1 K
Yoyo60
Y
  • Résolu(e)
XL 2013 un dossier qui ne veut pas etre supprimer avant la fermeture du fichier
2
Réponses
18
Affichages
1 K
patricktoulon
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
677
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…