Le mois au lieu de la date

Bonjour tous,

Code:

---

1 2 3 4 5 6 7 8 9

Dim fso,s Set fso = CreateObject("Scripting.FileSystemObject") s = Date Date1 = Mid(s, 1, 2) If Date1 = "01" Then MsgBox "Nous sommes le " & Date1 & ", il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires" Else End If wscript.quit

---

Là, j'ai une box qui s'ouvre tous les 1 du mois.
J'aimerais ouvrir une autre box mais qur le 15 janvier par exemple, je dois modifier quoi ?

Bonjour,

voir :faq: ici http://vb.developpez.com/faq/vbs?pag...heure-courante


Inspire toi de cela pour modifier ton code :

Code:

---

1 2 3 4 5

'(....)   if Day(s) = 15 and Month(s) = 1 Then '(...à

---

Bonjour bbil

Citation:

---

Envoyé par bbil

voir :faq: ici http://vb.developpez.com/faq/vbs?pag...heure-courante

---

Ho mais c'est ce que j'ai essayé de faire :(
Bon, je vais faire le test sur demain, je te remercie et te tiens au courant.

:salut:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim fso,s Set fso = CreateObject("Scripting.FileSystemObject") s = Date Date1 = Mid(s, 1, 2) If Date1 = "01" Then MsgBox "Nous sommes le " & Date1 & ", il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires" Elseif Day(s) = 15 and Month(s) = 1 Then MsgBox "Nous sommes le " & Date1 & " Janvier, il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires" Else End If wscript.quit

---

Bonjour hackoofr

Allons bon, j'ai pas fait ça ..... :?
pourquoi remettre dans ton code :
MsgBox "Nous sommes le " & Date1 & ", il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires"

là je teste sur demain

Code:

---

1 2 3 4 5 6 7 8 9

Dim fso,s Set fso = CreateObject("Scripting.FileSystemObject") s = Date Date1 = Mid(1) if Day(s) = 31 and December = 1 Then MsgBox "Nous sommes le " & Date1 & ", il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires" Else End If wscript.quit

---

:koi:

Code:

---

and December = 1

---

RE

Si je comprend bien, je devrais faire :

Code:

---

1 2 3 4 5 6 7 8 9

Dim fso,s Set fso = CreateObject("Scripting.FileSystemObject") s = Date Date1 = Mid(s, 1) Elseif Day(s) = 31 and December = 1 Then MsgBox "Nous sommes le " & Date1 & " Janvier, il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires" Else End If wscript.quit

---

:nono:

revois le code à hackoofr ...

d'ou tu sort December ?

RE

Citation:

---

Envoyé par bbil

d'ou tu sort December ?

---

Si je veux que le message apparaisse demain matin, faut bien donner une date ?
Si je met : Elseif Day(s) = 15 and Month(s) = 1 Then , ça va s'ouvrir tous les 15, non ?

Bon, je remet ça avec l'exemple donné :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim fso,s Set fso = CreateObject("Scripting.FileSystemObject") s = Date Date1 = Mid(s, 1) If Date1 = "31" Then Elseif Day(s) = 31 and Month(s) = 1 Then MsgBox "Nous sommes le " & Date1 & " Janvier, il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires" Else End If wscript.quit

---

oubli ta variable date1 ...


essai le code suivant :

Code:

---

1 2 3 4

s = Date MsgBox Month(s)

---

tu comprendras peu-être ce que retourne la fonction Month..

RE

Citation:

---

Envoyé par bbil

oubli ta variable date1 ...

---

Ce que je cherche, c'est que cette alerte ne se fait que les 31 décembre

Code:

---

1 2 3 4 5 6 7 8

Dim fso,s Set fso = CreateObject("Scripting.FileSystemObject") s = Date Elseif Day(s) = 31 and Month(s) = 1 Then MsgBox "Nous sommes le " & Date & " Janvier, il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires" Else End If wscript.quit

---

Citation:

---

Envoyé par bbil

essai le code suivant :

Code:

---

1 2 3 4

s = Date MsgBox Month(s)

---

tu comprendras peu-être ce que retourne la fonction Month..

---

RE

Citation:

---

Envoyé par bbil

tu comprendras peu-être ce que retourne la fonction Month..

---

J'ai bien compris que Month retourne le mois de la date.
Mais faut bien donner une date.

Et surtout que ça ne soit qu'un seul mois précis.
Je comprend pas :

Code:

---

1 2	s = Date MsgBox Month(s)

---

ok ...

mais alors pourquoi tu écris cela :

Code:

---

1 2 3 4

if Day(s) = 31 and December = 1 Then MsgBox "Nous sommes le " & s & ", il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires" Else

---

Tu compare bien le retour de Day , à 31 ... fait la même chose pour le mois...

RE

Citation:

---

Envoyé par bbil

Tu compare bien le retour de Day , à 31 ... fait la même chose pour le mois...

---

Je crois que tu vas rire ..... je me lance

Code:

---

1 2	if Day(s) = "31" Then if Month(s) = "December" Then

---

non je pense pas rire....


essai à nouveau ce code

Code:

---

1 2	s=Date msgbox Month(s)

---

et dis moi ce que tu vois écris à l'écran ?

RE

Citation:

---

Envoyé par bbil

et dis moi ce que tu vois écris à l'écran ?

---

Je vois 12 pour décembre

alors pourquoi tu effectue une comparaison avec une chaîne "December" ?

RE

Mais alors comment indiquer que je ne veux cette alerte QUE le 31 décembre ?

Bon j'abandonne je passe la main ...si quelqu'un d'autre peu t'aider...

... relis la discussion tu as déjà la réponse....