Fermeture simultanée

[niala]

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

 

[titiborregan5]

Re : Fermeture simultanée

bonjour niala, le forum,

essaie juste avec le nomfichier pour le fermer... pas besoin du chemin il me semble...

 

[niala]

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

 

[titiborregan5]

Re : Fermeture simultanée

sans fichier je ne saurais pas te dire...
Toutefois si tu fermes complètement Excel, s'il y a d'autres fichiers ouverts ça peut être problématique non?

 

[niala]

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.

 

[job75]

Re : Fermeture simultanée

Bonjour niala, titiborregan5,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("liste.xlsx").Close True
ThisWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit
End Sub

A+

 

[niala]

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

 

[titiborregan5]

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

Rendons à Job75 ce qui lui appartient...

Je n'ai pas plus d'idées que ça sur le sujet...
Désolé!