X
Xtian (du Québec)
Guest
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)
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)