textbox

[chinel]

Salut tout le monde !

je voudrais avoir svp une textbox qui me donne la date de demain d'aujourdhui + 1 jour

exemple: samedi 2 mai 2009 (donc aujourd'hui + 1 jour)

mais si nous sommes un vendredi me donne la date du lundi (pas le week-end) donc seulement les jours de travail

merci !

 

[vbacrumble]

Re : textbox

Bonjour



Essaie d'adapter ceci à ta problématique

Sub macro1()
Dim D
D = Date
Select Case Weekday(D, 2)
Case 1, 2 To 4, 7
MsgBox Format(D + 1, "dddd dd mmmm yyyy")
Case 5, 6
MsgBox Format(D + 2, "dddd dd mmmm yyyy")
End Select
End Sub

 

[chinel]

Re : textbox

meric bcp !

toujours là pour rendre service !