Modification massive d'une macro

Version imprimable

01/02/2018, 10h25
dadu35

Modification massive d'une macro

Bonjour,

j'ai des centaines de fichiers possédant tous les mêmes macros.
Est-il possible de créer un fichier Excel renfermant une macro permettant de modifier en automatique
cette macro dans tous les fichiers ?
Procédure envisagée : dérouler les fichiers
- ouvrir le fichier
- supprimer la macro N
- ajouter la macro N1
ou alors supprimer le module renfermant la macro et ajouter un nouveau module renfermant la nouvelle macro.

Merci pour une éventuelle réponse.
Cdt.

Dadu
01/02/2018, 10h31
Phil Free

Boujour,

oui c'est possible mais si ce sont les mêmes fichiers avec la même structure il serait peu être plus simple d'avoir un fichier "modele" qui contient les macros.
Puis tu viendrais lui coller le contenu de chaque fichier suivit d'un enregistrer sous.
01/02/2018, 11h45
Menhir

Citation:

Envoyé par dadu35

Procédure envisagée : dérouler les fichiers
- ouvrir le fichier
- supprimer la macro N
- ajouter la macro N1
ou alors supprimer le module renfermant la macro et ajouter un nouveau module renfermant la nouvelle macro.

Une procédure qui me semble plus judicieuse :
- Mettre N1 dans un fichier xlam qui se charge automatiquement à l'ouverture d'Excel
- Si la macro est lancée par un bouton se trouvant sur une feuille des fichiers en question, faire une macro qui ouvre les fichiers et modifie la macro associée à ce bouton (beaucoup plus simple que d'aller tripatouiller le VBE).

Mais si tu persiste dans la voie que tu as choisie, voici un point de départ :
https://msdn.microsoft.com/library/e...ice.15%29.aspx
22/02/2018, 18h34
dadu35

Citation:

Envoyé par Phil Free

Boujour,

oui c'est possible mais si ce sont les mêmes fichiers avec la même structure il serait peu être plus simple d'avoir un fichier "modele" qui contient les macros.
Puis tu viendrais lui coller le contenu de chaque fichier suivit d'un enregistrer sous.

Bonjour,

réaction tardive de ma part, n'ayant pas reçu de post sur ma messagerie perso.
Je dois absolument modifier la macro X de chaque fichier via une macro externe,
car les fichiers sont en exploitation chez un client.

Ma routine ne fonctionne tjs pas.
Cordialement
Dadu

Bonjour,

Une piste à bien adapter et construire la boucle pour l'ouverture des différents classeurs (voir la fonction Dir() ) :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub ExportImportModule()
 
    Dim VBPMod As Object
    Dim NomModule As String
    Dim Chemin As String
 
    'nom du module
    NomModule = "Module1"
 
    On Error Resume Next
    Set VBPMod = ThisWorkbook.VBProject.VBComponents(NomModule)
 
    If Err <> 0 Then
 
        MsgBox "Le module '" & NomModule & _
        "' n'existe pas dans ce classeur !", , "Module."
        Exit Sub
 
    End If
 
    On Error GoTo 0
 
    Chemin = ThisWorkbook.Path & "\" & NomModule & ".bas"
 
    'exporte le module corrigé dans le dossier du classeur
    VBPMod.Export Chemin
 
    '-------ici une boucle pour ouvrir tous les classeurs...
 
        'suppression du module...(les noms de l'ancien module et du nouveau étant sencé être le même, adapter sinon)
        '"Classeur en cours" est juste un nom bidon qui repésente le classeur qui vient d'être ouvert dans la boucle pour modif
        'pour la boucle, voir la fonction Dir() !
        With Workbooks("Classeur en cours").VBProject
 
            .VBComponents.Remove .VBComponents(NomModule)
 
            'puis import du nouveau module
            .VBComponents.Import Chemin
 
        End With
 
    '------fin de boucle !
 
    'supprimer le module si nécessaire
    'Kill Chemin
 
End Sub

Merci pour cette solution qui adaptée fonctionne super, sauf lorsque le projet VBA du fichier à modifier est verrouillé par MDP connu !
Après diverses recherches, je n'arrive pas à déverrouiller le projet VBA de chaque fichier excel à modifier.
J'ai trouvé ce code mais n'arrive pas à le mettre au point.
Je suis sous excel 2010 et "Accès approuvé au modèle d'objet du projet VBA" est coché

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
Function UnprotectVBProject(Cls As Workbook, ByVal Password As String) As Boolean
'==========================================================================
'     Déverrouillage du projet VBA du classeur en traitement
'==========================================================================
 
Dim vbProj As Object
 
    Set vbProj = Cls.VBProject
 
'Inutile si le projet est déjà déprotégé
    If vbProj.Protection <> 1 Then
        UnprotectVBProject = True
        Exit Function
    Else
        Set Application.VBE.ActiveVBProject = vbProj
        'Saisie du mot de passe avec SendKeys, {ESC} sort de la fenêtre de saisie du mot de passe
        SendKeys Password & "~~~" & "{ESC}" & "NUMLOCK"
 
        Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
 
        If vbProj.Protection <> 1 Then
            SendKeys "{ENTER}" & "{NUMLOCK}"
            UnprotectVBProject = True
        Else
            'Password n'est pas le bon
            UnprotectVBProject = False
            SendKeys "%{F11}", True
        End If
    End If
 
End Function

Avez-vous une idée ?
Je bloque depuis 2 jours.
Cdt
Dadu

01/03/2018, 22h34
clementmarcotte

Excel 2010 a un paquet de mesures de sécurité qui peuvent entraver l'action des macros étrangères. Regarde dans le centre de gestion de la donfidentialité.
04/03/2018, 19h30
mjpmjp
bonjour,
Citation:
Bonjour,

Excel 2007, lorsque tu as enregistré ton fichier, si tu as mis un mot de passe pour "écrire" et "modifier" le fichier,
la ligne de commande est :

Code:

1 2 3 Sub test() Workbooks.Open Filename:="C:CheminFichier.xls", Password:="toto", WriteResPassword:="toto" End Sub

Si tu as mis un mot de passe seulement dans la case "écrire", cette ligne de commande est suffisante.

Code:

1 2 3 Sub test() Workbooks.Open Filename:="C:CheminFichier.xls", Password:="toto" End Sub

--
MichD
@+JP
05/03/2018, 08h44
unparia

Bonjour
Je n'importerais personnellement que les données dans un fichier/modèle contenant déjà MES macros.;)