Masquer la boite de dialogue "Enregistrer sous" [Résolu/Fermé]

Signaler
-
 loic.beubar -
Bonjour à tous,

Je sollicite votre aide, j'ai deux fichiers Excel (fichier A et fichier B) le fichier A regroupe des centaines de référence d'article (moteur) avec un numéro d'emballage pour chacun d'entre eux, qu'il faut utiliser lors de son conditionnement, le fichier B est un "masque de saisi" qui permet lorsqu'on tape une référence d'un article il me donné le numéro d'emballage qui correspond (le masque marche avec une recherchev) hors mon problème est que quand j'ai finis d'utiliser le fichier B et que je le ferme il me demande d'enregistrer les modification apportées (normal) et j'aimerais masquer cette fenêtre car elle est inutile.
J'ai regardé un peu pour le faire en VBA mais je suis NOVICE dans la matière donc si vous avez une solution je suis preneur.
Merci d'avance.

2 réponses

Messages postés
1424
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
19 février 2021
467
Salut,

Il faut créer une fonction qui contient ce code :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close savechanges:=False
End Sub


Et pour savoir où la créer regarde ici :
https://www.excel-pratique.com/fr/vba/evenements_classeur.php

1f u c4n r34d th1s u r34lly n33d t0 g37 l41d !
Super merci ça marche presque ;)
J'ai rentré le code et il marche par contre quand je ferme le classeur il ne me demande plus si je veux enregistrer les modification ça ok mais il se ferme pas complètement il ferme juste la feuille de calcul, il faut que je reclic une deuxième fois sur la crois pour tout fermer.
Messages postés
1424
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
19 février 2021
467
Ah oui, rajoute
Application.quit

à la suite du code (sur une nouvelle ligne)

Normalement ça peut le faire ! ;)
>
Messages postés
1424
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
19 février 2021

ozone_
J'ai fait comme tu m'as dit mais ça marche pas. Il n'y a que la feuille qui se ferme.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close savechanges:=False
Application.Quit
End Sub
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
862
Salut le Forum

Attention tous les classeurs ouvert seront alors fermés.

Mytå
Messages postés
1424
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
19 février 2021
467
De retour !

Alors essaie simplement :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.Quit
End Sub

Et ça fonctionne !
Merci beaucoup ça marche impeccable, tu viens de m'éviter des heures de recherche et de prise de tête.:)
Merci encore.