Mettre à jour le code VBA de plusieurs fichiers Excel ?

[Phong]

Bonjour à tous,

J'ai un fichier Excel avec une macro que j'ai diffusé à plusieurs utilisateurs. J'ai maintenant un répertoire avec une cinquantaine de fichiers Excel avec cette macro. Or je souhaiterai effectuer une modification du code VBA (pour apporter des améliorations ou correction de bug) de tous ces fichier.

Est-il possible de remplacer le code VBA des cinquante fichiers xls par une macro afin d'éviter d'ouvrir chaque fichier et coller la modification ?

Merci !

 

[MJ13]

Re : Mettre à jour le code VBA de plusieurs fichiers Excel ?

Bonjour Phong,

Voici un code que m'avait donné Pierrot93.
Nomact et nomact2 sont les noms des fichiers (un a le code et l'autre reçoit le code). Par contre des tests sont à faire.

Sub AjouterCode()
iajcode = Workbooks(nomact).VBProject.VBComponents("Thisworkbook").CodeModule.CountOfLines
Workbooks(nomact2).VBProject.VBComponents("Thisworkbook").CodeModule.AddFromString Workbooks(nomact).VBProject.VBComponents("Thisworkbook").CodeModule.Lines(1, iajcode)
End Sub

 

[MJ13]

Re : Mettre à jour le code VBA de plusieurs fichiers Excel ?

Re bonj

Voici un exemple avec 2 fichiers a copier sur ton Disque Dur.
En cliquant sur le bouton.
Le code de Thisworkbook est recopié dans Thisworkbook du fichier dont le nom se trouve en A1.

 

[MJ13]

Re : Mettre à jour le code VBA de plusieurs fichiers Excel ?

Re bonj

Et un autre pour le fun avec du code de MichelXLD que je salue pour lister les procédures d'un classeur et les noms de procédures.

 

[Phong]

Re : Mettre à jour le code VBA de plusieurs fichiers Excel ?

Merci d'avoir répondu aussi rapidement !!! C'est bien ça que je cherchais !!

Et merci aussi pour la macro listeMacro, c'est bien utile !!!

Si ça peut aider quelqu'un, en cherchant un peu sur les VBComponents j'ai trouvé ça :
Visual Basic Editor - Club d'entraide des développeurs francophones

 

[MJ13]

Re : Mettre à jour le code VBA de plusieurs fichiers Excel ?

Re

Merci d'avoir répondu aussi rapidement !!! C'est bien ça que je cherchais !!

Mais si je l'ai fait si rapidement c'est grâce au code de Pierrot93 et de MichelXLD (deux références sur XLD).

D'aileurs le lien que tu donnes, c'est aussi de MichelXLD.

Et puis je l'ai fait aussi un peu pour moi (cela faisait longtemps que je voulais faire ce petit programme).

Bon Week-end.

 

[teckdem]

Bonjour, serait-il possible d'avoir ce code pour office 2016 ou plus s'il vous plait ?
Car j'ai une erreur d'incompatibilité quand je veux lancer le macro.

 

[MJ13]

Bonjour Teckdem

J'ai testé sur un Xl2016 et je n'ai pas eu de problèmes.

Il faut bien sûr que le nom du fichier qui réceptionne le code de Thisworkbook soit en A1 du fichier AjoutCode.xls. Il faut mettre aussi cocher "Approuvé le modèle VBA" dans les options de sécurité.

 

[VIARD]

Bonjours MJ13, phong, Teckdem et à tous

Un petit programme arborescence, si vous êtes intéressé.
Ps: Salut MJ13 qui m'a bien aidé pour d'autres programmes.

cordialement
Jean-Paul

 

[teckdem]

Merci pour vos réponses chers amis, mais juste en lançant la macro j’ai une erreur d’exécution 13. Incompatibilité de type au niveau du code « iajcode = .... »

 

[MJ13]

Re, Bonjour Viard

Merci Viard pour le partage.

@teckdem: tu n'aurais pas un option explicit dans le code par hasard? Sinon, joint ton fichier anomymisé.