macro sur classeur précis

[neka]

bonjour à tous mon pb est le suivant:
en fait je veux utiliser une macro qui est longue sur un classeur spécifié
et qu'elle continue à tourner sur ce classeur même si un autre classeur est ouvert.(actuellement si un autre classeur est ouvert la macro continue de tourner mais sur le classeur qui vient d'être ouvert )

 

[A_binouze_drinker_among_others]

MsgBox ActiveSheet.Shapes(Application.Caller).Parent.Parent.Name

Il te faut je pense réécrire légèrement tes macros, le problème surgit si :
- tu ne spécifies pas le classeur concerné ou si tu te bases sur le classeur actif,
le classeur actif n'étant pas forcément le classeur exécutant la macro


En supposant que ta macro est initialement activée à partir d'un bouton de la barre d'outils formulaire,
tu peux écrire
Set wbks = Workbooks(ActiveSheet.Shapes(Application.Caller).Parent.Parent.Name)

Sinon, tu peux directement écrire :
set wbks=workbooks("tonclasseur.xls")

puis tu peux faire référence à tes objets de la manière qui suit :

with wbks
with sheets(1)
.range("A1").value=10
.range("A1").interior.colorindex=39
end with

with sheets("feuil2")
.range("A1").value=10
.range("A1").interior.colorindex=39
end with
end with

ciao

 

[neka]

thx mais
*la com ActiveSheet.Shapes(Application.Caller).Parent.Parent.Name
ne fonctionne apparement pas
*je n'arrive pas à utiliser la com with de facon correcte
pour ne pas affecter les nouveau workbook

si qq pouvait m'help...