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

Comment éxécuter _BeforeClose uniquement sur le fichier qui le contient

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Risleure
  • 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 !

S'inscrire
R

Risleure

XLDnaute Occasionnel
Bonjour Le Forum

Après avoir parcouru les fils je n'ai pas trouvé la réponse à une question probablement simple.
J'ai un fichier avec une macro évènementielle à l'ouverture qui liste les fichiers .xls avec un hyperlien permettant d'ouvrir un ou plusieurs de ces fichiers. Tout marche bien. (merci le Forum 😀 )

Ce même fichier possède une macro à la fermeture qui réalise un nettoyage de la feuille active avant de fermer.
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ScreenUpdating = False
        Selection.CurrentRegion.Select
        Selection.ClearContents
        ThisWorkbook.Sheets(1).Cells(1, 1).Select
        ThisWorkbook.Saved = True
    Application.ScreenUpdating = True
End Sub
Tout marche bien si ce fichier est le fichier actif MAIS 🙁 le problème est que [highlight]si je suis sur un autre fichier (plusieurs fichiers ouverts) et que par inadvertance je ferme l'application XL[/code] par un clique sur la croix, la macro s'exécute sur le fichier actif mais qui n'est pas le fichier à nettoyer et plante grave. Je ne vois pas la syntaxe à adopter. C'est probablement ThisWorkbook qui est à remplacer mais par quoi 😕

Merci pour votre aide.
 
Trier par date Trier par votes
Re : Comment éxécuter _BeforeClose uniquement sur le fichier qui le contient

Bonjour Risleure
Essayez :
Code: 
[COLOR="DarkSlateGray"][B]Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.ScreenUpdating = False
   With ThisWorkbook
      .Activate
      ActiveSheet.Selection.CurrentRegion.ClearContents
      .Sheets(1).Cells(1, 1).Select
      .Saved = True
   End With
   Application.ScreenUpdating = True
End Sub[/B][/COLOR]
Attention : pour une fois, je n'ai pas testé.​
ROGER2327
#3130
 
Vote positif 0 Vote négatif
Re : Comment éxécuter _BeforeClose uniquement sur le fichier qui le contient

Bonjour,

Essayes de rajouter cette ligne au début de ta macro
Code: 
Windows(ThisWorkbook.Name).Activate
Non garanti

Caillou
 
Vote positif 0 Vote négatif
Re : Comment éxécuter _BeforeClose uniquement sur le fichier qui le contient

Bonjour à tous.

Peut-être aussi en cours de procédure

Code: 
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
           ActiveWorkbook.Saved = True
           ActiveWorkbook.Close
    End If

Les autres Classeurs retrouveront leur état d'origine.
(Mais attention; sans enregistrement des dernières modifs!!!

Sinon, il faut dire: ActiveWorkbook.Save

A voir...

Cordialement

Yann
 
Vote positif 0 Vote négatif
Re : Comment éxécuter _BeforeClose uniquement sur le fichier qui le contient

Merci Roger, Caillou,Yann-56

Roger, après élimination de
Code: 
 ...
ActiveSheet.Selection.CurrentRegion.ClearContents
...
au milieu du code, la solution semble fonctionner.

Les autres solutions semblent toutes aussi fonctionnelles......j'ai le choix maintenant. Je teste pour choisir

Merci à tous
 
Vote positif 0 Vote négatif
Re : Comment éxécuter _BeforeClose uniquement sur le fichier qui le contient

Re...
J'ai peut-être oublié un point :
Code: 
[COLOR="Red"][B][SIZE="4"].[/SIZE][/B][/COLOR]ActiveSheet.Selection.CurrentRegion.ClearContents
ROGER2327
#3132
 
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

  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
746
nat54
B
  • Résolu(e)
XL 2021 Impossible d'annuler une modification dans un fichier
Réponses
5
Affichages
296
BJ1
B
  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
805
gsx-air
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
637
JJ69
J
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
524
sylvanu
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
845
Chaton77
H
  • Question Question
XL 2021 Couleurs des graphiques qui se remettent par défaut sur fichier partagé, c'est usant
Réponses
1
Affichages
581
Efgé
C
  • Résolu(e)
XL 2016 VBA : Supprimer le caractère "?" qui encadre la propriété "Dimensions" d'un fichier image
Réponses
7
Affichages
544
TooFatBoy
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
2 K
Dranreb
E
  • Question Question
XL 2010 problème macro qui désactive le pavé numérique
2
Réponses
18
Affichages
2 K
Dranreb
A
  • Question Question
XL 2016 Fichier VBA qui ne fonctionne plus..
Réponses
4
Affichages
683
Anr1
A
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
890
crocrocro
C
B
  • Question Question
XL 2016 RESOLU _ Reset le minuteur si Userform Actif et activité sur Userform
Réponses
14
Affichages
814
Dranreb
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
3 K
Usine à gaz
C
  • Question Question
Microsoft 365 Mise à jour fichier après extraction sur ERP
Réponses
9
Affichages
1 K
Gégé-45550
M
  • Résolu(e)
XL 2013 Fermer tous les fichiers ouverts sauf le fichier actif et Personnal
2
Réponses
19
Affichages
3 K
Merlin258413
M
C
  • Question Question
Microsoft 365 Copier des données d'un fichier excel sur un fichier word
Réponses
0
Affichages
1 K
ChristianJ
C
C
  • Question Question
Microsoft 365 enregistrer sous vba un classeur avec valeur cellule et non sur le lien
Réponses
3
Affichages
2 K
Chapichapo
C
Y
  • Question Question
Microsoft 365 Afficher le zéro lors d'un export de données Excel vers un fichier Word
Réponses
9
Affichages
873
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…