Discussion :

[griggione]

Bonjour tous,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[SfJ5Rpw8]

Bonjour,

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


Inspire toi de cela pour modifier ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
'(....)
 
 if Day(s) = 15 and Month(s) = 1 Then
'(...à

[griggione]

Bonjour bbil

voir 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.

[hackoofr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[griggione]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

and December = 1

[griggione]

RE

Si je comprend bien, je devrais faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

revois le code à hackoofr ...

d'ou tu sort December ?

[griggione]

RE

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

oubli ta variable date1 ...


essai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
s = Date
MsgBox Month(s)

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

[griggione]

RE

oubli ta variable date1 ...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

essai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
s = Date
MsgBox Month(s)

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

[griggione]

RE

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
s = Date
MsgBox Month(s)

[SfJ5Rpw8]

ok ...

mais alors pourquoi tu écris cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[griggione]

RE

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

non je pense pas rire....


essai à nouveau ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
s=Date
msgbox Month(s)

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

[griggione]

RE

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

Je vois 12 pour décembre

[SfJ5Rpw8]

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

[griggione]

RE

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

[SfJ5Rpw8]

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....