lancer une macro a l'ouverture d'exelle

gege21 · 28 Décembre 2010

bonsoir,

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

Code:

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

Code:

Private Sub Workbook_Open()
  Call cacher2
End Sub

ou et mon erreur

bérylion · 28 Décembre 2010

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

Salut

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

plusieurs solutions :

Code:

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

ou encore :

Code:

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 :

Code:

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 · 28 Décembre 2010

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

bonjours bérylion et merci pour la réponse

lancer une macro a l'ouverture d'exelle

gege21

XLDnaute Occasionnel

bérylion

XLDnaute Occasionnel

gege21

XLDnaute Occasionnel

Discussions similaires

lancer une macro a l'ouverture d'exelle

gege21

XLDnaute Occasionnel

bérylion

XLDnaute Occasionnel

gege21

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency