Weekday(Now = vbFriday

Bonjour à tous,

dans une macro j'indique le jour d'éxécution via

If Weekday(Now()) = vbFriday Then

la macro se lance bien comme cela

j'ai cependant rajouté une partie admin pouvant modifier certains paramètres des macros

aussi j'ai une liste déroulante proposant les vbMonday etc.. dans une feuille excel

je tente donc de dire cela autrement

If Weekday(Now()) = Worksheets("Admin").Cells(27, 3) Then

je sais que cell(27,3) a pour valeur vbFriday mais alors pourquoi la condition ne s'exécute pas?

jai meme tenté d'ajouter un .value mais ca ne change rien..

une idée svp?
Merci

Bonjour Darkangel, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim j As VbDayOfWeek
j = Worksheets("Admin").Cells(27, 3).Value
If Weekday(Now()) = j Then MsgBox "OK"
End Sub

Bonjour,

Merci pour votre retour

Quand je test cela ca me renvoi incompatibilité de type

Re,

En pièce jointe un exemple :

je crois comprendre mon soucis

dans mon onglet Admin j'ai mis en version texte vbFriday VbMonday etc.. pas en chiffre

est de la que viens le probleme du coup?

Re,

J'en sais rien, teste et tu verras bien !...

merci à vous pour votre aide cela fonctionne avec les chiffres!