C
clav
Guest
Hello,
J'essaie de coller des données depuis une feuille non-protégée vers une feuille protégée(data) avec le code suivant :
Rows('3:3').Select
Selection.Copy
Sheets('data').Select
Range('A1').Select
Range('A1').End(xlDown).Offset(1, 0).Select
ActiveSheet.Unprotect
ActiveSheet.Paste
ActiveSheet.Protect
Range('a1').End(xlDown).Offset(1, 0).Select
End Sub
Ca fonctionne tres bien la premiere fois que je le fais, la feuille est déverouillée, les données sont collées, puis la feuille est re-protégée... Mais la 2eme fois que je le fais ca ne marche plus et j'ai un message d'erreur (run time error '1004' : Paste method of Worksheet class failed) et le debuggage souligne la ligne 'ActiveSheet.Paste'...
Si j'enleve les instructions de protection de la feuille 'ActiveSheet.Unprotect' et 'ActiveSheet.Protect', la macro fonctionne tres bien...
Quel est le probleme?
Merci
Jerome
J'essaie de coller des données depuis une feuille non-protégée vers une feuille protégée(data) avec le code suivant :
Rows('3:3').Select
Selection.Copy
Sheets('data').Select
Range('A1').Select
Range('A1').End(xlDown).Offset(1, 0).Select
ActiveSheet.Unprotect
ActiveSheet.Paste
ActiveSheet.Protect
Range('a1').End(xlDown).Offset(1, 0).Select
End Sub
Ca fonctionne tres bien la premiere fois que je le fais, la feuille est déverouillée, les données sont collées, puis la feuille est re-protégée... Mais la 2eme fois que je le fais ca ne marche plus et j'ai un message d'erreur (run time error '1004' : Paste method of Worksheet class failed) et le debuggage souligne la ligne 'ActiveSheet.Paste'...
Si j'enleve les instructions de protection de la feuille 'ActiveSheet.Unprotect' et 'ActiveSheet.Protect', la macro fonctionne tres bien...
Quel est le probleme?
Merci
Jerome