Pb sur un Active.worksheet

**NewYork** · 09/12/2010, 12h16

Bonjour tout le monde,
J'ai un petit souci sur une de mes macros.
Pour faire simple, j'ai 3 onglets qui doivent être actualisés en J par une macro qui actualise les données des onglets en fonction du jour précédent, donc en utilisant le meme fichier en J-1.
Tout ceci fonctionne parfaitement...
La nouveauté est que j'ai créé un nouvel onglet, en me basant sur la structure d'un des onglets précédents (move-copy) (le nouvel onglet est donc une copie d'un existant). De plus, j'ai adapté la macro en fonction du nouveau nom. Le probleme que j'ai est le suivant : la macro ne veut pas activer ce nouvel onglet alors que la structure et le code sont identiques. voici le code:

Info du début:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sub
' ....

1er onglet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set wb = ThisWorkbook
Set wsB = wb.Worksheets("Name1")
Set wb1 = ActiveWorkbook
Set wsB1 = wb1.Worksheets("Name1")
' ....
' ....

2eme onglet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set wsB = wb.Worksheets("Name2")
Set wsB1 = wb1.Worksheets("Name2")
' ....
' ....

3eme onglet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set wsB = wb.Worksheets("Name3")
Set wsB1 = wb1.Worksheets("Name3")

ok jusque ici, tout ce passe bien...la macro active le worksheet se lance correctement....

4eme onglet (new onglet):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set wsB = wb.Worksheets("Name4")
Set wsB1 = wb1.Worksheets("Name4")' """"bug.....""""""
' ....
' ...
end sub

la macro plante ici....et je n'arrive pas a comprendre pourquoi étant donné que tout est identique (j'ai meme vérifié les paramètres des onglets) à l'exception du nom...

L'indication du bug est le suivant :

Run-time error ' 2147221080 (800401a8)': Automation error

Any ideas????