Exporter une macro vers d'autres classeurs

[Arpette]

Bonjours à toures et à tous,
j'ai une macro dans ThisWorkbook, qui s'exécute à l'ouverture du classeur. J'aimerais savoir si il est possible de l'exporter vers tous les fichiers d'un dossier.
Merci de votre aide.
@+

Private Sub workbook_open()
Dim DateDepart As Date
Dim J As Integer
Dim m As String
Dim Number As Integer
Dim bx As Long
bx = MsgBox("Veux-tu changer la date", vbYesNo)
If (bx = 6) Then
    Else
    Exit Sub
End If
J = Format(Date, "d", today)
Cells(45, 9) = Format(Date, "dd-mmmm-yyyy")
DateDepart = DateSerial(Year(Date), Month(Date) + 12, J)
Cells(46, 23) = Format(DateDepart, "dd-mmmm-yyyy")
Sheets("Page 2").Select
Cells(4, 12) = Format(Date, "dd-mmmm-yyyy")
Sheets("Page 5").Select
Cells(4, 12) = Format(Date, "dd-mmmm-yyyy")
Sheets("Page 1").Select
Cells(35, 11).Select
End Sub

 

[kiki29]

Re : Exporter une macro vers d'autres classeurs

Salut,la réponse est oui voir pour cela Visual Basic Editor

 

[Hippolite]

Re : Exporter une macro vers d'autres classeurs

Bonjour,
Tu as ici tout ce qu'il faut pour modifier par macro les macros : VisualBasicEditor
A+

 

[Arpette]

Re : Exporter une macro vers d'autres classeurs

Bonjour et merci à vous deux, j'ai regardé, mais je ne gagne pas de temps, puisqu'il faut que les classeurs de destination soient ouverts. Est-ce le bon exemple ?
Merci d'avance.
@+

'Nécessite d'activer la référence "Microsoft Visual Basic for Applications Extensibility 5.3"
Dim Wb As Workbook
Dim oModule As CodeModule
Dim VbComp As VBComponent
Dim x As Integer
Dim Cible As String

Cible = "NomModule"
'Définit le classeur de destination (qui doit être préalablement ouvert).
Set Wb = Workbooks("NomClasseur.xls")

'Charge le module dans le classeur
Set VbComp = Wb.VBProject.VBComponents.Import("C:\ThisWorkbook.cls")
'Le renomme (pour le supprimer plus facilement ultérieurement
VbComp.Name = Cible

Set oModule = VbComp.CodeModule

'Transfère les données chargées dans ThisWorkbook.
'Attention les données existantes dans "ThisWorkbook" sont écrasées.
With Wb.VBProject.VBComponents("ThisWorkbook").CodeModule
    x = .CountOfLines
    .DeleteLines 1, x
    .InsertLines 1, oModule.Lines(1, oModule.CountOfLines)
End With

'Suppression du module précédemment chargé
With Wb.VBProject.VBComponents
    .Remove .Item(Cible)
End With