Créer une VBA qui insert sa VBA dans un autre fichier Excel

Bonjour,

J'aimerais créer une macro qui :

1) Demande de choisir un fichier Excel (en me laissant le choix (via la ligne de code, par exemple, :"Application.GetOpenFilename()")) qu'on va appeler ici "Source"

2) me demande de choisir un autre fichier Excel qu'on appelle ici "destination"

3) Il efface les macros du fichier Excel "Destination" et ajoute les macro du fichier "Source"

En vous remerciant et me tenant à votre disposition pour tout renseignement,

Yoan

Hello,

une proposition pour les modules uniquement.

Sub Replace_Macro()

Dim sName_Source As Variant, sName_Desti As Variant
Dim VBComp As Object, VBComps As Object
Dim NomFich As String

sName_Source = Application.GetOpenFilename()
sName_Desti = Application.GetOpenFilename()

If sName_Source <> False And sName_Desti <> False Then

    Workbooks.Open FileName:=sName_Source
    For Each LeFich In ActiveWorkbook.VBProject.VBComponents
        Select Case LeFich.Type
            Case 1
                ActiveWorkbook.VBProject.VBComponents(LeFich.Name).Export ThisWorkbook.Path & "\" & LeFich.Name & ".bas"
        End Select
    Next
    ActiveWorkbook.Close False

    Workbooks.Open FileName:=sName_Desti
    Set VBComps = ActiveWorkbook.VBProject.VBComponents
    For Each VBComp In VBComps
        Select Case VBComp.Type
            Case 100
                With VBComp.CodeModule
                .DeleteLines 1, .CountOfLines
                End With
            Case Else
            VBComps.Remove VBComp
        End Select
    Next VBComp

    NomFich = Dir(ThisWorkbook.Path & "\" & "*.bas")
    Do While NomFich <> ""
        Application.VBE.ActiveVBProject.VBComponents.Import (NomFich)
        Kill NomFich
        NomFich = Dir
    Loop

End If

End Sub

R@g

Bonjour Rag02700,

Merci de ta réactivité !

quand je lance la macro, il me marque une erreur sur la ligne

"For Each LeFich In ActiveWorkbook.VBProject.VBComponents"

Serais-tu d'où cela peut venir ?

C'est bon, j'ai accepté les macro

Merci beaucoup !!! Top !