Fermer classeur autre instance

Bonjour forum,

J'ai un classeur nommé classeur x ou dans le ThisWorkBook j'ai ce code là, pour ouvrir donc un nouveau classeur (fichier_1.xls) dans une autre instance excel quand j'ouvre classeur x. Ce que je cherche c'est quand je ferme classeur x il ferme aussi classeur (fichier_1.xls) sans enregistrer.

Private Sub Workbook_Open()
On Error GoTo Erreur

    'définitions des variables
    Dim MonClasseur As String
    Dim objExcel As Excel.Application
    Set objExcel = CreateObject("Excel.Application")

    'définition du Classeur à ouvrir
    MonClasseur = "C:\Users\nom_du_pc\Desktop\Nouveau dossier\fichier_1.xls"

    'ouverture du Classeur dans une nouvelle instance d'Excel
    objExcel.Workbooks.Open Filename:=MonClasseur
    objExcel.Visible = True
Exit Sub
Erreur:
    MsgBox "Une erreur est survenue..."
End Sub

J'ai essayé ceci dans ThisWorkBook de classeur x mais cela ne fonctionne absolument pas.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Workbooks("C:\Users\nom_du_pc\Desktop\Nouveau dossier\fichier_1.xls").Close SaveChanges:=False
End Sub

Pouvez vous m'aider ?

Bonjour,

une raison particulière pour utiliser une autre session ?

Dim objExcel As Excel.Application, wb As Workbook

Sub test()
On Error GoTo Erreur

    'définitions des variables
    Dim MonClasseur As String
    'Dim objExcel As Excel.Application
    Set objExcel = CreateObject("Excel.Application")

    'définition du Classeur à ouvrir
    MonClasseur = "E:\tmp\Classeur1.xlsx"

    'ouverture du Classeur dans une nouvelle instance d'Excel
    objExcel.Workbooks.Open Filename:=MonClasseur
    objExcel.Visible = True
    Set wb = objExcel.Workbooks(1)
    'blablabla
    fermer
Exit Sub
Erreur:
    MsgBox "Une erreur est survenue..."
End Sub

Sub fermer()
    wb.Close False
    Set objExcel = Nothing
End Sub

eric

Salut eriiic oui j'ouvre deux instances différentes car sur les deux classeurs il y a des macros et quand l'une fonctionne l'autre non et comme ça les deux classeurs ne sont pas liés.

Merci pour le code