Modifier une macro avec une autre

Version imprimable

28/02/2008, 16h55
Teppic

Modifier une macro avec une autre

Bonjour,

J'ai un petit souci, je dois faire une sorte de "Correction Pack" pour plusieurs gros fichiers Excel. Il doit surtout modifier des formules, donc pas de problème, mais j'aimerais également qu'il ajoute une ligne de code dans une des macros associées au fichier.

Est-ce que c'est faisable ? Une macro qui en ouvre une autre pour écrire dedans ?

Merci d'avance !
28/02/2008, 17h16
ouskel'n'or
Oui, tu peux faire ça mais tu dois disposer, dans la macro à modifier, d'une ligne pour placer ta ligne de code. Il ne te reste plus qu'à indiquer le N° de ligne pour insérer ta ligne.
Dans ce code, je modifie le nom d'un répertoire ligne 25 du module 2
Code:

1 2 msg = " Chemin = " & """" & msg & """" Application.VBE.CodePanes(2).CodeModule.ReplaceLine 25, msg
A adapter (!)
A+
29/02/2008, 10h38
Teppic

Merci ! J'aurais besoin de quelques précisions : ma macro doit modifier une macro située dans un autre fichier, préalablement ouvert. Ta ligne de code fonctionnera quand même, sans préciser dans quel fichier taper ?

Et pour modifier du code lié à une feuille précise (genre Sheet2) et non à un module, il faut mettre quoi à la place de CodeModule ?

Merci, merci, merci ! :)

Place ce code dans un module et exécute le.

Code:

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
Sub EcrireCodeNimporteOu()
Dim i, NomFich, x As Long, LeCode(1 To 13)
Dim NomClasseur As String, NoFeuil As String
Application.Workbooks.Add
NomClasseur = ActiveWorkbook.Name
NomFeuil = "Feuil1"
    LeCode(1) = "Private Sub Worksheet_Deactivate()"
    LeCode(2) = "Dim msg"
    LeCode(3) = "    msg = ""Après avoir beaucoup cherché sur le Web"" &  vbcr"
    LeCode(4) = "    msg = msg & ""Et suite à une méchante galère"" &  vbcr"
    LeCode(5) = "    msg = msg & ""J'ai trouvé un site super"" & vbcr"
    LeCode(6) = "    msg = msg & ""Où je peux enfin me défouler"" & vbcr"
    LeCode(7) = "    msg = msg & ""A glisser des trucs perverts"" & vbcr"
    LeCode(8) = "    msg = msg & ""Dans des codes élaborés"" & vbcr"
    LeCode(9) = "    msg = msg & ""Conclusion :"" & vbcr"
    LeCode(10) = "    msg = msg & "" Ne faites jamais confiance dans les codes qu'on vous passe"" & vbcr"
    LeCode(11) = "    msg = msg & "" Assurez-vous de l'avoir compris avant de dire """"Youpi !"""""
    LeCode(12) = "    msgbox msg"
    LeCode(13) = "End sub"
    Set Wb = Workbooks(NomClasseur)
    With Wb.VBProject.VBComponents(NomFeuil).CodeModule
        For i = .CountOfLines To 1 Step -1
            .DeleteLines i
            DoEvents
        Next
        For j = 1 To UBound(LeCode)
            .InsertLines j, LeCode(j)
        Next
    End With
    Workbooks(NomClasseur).Worksheets(2).Select
End Sub

Tu sauras adapter ? ;)
A+

29/02/2008, 12h32
Teppic
C'est malin ça :mrgreen:

Plus sérieusement, avant d'avoir ta réponse j'ai fait d'autres recherches, et j'ai un vrai souci avec le nom de ma feuille on dirait.

Je fais simplement ça :
Code:

1 2 3 4 With ThisWorkbook.VBProject.VBComponents("Sheet2").CodeModule .ReplaceLine 16, "Worksheets(""BCS Information"").Range(""A1:CC6000"").Select" End With
Et j'ai une erreur 9, l'indice n'appartient pas à la sélection. Ca a fonctionné une fois, et là nan. :? Je dois ajouter une ligne pour déprotéger le code ?
Ma feuille est cachée par défaut, mais même affichée, mon code m'envoie promener...
29/02/2008, 13h17
ouskel'n'or

