Modifier le code VBA de plusieurs classeurs par programmation

Version imprimable

24/10/2018, 11h57
cschauss

Modifier le code VBA de plusieurs classeurs par programmation

Bonjour,
Je voudrais modifier certaines parties de code de certains modules VBA, voire des modules complet, de mes classeurs (+/- 1200 fichiers) à l'aide d'une procédure VBA.
Comment est-ce que je peux réaliser cela, sachant également que le VBAProject de chaque classeur est protégé par un même mot de passe, que je connais puisque je suis l'auteur de ces classeurs.
Je vous remercie pour votre aide
Charles
24/10/2018, 12h50
patricktoulon

re

re
ne serait il pas mieux de virer tout les modules concernés et faire un xlam que tu referencerais dans chacun de tes classeurs
parceque 1200 classeurs aller pecher/modifier du code dans les modules pfffiu...... ainsi au besoins tu mettrais a jour uniquement le xlam
24/10/2018, 15h42
lucasgaetan

Il me semble que la réponse de patricktoulon est la meilleur.

Mais maintenant que le mal est fait, voici une aide que l'on ma donné il y a pas si longtemps:
https://silkyroad.developpez.com/VBA...cEditor/#LIV-B

Bonne chance
29/10/2018, 18h27
cschauss

RE

Bonjour à tous, et merci pour vos réponses,

Malheureusement le fichier macro complémentaire n'est pas envisageable dans mon cas, parce que je ne suis le seul à utiliser ces fichiers.

Le lien ne fonctionne pas!

Bonne soirée
30/10/2018, 08h28
lucasgaetan

https://silkyroad.developpez.com/VBA...cEditor/#LIV-B ou https://silkyroad.developpez.com/VBA...cEditor/#LIV-B
30/10/2018, 08h56
cschauss

RE

Bonjour,
Merci pour le lien vers l'article très intéressant.
Il me manque une chose: accéder aux modules des classeurs qui sont protégés par mot de passe... (mot de passe que je connais, bien sûr)
Merci pour votre aide et bonne journée
Charles

trouver sur le net et fonctionne sous Excel pro 2013

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
Sub test()
 
Dim WB As Workbook
 
    Set WB = Workbooks("MonClasseur.xlsm")
    Call UnprotectVBProject(WB, "mot de passe")
 
 
End Sub
 
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 "%{F11}"
    SendKeys "^r"
    SendKeys "V"
    DoEvents
    Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
    SendKeys Password
    SendKeys "~~~"
    DoEvents
End Sub

30/10/2018, 10h37
cschauss

RE

Super, merci !
Cette procédure fonctionne, même sous Excel 2016.

MERCI
Bonne journée
Charles
30/10/2018, 12h08
Pierre Fauconnier

Salut.

Derrière le besoin de modifier du code vba par code vba se cache toujours une mauvaise architecture de solution. Excel dispose de xlam pour créer des addins qui pilotent des fichiers. il suffit alors de mettre la nouvelle version du xlam à disposition lors d'une évolution du code. Pour modifier du code vba par vba, il faut que l'utilisateur accepte de cocher une case dans les options de sécurité. Cette solution ne peut donc être retenue puisqu'elle dépend du bon vouloir de l'utilisateur final, et il ne pourrait pas être reproché à cet utilisateur de ne pas vouloir "baisser la garde".