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 :
Ma macro s'appelle j.
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
J'ai essayé en mettant :
et en affichant mon fichier excel après la macro n'a pas fait son effet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part WS.ListObjects.Application.MacroOptions ("j")
Merci d'avance à ceux qui pourront m'aider.
Amicalement,
Devock
Partager