bonsoir
heu... je ne sais pas .....
peut être que ça vous serait utile de vérifier si weekday(joursem) excel ou weekday de vba n'a pas plus d'argument qu'une date qui lui sont nécessaire pour vous donner le jour de la semaine
weekday(unedate) est une formule incomplète il lui manque l'argument region aussi bien pour la version excel(joursem) que la version vba
Sub test()
texte = "heu.. voyons voir" & vbCrLf
texte = texte & "aujourd'hui nous somme le : " & Format(Date, "dddd dd mmmm yyyy") & vbCrLf
texte = texte & "nous sommes donc le " & Weekday(Date) & " eme jour de la semaine " & vbCrLf
texte = texte & " ah!! non c'est pas ça mince alors !!!" & vbCrLf & "bon sang de bon soir mais que ce passe t-il??" & vbCrLf
texte = texte & "nous somme peut etre le " & Weekday(Date, 2) & " eme jour de la semaine alors " & vbCrLf & vbCrLf
texte = texte & "ha ben oui là je comprends mieux " & vbCrLf & "il me manquait un argument a ma formule" & vbCrLf
texte = texte & "la formule est donc: weekday(unedate,region)" & vbCrLf
texte = texte & "faudra que j'essaie de ne pas oublier la prochaine fois " & vbCrLf
texte = texte & "l'argument region pour le bon gaulois que je suis c'est donc ""2""" & vbCrLf
texte = texte & " j'ai bien cru que mon pc perdait la boule, heureusement ca n'est que moi"
MsgBox texte
End Sub
j'ai tout dis
le post 1 réécrit correctement
datenow As Date, ddl As Range
datenow = Date
Set ddl = Sheets("Admin").Range("AB16")
If CDate(ddl) <> datenow And Weekday(datenow, 2) = 3 Then
'je traduis la formule pour voir si à sa lecture c'est bien cela que l'on veut
'si la date de ddl <> de datenow et que le jour de la semaine de datenow es 3(mercredi) alors
LOL