Bonjour,

Voilà après une recherche sur le forum et sur google je n'ai pas trouvé ma réponse. Je cherche comment executer une macro d'excel.

Pour info voilà comment je déclare tout :

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
16
17
18
19
20
21
22
23
24
25
Option Explicit
    Dim XL As Excel.Application
    Dim WB As Excel.Workbook
    Dim WS As Excel.Worksheet
    Dim nbNom As Integer
 
Private Sub cmd_quitter_Click()
    WB.Close False
    Set WS = Nothing
    Set WB = Nothing
    'quitter
    XL.Quit
    Set XL = Nothing
    End
End Sub
 
Private Sub Form_Load()
 
    Set XL = New Excel.Application
    XL.Visible = False
 
    Set WB = XL.Workbooks.Open(App.Path & "\Anniversaires.xlsm")
    Set WS = WB.Worksheets("ANNIVERSAIRES")
 
End Sub
Ma macro s'appelle j.

J'ai essayé en mettant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
WS.ListObjects.Application.MacroOptions ("j")
et en affichant mon fichier excel après la macro n'a pas fait son effet.

Merci d'avance à ceux qui pourront m'aider.
Amicalement,
Devock