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 ?