Masquer la boite de dialogue "Enregistrer sous"

Résolu
loic.beubar -  
 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.
A voir également:

2 réponses

Réponse 1 / 2
ozone_ Messages postés 1518 Date d'inscription   Statut Membre Dernière intervention   478
 
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
 
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   Statut Membre Dernière intervention   478
 
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   Statut Membre Dernière intervention  
 
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   Statut Contributeur Dernière intervention   953
 
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   Statut Membre Dernière intervention   478
 
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
 
Merci beaucoup ça marche impeccable, tu viens de m'éviter des heures de recherche et de prise de tête.:)
Merci encore.
0