Valeur liée à jour de la semaine

Bonjour tout le monde !

Question simple mais qui me fait tourner en rond : j'aimerais qu'en fonction du jour de la semaine, j'ai une valeur qui change. Tous les jours de la semaine ma valeur est de 480 mais pas le vendredi où elle est de 420.

Pour info, j'ai déclaré ma date en tant que variable public dans le module 1.

J'ai testé ce code et quelques dérivés sans succès :

Public jour As Date

jour = .Cells(1, 1).Value
If dd = Friday Then
.Cells(1, 9) = "420"
Else
.Cells(1, 9) = "480"                          
End If

Petite question bonus, je voudrais que lorsque j'ouvre mon fichier, je tombe sur ma feuille nommée "saisie". Je me doute qu'il faut que je rentre un code dans le ThisWorkbook mais je ne sais pas lequel convient.

Merci de votre aide

Bonjour,

    .Cells(1, 9) = IIf(Weekday(jour) = 6, 420, 480)

Private Sub Workbook_Open()
    Worksheets("saisie").Activate
End Sub

Cordialement.

Salut MFerrand,

Merci de ton aide ça marche super ! J'ai fais trois demandes sur ce forum et j'ai une réponse plus que satisfaisante à chaque fois, l'entre-aide est super ici

A bientôt j'espère !