lancer une macro a l'ouverture d'exelle

[gege21]

bonsoir,

je voudrai lancer cette macro a l'ouverture d'excel

Private Sub Cacher2_Click()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Activate
ActiveWindow.DisplayHeadings = False
Next
End Sub

mais cela ne marche pas avec
dans thisworkbook

Private Sub Workbook_Open()
  Call cacher2
End Sub

ou et mon erreur

 

[bérylion]

Re : lancer une macro a l'ouverture d'exelle

Salut

c'est normal.
tu ne peux pas appeler directement une private sub.

plusieurs solutions :

Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Activate
ActiveWindow.DisplayHeadings = False
Next
End Sub

ou encore :

Private Sub Workbook_Open()
  Call cacher2
End Sub

Sub Cacher2()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Activate
ActiveWindow.DisplayHeadings = False
Next
End Sub

mais si la sub fini par "_click" ça sent la procédure événementielle d'un bouton sur une feuille ?!

dans ce cas tu peux utiliser qqch comme :

Private Sub Workbook_Open()
CallByName Worksheets("Feuil1"), Cacher2_Click, VbMethod
End Sub

en changeant Feuil1 par le nom de la feuille contenant le btn.

😕

 

[gege21]

Re : lancer une macro a l'ouverture d'exelle

bonjours bérylion et merci pour la réponse