Déjà, là, tu fais ça dans le classeur contenant la macro.
Essaie d'adapter mon code. Lui, il fonctionne. Sinon je vais être obligé de te poser plein de nouvelles questions.
Ex :
Tu as bien une feuille qui se nomme "Sheet2"
Tu as bien une ligne 19 ?
As-tu une feuille nommée "BCS Information" dans ton classeur ?
etc.
A+

PS - Je pense "de préférence" que la feuille "BCS Information" n'existe pas dans le classeur dans lequel se trouve ta macro.
29/02/2008, 14h20
Teppic

Ben non justement, la macro du classeur 1 doit modifier le code d'une macro du classeur 2.

Classeur 2 dans lequel existent bien ma feuille Sheet2, appelée BCS Information, et dans le code de laquelle figure bien une ligne 16 :(

Edit : bon, je me tais, j'ai viré le "ThisWorkbook" pour mettre Workbooks(monClasseur), et j'ai une nouvelle erreur, qui me dit justement que l'opération est impossible tant que le projet est protégé. Comment on demande le déverouillage ?

Merci :aie:
29/02/2008, 14h31
ouskel'n'or

Relis mon code.
Tu mets ThisWorkbook.VBProject..... etc
ThisWorkbook est le classeur qui contient la macro que tu exécutes, pas le classeur2. Et donc, tu cherches à écrire ton code dans une feuille du classeur Thisworkbook.name
Test ce code, avant ta ligne

Code:

With ThisWorkbook.VBProject.VBComponents("Sheet2").CodeModule

Code:

Msgbox Thisworkbook.name

Tu dois nommer le bon classeur :

Code:

Workbooks("LeBonClasseur.xls"). tcestesrats...
29/02/2008, 14h42
Teppic

Oui oui merci, ça roule, j'ai juste à délocker le code, mais il semblerait que ce ne soit pas possible, pas avec une ligne de code précise.

Si tu as une idée... Sinon, le problème initial est résolue, merci beaucoup !!!
29/02/2008, 14h46
ouskel'n'or

Si, ReplaceLine permet bien de remplacer une ligne précise. Le seul problème est de ne pas se tromper de classeur ni de module.
Fais tout de même très attention, on a vite fait de remplacer une ligne là où il ne faut pas. :(
29/02/2008, 14h53
Teppic

Mh, je me suis mal exprimé en fait, je développe :

L'ajout de la ligne fonctionne, aucun souci.

MAIS, ma macro sera exécutée par des utilisateurs lambda, sur des fichiers dont le code VBA est verrouillé par un mot de passe. Je ne peux pas demander aux utilisateurs d'ouvrir la console de code pour déverrouiller le code à la main, ils n'ont ni les compétences (ah là là), ni le mot de passe. Il faut donc que mon code :
- retire la sécurité sur le code
- ajoute la ligne

Pas besoin de reverrouiller, personne n'y retouchera et la fermeture du fichier entraîne un verrouillage automatique.

Le problème n'est donc plus dans l'ajout de la ligne, qui fonctionne très bien, mais dans le fait qu'Excel refuse la modification du code tant que le projet est verrouillé...
29/02/2008, 14h56
ouskel'n'or

Tu as cherché sur le forum s'il n'y avait pas la possibilité de déverrouiller les macros par le code ?
Je ne suis pas sûr d'une solution mais j'ai vu la question passer.
Je regarde mais sans garantie.
A+
29/02/2008, 15h02
ouskel'n'or

Trouvé !
Regarde ici
A+
29/02/2008, 15h37
Teppic

Parfait !!! Ca fonctionne nickel, merci ouskel'n'or !! :king:
29/02/2008, 16h10
Teppic

Et merde, en fait non, ça marche pas, j'ai une erreur qui me dit que le code est protégé, plus une boite de dialogue qui me réclame le code de déprotection, malgré le fait qu'il figure dans le code de ma macro sensée déverrouiller justement :evilred:

Edit : je fais quelques recherches, je posterai quand je serai vraiment vraiment bloqué ou quand j'aurai la solution, pour information et pour la postérité ;)

Bon, je reviens vers vous après avoir creuser le sujet.

J'utilise la fonction suivante pour déprotéger mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 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 & "~~", True Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute End Sub
Cette fonction est retrouvée sur plein de forums, et semble fonctionner, mais dans mon cas, elle me sort un "mot de passe incorrect" et me redemande de le taper, alors qu'il est sensé être en dur dans le code et ne pas apparaître aux yeux des utilisateurs qui vont lancer la macro, justement. Il est hors de question que ce soit eux qui le tapent à la main

Voilà comment j'appelle ma fonction :
Code:

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 35 Sub CorrectionPack1() 'On Error GoTo ERROR_NO_FILE WRK_FN = Range("H12").Text UnprotectVBProject Workbooks(WRK_FN), "97654321" With Workbooks(Range("H12").Text).VBProject.VBComponents("Sheet2").CodeModule .ReplaceLine 16, "Worksheets(""BCS Information"").Range(""A1:CC6000"").Select" End With WRK_SN = "Cover" Workbooks(WRK_FN).Sheets(WRK_SN).Unprotect Password:="14728369" Workbooks(WRK_FN).Sheets(WRK_SN).Range("A44").Value = "FC1.MTS.29022008" Workbooks(WRK_FN).Sheets(WRK_SN).Protect Password:="14728369", DrawingObjects:=True, Contents:=True, Scenarios:=True ProtectVBProject Workbooks(WRK_FN), "97654321" Workbooks(WRK_FN).Save GoTo NO_ERROR ERROR_NO_FILE: MsgBox ("No file found! - Please open the file before continue.") Exit Sub NO_ERROR: MsgBox ("MTS File has been updated & saved !!!") End Sub
Le mot de passe en dur est évidemment le bon, mais ça ne passe pas. Au secouuuuuuuuuuuuuuuuuuuurs !!! :(:(:(

03/03/2008, 10h37
ouskel'n'or

Je n'ai jamais eu à le faire mais as-tu testé en plaçant l'appel à ta procédure dans ThisWorkbook ? (au de le placer dans la macro CorrectionPack1() )
A tout hasard.
Je vais tester ta macro qui "va bien" sur tous les forum ;)
A+

Je tente de placer des choses dans ThisWorkbook, mais comme je suis une bille en VBA (hum, j'ai pas beaucoup pratiqué je veux dire), ça ne fonctionne pas, l'exécution ne passe pas par mon code.

Dans le code de ma feuille Excel (il n'y en a qu'une), j'ai :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub cmdUnprotectCharts_Click() On Error GoTo ERROR_NO_FILE CorrectionPack1 Exit Sub ERROR_NO_FILE: MsgBox ("No file found! - Please open the file before continue.") End Sub
J'ai essayé de mettre la même chose dans Thisworkbook, mais peine perdue. Je sais, je pose quelques questions bêtes, mais comment je dois m'y prendre, please ?

Merci ouskel'n'or :aie:

03/03/2008, 11h35
ouskel'n'or

Ne cherche pas, ça ne fonctionne pas mieux (V2003)
En outre, je pense que si tu souhaites accéder au code, c'est pour une maintenance éventuelle, et donc pas à l'ouverture du fichier...
Je ne vais pas m'éterniser sur la question, alors je te souhaite de trouver LA solution... mais si tu trouves, n'hésite pas à la mettre sur le forum et même dans "Contribuez VBA-Excel" qu'on ne meure pas idiot :mouarf:
Alors, courage ! ;)
03/03/2008, 11h39
Teppic

OK OK, je suis sous 2003 aussi...

Bien, je continue, et si je trouve, je contribuerai, merci en tout cas :)

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+

04/03/2008, 10h24
Teppic

1 pièce(s) jointe(s)
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 :?