ActiveSheet.paste erreur d'exécution "1004"

[Xtian (du Québec)]

Bonjour le Forum

Votre aide SVP. J'ai un code qui copie plusieurs lignes et plusieurs colonnes d'un fichier à un autre. Les deux fichiers sont protégés et j'utilise le code "Unprotect" et "Protect" durant mon opération. Le code arrête toujours à ActiveSheet.paste et je ne comprends pas pourquoi. Voici à quoi ressemble mon code à partir du fichier1.xls actif


ActiveSheet.Unprotect
Sheets ("B").select 'Sélection de la zone à copier
Range("B3:H3").select
Range(Selection, Selection.End(xlDown)).select
Selection.copy

Workbooks.open Filename:="C:\Fichier2.xls"
Sheets ("A").select
ActiveSheet.Unprotect
Range("B65000").select
Selection.End(xlUp).select
ActiveCell.Offset(rowoffset:=1,columnoffset:=0).activate
ActiveSheet.paste
Range("B4").select
ActiveSheet.Protect
ActiveSheet.Save
ActiveSheet.Close

Range("B3").select 'Dans le fichier1
ActiveSheet.Protect

Je ne sais vraiment pas comment corriger ce problème. Merci à tous pour votre aide.

Xtian (du Québec)

 

[Moa]

Salut Xtian !

Je n'ai pas regardé en détail ta macro, mais j'ai déjà eu ce problème.

Et en fait, je ne sais pas pourquoi, mais le fait d'ouvrir un classeur, parfois vide le presse-papier.

Il suffit d'inverser les ordres macro, cad d'ouvrir d'abord ton classeur "Fichier2" et puis ensuite de faire le Select et Copy de ta feuille de départ.

Puis, naturellement ton ActiveSheet.Paste

@ +

Moa

 

[Xtian (du Québec)]

Moa, c'est Yabadabadoo

Merci beaucoup...J'ai inversé mes actions et tout fonctionne parfaitement. Je m'en souviendrai...ce n'était pas la première fois que je rencontrais ce genre de problème et je trouvais une solution simplement par hasard, je ne connaissais pas la raison initiale. Maintenant je corrigerai ce genre de problème en toute connaissance de cause...

Merci encore !!!

@+++
Xtian (du Québec)