changer macros de X fichier par une macro.

sanphe à dit:

Bonjour,

J'ai plusieurs centaines de fichiers qui contiennes les mêmes macro. Je dois mettre à jour ces macros. J'ai un fichier contenant la macro modifiée et que voudrais copier sur l'ensemble des fichiers.

Je souhaite donc avoir une macro qui copierait la macro d'origine sur l'ensemble des fichiers d'un répertoire.

Merci de votre aide.

Philippe

Cliquez pour agrandir...

Sub testmodifmacro()
    Dim Wbk As Workbook, NomProc$, NomModule$, LiModif&, TxtModif$
    Application.ScreenUpdating = False
    For i = Sheets(1).Range("A65536").End(xlUp).Row To 1 Step -1
        fname = Sheets(1).Cells(i, 1).Value & ".xls"
        Workbooks.Open Filename:=fname
        Set Wbk = Workbooks(fname)
        NomProc = "MacroAModifier"
        NomModule = "Module1"
        LiModif = 5
        TxtModif = "    MsgBox a,,testeur"
        'modifie la ligne 5 de la macro "MacroAModifier"
        ModifMacro Wbk, NomProc, NomModule, LiModif, TxtModif
        Workbooks(fname).Save
        Workbooks(fname).Close
        Workbooks("modifclasseur.xls").Activate
    Next
    Application.ScreenUpdating = True
End Sub


Sub ModifMacro(Classeur As Workbook, NomMacro$, Module$, Ligne&, Modif$)
    Dim LiDeb&
    With Classeur.VBProject.VBComponents(Module).CodeModule
        LiDeb = .ProcBodyLine(NomMacro, 0)
        .DeleteLines LiDeb + Ligne, 1
        .InsertLines LiDeb + Ligne, Modif
    End With

End Sub

sanphe à dit:

Bonjour Gilbert,

J'ai mis :
fname = "\\srvma071\production\P10\Applications\cartes\test1\original.xls"
Je déroule le programme en pas a pas et j'ai une erreur d'execution 9 (lindice n'appartient pas à la selection sur la ligne "Set Wbk = Workbooks(fname)"

Philippe

Cliquez pour agrandir...

sanphe à dit:

Gilbert,

Jai rajouté
Chemin = "\\srvma071\production\P10\Applications\cartes\test1\"
fname = Dir(Chemin & "original.xls")

Le premier programme semble s'exectuer correctement par contre quand j'arrive sur le 2eme sous programme, j'ai une erreur 1004 sur la ligne "With Classeur.VBProject.VBComponents(Module).CodeModule"

message d'erreur " l'acces par programme au projet visual basique n'est pas fiable'

Philippe

Cliquez pour agrandir...

sanphe à dit:

Gilbert,

Ma sécurité etais sur basse, je l'ai mis en moyenne mais ça n'a rien changé.

Je ne trouve pas l'écran des references. ou est il situé ?

Philippe

Cliquez pour agrandir...

PascalXLD à dit:

Bonjour

Merci d'éviter de poster des fichiers ou images sur cjoint car leur durée de vie est limitée. Donc tes références dans quelques semaines nous ne pourrons pas les voir.
De plus vous avez la possibilité maintenant de poster des images ce sera plus facile pour tout le monde

Bonne journée

Cliquez pour agrandir...

sanphe à dit:

Gilbert,

J'ai modifié la sécurité (faire confiance...)

et J'ai reussi à dérouler les macros et rajouter la ligne de test, Il me reste maintenant a prendre les fichiers un par un du répertoire. Je n'utiliserais pas le champs de la colonne A. Je pense avoir la macro nécessaire pour cela.

Merci beaucoup de votre aide, j'espere y arriver tout seul maintenant.

Bonne journée.

Philippe

Cliquez pour agrandir...