Sujet Précédent Sujet Suivant

Masquer la boite de dialogue "Enregistrer sous"

Résolu/Fermé
loic.beubar - 12 févr. 2015 à 18:57
 loic.beubar - 12 févr. 2015 à 20:51
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.
A voir également:

2 réponses

Réponse 1 / 2
ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023 478
Modifié par ozone_ le 12/02/2015 à 19:07
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 !
0
loic.beubar
12 févr. 2015 à 19:21
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.
0
ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023 478
12 févr. 2015 à 19:38
Ah oui, rajoute 
Application.quit

à la suite du code (sur une nouvelle ligne)

Normalement ça peut le faire ! ;)
0
loic.beubar > ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023
Modifié par loic.beubar le 12/02/2015 à 20:03
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
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
12 févr. 2015 à 19:47
Salut le Forum

Attention tous les classeurs ouvert seront alors fermés.

Mytå
0
Réponse 2 / 2
ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023 478
12 févr. 2015 à 20:30
De retour !

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

Et là ça fonctionne !
0
loic.beubar
12 févr. 2015 à 20:51
Merci beaucoup ça marche impeccable, tu viens de m'éviter des heures de recherche et de prise de tête.:)
Merci encore.
0

Discussions similaires

Ouvrir ma boite hotmail pour accéder à mes mails
mykette06 -
noella4646 -

4 réponses
Ouvrir ma boîte de réception Hotmail
lachlak -
Pape -

8 réponses
Comment ouvrir ma boîte mail ?
Erol -
Ww -

11 réponses