Discussion :

[wanou44]

Bonjour,

J'ai fait une macro qui doit copier des cellules d'un classeur dans un autre classeur à la première ligne non vide et protéger toutes ces cellules.
Le copier/coller fonctionne bien ; la feuille qui reçoit les cellules est protégée donc je fais un "Unprotect" avec le mot de passe et après je copie les cellules sur la première ligne non vide.

Le problème, c'est quand j'ai mis le "Unprotect" que ça ne marche plus. Sans protéger/déprotéger la feuille, le collage spécial marche bien mais quand je déprotège le feuille, le collage spécial ne fonctionne plus.

Voici mon bout de code, un petit peu d'aide ne serait pas de refus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub Validation1_Click()
Dim k As Long, r As Long
k = 1 ' donc la 1ere feuille
r = 1 'initialisation de la variable ( on commence de la 1ere ligne)
 
Range("AA3:CC3").Select 'selection des cellules a copier
Selection.Copy ' copie des cellules
 
Workbooks.Open Filename:= _
            "R:\DAI\Gestion de Parc\Action en cours\action parc 2006\CheckList\BaseLre1.xls"
            'ActiveWindow.Visible = False
Workbooks("BaseLre1.xls").Worksheets(1).Activate
Worksheets(1).Unprotect Password:="blabla"
 
 
Do
If IsEmpty(Sheets("feuil" & k).Cells(r, 1)) Then
'on cherche dans la 1ere colonne
Exit Do
End If
r = r + 1
Loop
 
With Workbooks("BaseLre1.xls")
.Worksheets(1).Cells(r, 1).PasteSpecial Paste:=xlValues
.Worksheets(1).Protect Password:="blabla"
.Save
.Close False
End With
 
Workbooks("CE_LRE1.xls").Close False
 
End Sub

[wanou44]

Comme erreur, il met exactement "La méthode PasteSpecial de la classe Range a échoué"

[wanou44]

Au lieu de mettre une protection sur la feuille, est-ce que le faite de mettre une protection à l'ouverture du fichier excel changerait quelque chose ?

[wanou44]

C'est bon, la protection à l'ouverture au lieu de la protection de la feuille a résolu mon problème.