Modifier des macros par macros????

Sébastien

XLDnaute Junior
Bonjour

J'éprouve quelques difficultés pour la mise à jour d'une application que j'ai réalisé en VBA.
Je souhaite envoyer un fichier Excel contenant une macro qui permettra la mise à jour de l'appli.
Mon objectif est donc de pouvoir modifier des macros par macros. Le plus simple étant de supprimer le code du module et de coller le nouveau.
J ai trouvé des informations très satisfaisantes pour mon problème ici :
https://www.excel-downloads.com/threads/effacement-d-une-macro.4689/

J ai fais des petits test j'arrive à faire fonctionner ce code, néanmoins j ai quelques soucis :
-Comment ouvrir un autre fichier Excel, par macro, en désactivant les macros de celui qu on ouvre? (si c'est pas clair ça...)
Puis ouvrir le Vbe avec le mot de passe
-J ai tente de cree un nouveau fichier ('MAJ')dans lequel je place en workbookopen dans le thisworkbook, le code suivant
:
Sub Workbook_Open()
Application.ScreenUpdating = False
RepertDebut = Workbooks('MAJ.xls').Path
Workbooks.Open Filename:=RepertDebut & '\\fichier à mettre à jour.xls'

'Suppression du code du module 1 du fichier à mettre a jour
Workbooks('fichier à mettre à jour.xls').Activate
With ActiveWorkbook.VBProject.VBComponents('Module1').CodeModule
.deleteLines 1, .CountOfLines
.CodePane.Window.Close
End With

'Copie du nouveau code du module 1 à partir de ce fichier MAJ
Dim S As String, Wbk As Workbook
Workbooks('MAJ.xls').Activate
With ActiveWorkbook.VBProject.VBComponents('Module1').CodeModule
S = .Lines(1, .CountOfLines)
End With

Set Wbk = Workbooks('fichier à mettre à jour.xls')
'Wbk.VBProject.VBComponents.Add 1
With Wbk.VBProject.VBComponents('Module1').CodeModule
.AddFromString S
End With


Application.ScreenUpdating = True
End Sub

Le problème c est que même après une sauvegarde , quand j'ouvre ce fichier MAJ, le thisworkbook est vide!!!!


Merci d avance

Sébastien
 

Discussions similaires

Réponses
1
Affichages
311

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG