Un choix

[hug88]

Bonjour

j’ai une feuille avec 7 onglets : LU – MA –ME – JE – VE – SA - DI
Quand j’ouvre mon fichier je souhaiterai que la page correspondant à la date du jour s’ouvre en automatique

Merci

 

[WILFRIED]

SAlut Hug88,

De mémoire je sais qu'il existe une fonction qui permet de renvoyer le jour de la semaine. Dans ton thisworkbook (VBA)

Private sub Workbook_open()
dim m_feuille as string
dim m_nb_fls as integer
dim m_jr_sem as integer

m_nb_fls=worksheets.count
m_jr_sem=weekday(now)
select case m_jr_sem
case 1
sheets("DI").select
case 2
sheets("LU").select
case 3
sheets("MA").select
case 4
sheets("ME").select
case 5
sheets("JE").select
case 6
sheets("VE").select
case 7
sheets("SA").select
end select
end sub

A+ Wilfried ;op

 

[Loulou]

Salut WILFRIED

Un grand merci, c'est exactement se que je cherchais.

Loulou