erreur 9 l'indice n'appartient pas à la sélection.

[jozerebel]

Bonjour à tous,

Je cherche à copier des cellules d'un classeur 1 pour ouvrir un autre classeur et les coller sur la dernière ligne...

J'ai crée un code VBA qui me donne une erreur 9... Quelqu'un peut-il m'aider?

D'avance merci.

Sub majtableaurs()

Range(ActiveCell, ActiveCell.Offset(0, 1)).Copy
Workbooks.Open Filename:="Y:\IR\IL\liaison rs.xls", UpdateLinks:=False
Windows("liaison rs.xls").Activate => erreur 9
Sheets("TF").Select
Range("A1").End(xlDown).Offset(1, 0).Paste
ActiveWorkbook.Save
ActiveWorkbook.Close

Windows("sv.xls").Activate


End Sub

 

[Pierrot93]

Re : erreur 9 l'indice n'appartient pas à la sélection.

Bonjour,

essaye ceci, si le nom du classeur est le bon

Workbooks("liaison rs.xls").Activate

A noter que si tu viens de l'ouvrir, comme il semble être le cas, pas besoin de l'activer celui-ci est le classeur actif...

bon après midi
@+

 

[Robert]

Re : erreur 9 l'indice n'appartient pas à la sélection.

Bonjnour Jozerebel, Pierrot, bonjour le forum,

Peut-ête comme ça :

Sub majtableaurs()
Dim dest As Range
 
Range(ActiveCell, ActiveCell.Offset(0, 1)).Copy

Workbooks.Open Filename:="Y:\IR\IL\liaison rs.xls", UpdateLinks:=False
Set dest = ActiveWorkbook.Sheets("TF").Range("A1").End(xlDown).Offset(1, 0)
dest.PasteSpecial
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("sv.xls").Activate
End Sub

 

[jozerebel]

Re : erreur 9 l'indice n'appartient pas à la sélection.

Re,

Avec le code "Workbooks("liaison rs.xls").Activate",

j'obtiens une erreur 9, mais sur la ligne suivante...


"Sheets("TF").Select"...

une idée?

Robert, je vais essayer ton code.

Merci!

 

[jozerebel]

Re : erreur 9 l'indice n'appartient pas à la sélection.

Robert,

Ton code fonctionne!!!

Merci bcp...

 

[Pierrot93]

Re : erreur 9 l'indice n'appartient pas à la sélection.

Re,

existe t-il une feuille de calcul nommée "TF" dans le classeur actif ??? A noter qu'en vba les select / activate sont rarement utiles...

 

[Pierrot93]

Re : erreur 9 l'indice n'appartient pas à la sélection.

Re,

A noter également, tu auras une erreur aussi ici,

Range("A1").End(xlDown).Offset(1, 0).Paste

la méthode "paste" ne s'appliquant pas à un objet "range" mais à une feuille de calcul...

 

[jozerebel]

Re : erreur 9 l'indice n'appartient pas à la sélection.

Pas de feuille TF dans l'autre dossier...

merci bcp pour l'info PAste.

A bientôt!

 

[Pierrot93]

Re : erreur 9 l'indice n'appartient pas à la sélection.

Re,

Pas de feuille TF dans l'autre dossier...

si l'autre dossier est le classeur actif, ceci explique cela...