Soucis avec BeforeClose

[Nicko]

Bonjour à tous,

Voila mon code, qui est placé dans ThisWorkBook du classeur "Caisse"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ferme listing client
Windows("Listing Client.xls").Activate
ActiveWindow.Close

Ce que je veux, c'est que lorsque je ferme le classeur "Caisse", il ferme aussi le classeur "Listing Client".

Mais lorsque j'effectue la manip', j'ai un message d'erreur qui me dit :
'L'indice n'appartient pas à la sélection !

Qu'est ce qui cloche !!! ?

 

[Robert]

Re : Soucis avec BeforeClose

Bonjour Nicko, bonjour le forum,

Essaie comme ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ferme listing client
Workbooks("Listing Client.xls").Close
End Sub

 

[porcinet82]

Re : Soucis avec BeforeClose

Salut Nicko, re Robert,

Un peu plus élaboré que l'ami Robert, le code fais une sauvegarde du fichier Caisse et Listing Client et gère également l'erreur si le fichier Listing Client n'est pas ouvert au moment de la fermeture du fihcier Caisse

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
On Error Resume Next
With Workbooks("Listing Client.xls")
    .Save
    .Close
End With
End Sub

@+

 

[Robert]

Re : Soucis avec BeforeClose

Bonjour Nicko, Porcinet, bonjour le forum,

Pffff... Bien sûr ! J'allais le dire justement... Même plus le temps de boire une bière maintenant, c'est un comble !

 

[Nicko]

Re : Soucis avec BeforeClose

Merci pur vos reponses !