Problème extra fichier(Ô que c'est beau)!!:-)

[Marmotte3]

Lorsque je lance cette commande :

Workbooks("Contact.xls").Sheets("Contact").Rows("3:3").Insert Shift:=xlDown

Il me me une erreur :Subscribt out of range

Je comprend pas pourquoi !!!

 

[STéphane]

je ne sais pas, cette instruction marche chez moi.
tu as combien de lignes occupées dans ta feuille, 65536 ?

 

[Marmotte3]

Non environ 350 !

Normalement y a pas besoin de changer de classeur pour l'executer ???

 

[STéphane]

normalement non.
si besoin est, essaye de l'activer avant en appliquant la méthode activate au classeur

 

[Marmotte3]

J'ai essayer la commande suivante et elle plante aussi !!

Workbooks("Contact.xls").Activate

Je comprend pas !!!

 

[Marmotte3]

En fait c'est chaque fois qu'il y a Workbooks("Contact.xls")... que ça plante !