Modifier une macro avec une autre

Bon bon bon, j'ai du nouveau.

Et c'est n'importe quoi, je comprends pas tout... Quand j'exécute ma fonction d'unlock seule, sans faire de modif après, elle fonctionne (lentement et je perds pendant quelques secondes le contrôle de la souris mais bon, passons).

Par contre, après, j'ai à nouveau un souci avec le nom de ma feuille, comme au début de ce post !!

Voilà ce que je fais :

Code:

---

1 2 3

Workbooks(WRK_FN).Activate UnprotectVBProject Workbooks(WRK_FN), "97654321"

---

Ma fonction Unprotect :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub UnprotectVBProject(wb As Workbook, ByVal Password As String) Dim vbProj As Object   Set vbProj = wb.VBProject   If vbProj.Protection <> 1 Then Exit Sub   Set Application.VBE.ActiveVBProject = vbProj   SendKeys Password & "~~" & "{ESC}" Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute   End Sub

---

Et le code qui suit l'appel à la fonction :

Code:

---

1 2 3 4

With Workbooks(Range("H12").Text).VBProject.VBComponents("Sheet2").CodeModule .ReplaceLine 16, "Worksheets(""BCS Information"").Range(""A1:CC6000"").Select" End With

---

Et je me ramasse une erreur 9 "l'indice n'appartient pas à la sélection", plus une box qui me réclame (encore !) mon mot de passe. C'est à n'y rien comprendre, puisque la fonction Unprotect fonctionne seule...

Déjà, je ne vois pas à quoi te sert cette ligne

Code:

---

Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute

---

"chez moi" elle affiche le menu "Propriétés de VBAProject"
Pour moi, elle ne sert à rien (et, avec ou sans, ça ne change rien au niveau de la protection)
Pour ton pb. Quand tu mets ces lignes

Citation:

---

With Workbooks(Range("H12").Text).VBProject.VBComponents("Sheet2").CodeModule
.ReplaceLine 16, "Worksheets(""BCS Information"").Range(""A1:CC6000"").Select"
End With

---

Ton classeur est-il ouvert ? S'il ne l'est pas, ton message d'erreur a raison, t'as une erreur ;)
S'il est ouvert, pour ces mêmes lignes, essaie en créant une instance de ton book

Code:

---

1 2 3 4 5

Dim CL1 as workbook Set CL1 = Workbooks(Range("H12").Text) With CL1.VBProject.VBComponents("Sheet2").CodeModule .ReplaceLine 16, "Worksheets(""BCS Information"").Range(""A1:CC6000"").Select" End With

---

A... tout... hasard...
Quand nous joins-tu ton fichier ? :mouarf:
A+

J'ai retiré la ligne en question, c'est déjà ça, merci.

Ensuite, j'ai fait quelques modifs et j'ai à nouveau une erreur qui me dit que mon projet doit être deverrouillé pour effectué ça :

Code:

---

1 2	With CL1.VBProject.VBComponents("Sheet2").CodeModule

---

Je joins mon fichier de correction pack( l'autre est trop gros (14 Mo)), qui de toute façon est sensé fonctionner sur n'importe quel classeur, pour la partie deverrouillage du code.

Merci :?