code "Worbbook open "

[manuBX]

Bonjour
j ai un code qui fonctionne avec un module "Sub Macro1()"mais dès que je le met dans thisworkbook avec "Private Sub Workbook_Open()" il bloque avec : " erreur d execution '9' l indice n appartient pas à la sélection"

Private Sub Workbook_Open()
Workbooks.Open Filename:= _
"C:\Documents and Settings\MM\My Documents\ClasseurA.xls"
Sheets("a").Select ' IL BLOQUE ICI
Sheets("a").Copy after:=Workbooks("ClasseurBase.xls").Sheets(1)
Windows("ClasseurA.xls").Activate
ActiveWindow.Close
End Sub

qu elle est mon erreur et que modifier !!!!!?????
Le but de la macro est
a partir d un fichier à l ouverture de("ClasseurBase.xls)
ouvrir un autre fichier"C:\Documents and Settings\MM\My Documents\ClasseurA.xls"
copier la feuille ("a") et la coller dans ("ClasseurBase.xls) et refermer classeur A

Merci d avance

 

[Pierrot93]

Re : code "Worbbook open "

Bonjour,

Lorsque tu places un code dans le module "thisworkbook", si tu utilises l'objet "sheet" en l'état il considère qu'il est dans ce classeur… Si pas le cas, préciser l'objet concerné :

Workbooks("NomClasseur.xls").Sheets("NomFeuille").Copy

bon après midi
@+

 

[jpb388]

Re : code "Worbbook open "

bonjour
le classeur actif n'est pas celui qui contient la feuille a, dans ce cas il faut précisez le workbook qui contient celle ci
a+

 

[manuBX]

Re : code "Worbbook open "

Merci à vous deux

j ai compriiiiiiiii