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

Fermeture simultanée

  • Initiateur de la discussion Initiateur de la discussion niala
  • 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 !

N

niala

Guest
Bonjour,
Quelqu'un peut -il me dire pourquoi cette demande de fermeture du second excel ne fonctionne pas alors que le VBA pour l'ouverture fonctionne bien.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Chemin = "C:\Users\darty\Documents\apcl planning\"
NomFichier = "liste apcl.xlsm"

Application.ScreenUpdating = False
Workbooks(Chemin & NomFichier).Close True
ThisWorkbook.Activate
Application.ScreenUpdating = True

End Sub


D'avance grand merci
 
Re : Fermeture simultanée

Bonjour et merci,
J'ai comme tu me l'as indiqué, supprimer le Chemin et effectivement le second classeur se ferme bien. Par contre à la fin de l'opération, il persiste un Excel ouvert absolument vide.
Pourquoi?
Grand merci
 
Re : Fermeture simultanée

Re,
Je te joins 2 fichiers en exemple.
Le fichier maître est apcl.xlsm.
Quand on l'ouvre, le fichier liste s'ouvre bien.
Quand on ferme le fichier maître, le fichier liste se ferme bien mais il reste un excel vierge de tout ouvert.
 

Pièces jointes

Re : Fermeture simultanée

Bonjour niala, titiborregan5,

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("liste.xlsx").Close True
ThisWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit
End Sub
A+
 
Re : Fermeture simultanée

Bonjour titiborregan5 , niala,

J'ai installé ce que tu as envoyé.
Quand je ferme, j'ai toujours ouvert EXCEL vide.
Je précise que si je ferme par la croix rouge en haut à droite, excel vide reste ouvert. Quand je ferme par Fichier et quitter, les deux classeurs se ferment correctement et je n'ai plus EXCEL vide.
Sais-tu pourquoi?
Merci
 
Re : Fermeture simultanée


Rendons à Job75 ce qui lui appartient...

Je n'ai pas plus d'idées que ça sur le sujet...
Désolé!
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…