Salut oh grands maîtres de l'informatique
Voici un extrait de code qui me permet d'avoir un jour de semaine à l'exception du samedi et du dimanche, seulement si vous êtes en train de lire cela, c'est que ça ne va pas du tout pour moi :
Voici le code :
Sub data()
Dim nom As Date
dim x as string
Dim Compteur As Integer, Compteur2 As Integer
nom = DateValue(Now() + 1)
x = datevalue(nom), "dd_mmm")
For Compteur = 0 To 365
If Weekday(DateValue(nom) + Compteur) = 1 Then
Compteur2 = Compteur2 - 2
If Weekday(DateValue(nom) + Compteur) = 7 Then
Compteur2 = Compteur2 - 1
If Weekday(DateValue(nom) + Compteur) = 3 Then
Compteur2 = Compteur2 - 3
End If
End If
End If
MsgBox nom
Next
End Sub
Voici les conditions :
si la valeur du jour est le dimanche(1), alors, je voudrais qu'il me retire 2 jours pour être au vendredi
Si c'est le samedi, il me retire 1 jour pour être au vendredi
Enfin, si c'est le lundi, alors 3 jours de moins pour être au vendredi
A la fin du code, le msgbox me permet de voir ce qui s'affiche avant une expoitation dans un fichier de donnée, par conséquent, ça n'a pas de valeurs.
Je vous remercie