W Wan Guest 10 Novembre 2005 #1 Bonsoir à tous ! Je suis sur un projet mais j'ai besoin de votre aide ! Je veux qu'une macro s'exécute à l'ouverture du classeur pour chaque feuille visible dans le classeur malgré quelque unes qui sont masquées. Workbook_open() dim c as Sheets For each in ActiveWorkbook if c.visible = true then c.select msgbox ' La feuille ' & c & ' est activée ' end if next c end sub Je ne sais si ce code peut marché.
Bonsoir à tous ! Je suis sur un projet mais j'ai besoin de votre aide ! Je veux qu'une macro s'exécute à l'ouverture du classeur pour chaque feuille visible dans le classeur malgré quelque unes qui sont masquées. Workbook_open() dim c as Sheets For each in ActiveWorkbook if c.visible = true then c.select msgbox ' La feuille ' & c & ' est activée ' end if next c end sub Je ne sais si ce code peut marché.
Bernard_XLD XLDnaute Barbatruc Membre du Staff 10 Novembre 2005 #2 Bonjour cela passera mieux comme cela cordialement, A+ Code: Private Sub Workbook_Open() Dim c As Worksheet For Each c In ThisWorkbook.Sheets If c.Visible = True Then c.Select MsgBox ' La feuille ' & c.Name & ' est activée ' End If Next c End Sub Vote positif 0 Vote négatif
Bonjour cela passera mieux comme cela cordialement, A+ Code: Private Sub Workbook_Open() Dim c As Worksheet For Each c In ThisWorkbook.Sheets If c.Visible = True Then c.Select MsgBox ' La feuille ' & c.Name & ' est activée ' End If Next c End Sub
W Wan XLDnaute Nouveau 11 Novembre 2005 #3 Je te remercie ça fonctionne !! Wan Vote positif 0 Vote négatif