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

fermez fichier directement

  • Initiateur de la discussion Initiateur de la discussion news
  • Date de début Date de début

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 !

news

XLDnaute Impliqué
Bonjour,

j'ai qfch. qui me tracace, que les macros ne sont pas effectuées ou correctement.

Lorsqu'on veut fermer le fichier en clickant sur X
que la Msgbox de Microsoft Excell(voulez vous enregistrer, oui/non/cancel)
n'est plus affiché, mais que les données sont directement enregistrées


et que l'expression "close_file" est effectué si Range("B2")=""

peut-être vous savez comment on effectue ceci,

news
 

Pièces jointes

Re : fermez fichier directement

Bonjour à tous du forum,

l'expression à utiliser est ( y mettre sous ThisWorkbook) :

Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit ' va fermer Excell


et que l'expression "close_file" est effectué si Range("B2")=""
pour tenir compte d'une condition: (y mettre sous ThisWorkbook)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call close_file
End Sub
(y mettre sous module)

If Range("B2") <>0 Then
Application.DisplayAlerts = False
ActiveWorkbook.Save
Else
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit ' va fermer Excell
End If
End Sub
 
- 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

Réponses
5
Affichages
1 K
R
Réponses
1
Affichages
3 K
Réponses
3
Affichages
1 K
S
Réponses
4
Affichages
1 K
Stephane Da Silva
S
M
Réponses
0
Affichages
1 K
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…