Bonjour
J'ai une macro qui ouvre plusieurs classeurs dans autant d'instances. Par contre, je ne sais pas lancer automatiquement la macro qu'ils contiennent. Si je la lance avec le Workbook_Open, les classeurs s'exécutent en séquence. Je mets ci-dessous mon code :
Par avance, merci pour vos suggestions.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub test() Dim EXLAPP(25) As Object, Chemin As String, Alpha As String, Lettre As String If Left(Application.UserName, 6) = "Daniel" Then Chemin = "d:\Users\dcola\Documents\Donnees\Daniel\mpfe\Jean-Claude Cholet\" Else Chemin = "c:\Mes matchs\" End If Alpha = "abcdefghijklmnopqrstuvwxyz" For i = 0 To 25 Lettre = UCase(Mid(Alpha, i + 1, 1)) Set EXLAPP(i) = CreateObject("Excel.Application") EXLAPP(i).Visible = True EXLAPP(i).Workbooks.Open Chemin & "Liste des doublons_" & Lettre & ".xlsm" Next i End Sub
Partager