mutualisation de macro par un seul raccourci

Bonsoir Tene, le Forum

Sans voir de code, il me semble qu'un concept de routine avec 9 macros qui font un traitement similaire sur 9 Feuilles identiques est déjà un peu irrationnel dans la programmation... Mais sait-on jamais...

Une astuce basic : passer des arguments (sous réserves que la structure de tes fichiers le permettent)

Const ThePath As String = 'C:\Documents and Settings\Thierry\Mes documents\'

Sub TheRunner()
Dim WBItem As Variant
Dim WSItem As Variant

    For Each WBItem In Array('Workbook1.xls', 'Workbook2.xls', 'Workbook3.xls')
        TheOpener CStr(WBItem)
            For Each WSItem In Array('Feuil1', 'Feuil2', 'Feuil3')
                TheBigProcedureForNineWorkBooks CStr(WBItem), CStr(WSItem)
            Next WSItem
        TheCloser CStr(WBItem)
    Next WBItem
End Sub

Sub TheOpener(WBName As String)
      Workbooks.Open ThePath & WBName
End Sub

Sub TheBigProcedureForNineWorkBooks(WBName As String, WSName As String)
Dim WB As Workbook
Dim WS As Worksheet

Set WB = Workbooks(WBName)
Set WS = WB.Worksheets(WSName)

    With WS
        .Range('A1') = Date
    End With
End Sub

Sub TheCloser(WBName As String)
    Workbooks(WBName).Close True
End Sub

Cliquez pour agrandir...

Si tu testes ce codes, il te suffit d'adapter la constante et d'avoir trois classeurs dans le Chemin indiqué qui se nommeront comme dans les deux Arrays successives (les trois feuilles aussi of course)


Sinon l'archi-basic serait de faire un Runner comme ceci :

Option Explicit

Sub TheRunner()
Dim TheTimerOfMacro As String

Macro1
    TheTimerOfMacro = TheTimerOfMacro & 'Macro 1 Passée à ' & Now & vbCrLf
Macro2
    TheTimerOfMacro = TheTimerOfMacro & 'Macro 2 Passée à ' & Now & vbCrLf
Macro3
    TheTimerOfMacro = TheTimerOfMacro & 'Macro 3 Passée à ' & Now & vbCrLf
Macro4
    TheTimerOfMacro = TheTimerOfMacro & 'Macro 4 Passée à ' & Now & vbCrLf
Macro5
    TheTimerOfMacro = TheTimerOfMacro & 'Macro 5 Passée à ' & Now & vbCrLf
Macro6
    TheTimerOfMacro = TheTimerOfMacro & 'Macro 6 Passée à ' & Now & vbCrLf
Macro7
    TheTimerOfMacro = TheTimerOfMacro & 'Macro 7 Passée à ' & Now & vbCrLf
Macro8
    TheTimerOfMacro = TheTimerOfMacro & 'Macro 8 Passée à ' & Now & vbCrLf
Macro9
    TheTimerOfMacro = TheTimerOfMacro & 'Macro 9 Passée à ' & Now & vbCrLf

MsgBox 'Les Neufs Macros Ont Roulées ' & vbCrLf & TheTimerOfMacro

End Sub


Sub Macro1()
Dim i As Integer
    For i = 1 To 500
        Range('A' & i) = 'TOTO'
    Next
End Sub

Sub Macro2()
Dim i As Integer
    For i = 1 To 500
        Range('A' & i) = 'TOTO'
    Next
End Sub

Sub Macro3()
Dim i As Integer
    For i = 1 To 500
        Range('A' & i) = 'TOTO'
    Next
End Sub

Sub Macro4()
Dim i As Integer
    For i = 1 To 500
        Range('A' & i) = 'TOTO'
    Next
End Sub

Sub Macro5()
Dim i As Integer
    For i = 1 To 500
        Range('A' & i) = 'TOTO'
    Next
End Sub

Sub Macro6()
Dim i As Integer
    For i = 1 To 500
        Range('A' & i) = 'TOTO'
    Next
End Sub

Sub Macro7()
Dim i As Integer
    For i = 1 To 500
        Range('A' & i) = 'TOTO'
    Next
End Sub

Sub Macro8()
Dim i As Integer
    For i = 1 To 500
        Range('A' & i) = 'TOTO'
    Next
End Sub

Sub Macro9()
Dim i As Integer
    For i = 1 To 500
        Range('A' & i) = 'TOTO'
    Next
End Sub

Cliquez pour agrandir...

Bonne Soirée
[ol]@+Thierry[/ol]