Condition sur deux classeurs

bonjour

j'ai ecris le code suivant permettant de fermer un classeur A ou B selon que l'un ou l'autre soit ouvert .

B etant une copie de A et comprenant donc les macros de A

j'ai transformé la macro du bouton quitter du classeur A et ca donne :

 sub fermeture ()

if activeworbook  is  workbooks("B.xls") then 

Workbooks("B.xls").Close True

else 

Workbooks("A.xls").Close True

end if 

end sub

le soucis et que lorsque A est ouvert que je dois le fermer , j'ai une erreur du type " indice ne coresspond pas à la selection "

Pourriez vous m'aiguiller ou m'indiquer les transformations à faire dans mon code ?

Cordialement

Salut,

J'ai un doute sur l'algo....

En gros si tu execute ta macro elle doit fermer le workbook en cours, si c'est B.xls il ferme b.xls, sinon il ferme A.xls.

Cela revient au même que d'écrire :

Sub fermeture()

ActiveWorkbook.Close  'Ferme le classeur en cours. si c'est a.xls il ferme A.xls, de même si c'est B.

End Sub

D'accord ou pas d'accord ?

++ bigdams

En effet !!! c'est nettement plus judicieux j'avoue , Merci pour cette réponse

Rechercher des sujets similaires à "condition deux classeurs"