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 :

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
Par avance, merci pour vos suggestions.