D
Daniel
Guest
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
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