Travail dans plusieurs classeurs

[Gérard]

Bonsoir,

J'ai une application qui travaille avec 5 classeurs.

Dans la feuil1 du ClasseurA j'ouvre un ClasseurB, lorsque je ferme le ClasseurB, je souhaite revenir dans la feuil1 du ClasseurA


Instruction dans le ClasseurB :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("ClasseurA.xls").Activate
ActiveWindow.WindowState = xlMaximized
Workbooks("ClasseurA.xls").Sheets("MENU").Select
End Sub

Ca ne marche pas. Pourquoi ??

Merci d'avance pour votre aide

 

[Virginie©]

Bonjour Gérard le Forum,

Essai ceci dans un module,

Sub Macro_Retour_A()

Windows("Classeur_A.xls").Activate
ActiveWindow.WindowState = xlMaximized
Windows("Classeur_B.xls").Close

End Sub
les deux classeurs doivent être dans le même dossier
Bonne journée

 

[Bernard]

Bonjour Gérard

Modifie la macro de ton classeur B comme suit :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("ClasseurA.xls")").Sheets("MENU").Activate
ActiveWindow.WindowState = xlMaximized
End Sub

Cordialement

Bernard