Fermer automatiquement un classeur quand on ferme un autre

Bonjour le forum

Comment vous allez

J'ai mon code ci-dessous qui me permet d'ouvrir un classeur automatiquement quand j'ouvre l'autre

Private Sub Workbook_Open()
    ThisWorkbook.Application.Visible = False
    Application.WindowState = xlMaximized
    Load UserForm2
    UserForm2.Show 0
    Workbooks.Open ThisWorkbook.Path & "\C-CLIENT.xlsm"
    ThisWorkbook.Activate
End Sub

je voudrais savoir si c'est possible de fermer aussi le classeur quand je ferme le classeur principal

Merci de votre reponse

Salut DoreID,

à tester

Private Sub Workbook_BeforeClose(Cancel as Boolean) 
Windows("C-CLIENT.xlsm").Activate
ActiveWorkbook.Close SaveChanges:=True
End Sub

ou comme ca:

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call fermerWB
End Sub

Dans un Module:

Sub fermerWB()
Windows("C-CLIENT.xlsm").Activate
ActiveWorkbook.Close SaveChanges:=True
End Sub

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

@++

erreur d'exution 9

l'indice n'appartient pas a la selection

Oui la première version me donne aussi le même message d'erreur!

Mais je viens de tester la deuxième version et ca fonctionne bien.

je peux dire que ça a apporté un probleme a mon programme.

ça ferme mais lorsque je veux ouvrir mon classeur principale, ça me met l'erreur et c'est l'option fin seulement qui s'affiche.

je suis obligé de passer par le deuxieme fichier pour ourvir le classeur principal

C'est une erreur d'execution 9

l'indiice n'appartient pas a la sélection

et comment puis-je imaginer ce programme?

peut on voir le code complet?

je vois pas moi pourquoi ce code touchera d'autres codes ....

l'erreur se trouve a ce niveau

deuxieme ligne

Sub fermerWB()
Windows("C-CLIENT.xlsm").Activate
ActiveWorkbook.Close SaveChanges:=True
End Sub

ça va

j'ai fermé et il n'y a plus d'erreur.

Grand merci a vous .

Désolé Aussi

Ce code là je vies de le tester il fonctionne! sauf si le nom du fichier n'est pas correct!

ups c'est bon alors