Le mois au lieu de la date

Version imprimable

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 ?

30/12/2015, 16h52
SfJ5Rpw8
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 '(...à
30/12/2015, 17h02
griggione

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

30/12/2015, 17h21
SfJ5Rpw8

: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

30/12/2015, 17h34
SfJ5Rpw8

: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

30/12/2015, 18h01
SfJ5Rpw8
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..

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

30/12/2015, 18h15
SfJ5Rpw8
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..
30/12/2015, 18h21
griggione
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...

30/12/2015, 18h34
griggione
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
30/12/2015, 18h41
SfJ5Rpw8
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 ?
30/12/2015, 18h47
griggione

RE

Citation:

Envoyé par bbil

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

Je vois 12 pour décembre
30/12/2015, 18h53
SfJ5Rpw8

alors pourquoi tu effectue une comparaison avec une chaîne "December" ?
30/12/2015, 18h56
griggione

RE

Mais alors comment indiquer que je ne veux cette alerte QUE le 31 décembre ?
30/12/2015, 19h01
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....
30/12/2015, 19h07
griggione

RE

Citation:

Envoyé par bbil

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

Pour toi qui pratique, ça te parait évident.

En tous cas je te remercie pour ta patience.
30/12/2015, 19h21
tsuji

Je pense ce qu'on demande c'est qu'on simplement s'applique le bon sens seulement ?

Code:

msgbox (12="December") & vbcrlf & (12=12)

Bonjour tsuji

Merci d'avoir répondu.

Citation:

Envoyé par tsuji

Je pense ce qu'on demande c'est qu'on simplement s'applique le bon sens seulement ?

Appliquer le bon sens quand on maitrise un langage, oui, mais ce n'est pas le cas.

Apparement tu donnes la bonne ligne, mais à mettre ou ?
Bon je tente :
Code:

1 2 3 4 5 6 7 8 9 Dim fso,s Set fso = CreateObject("Scripting.FileSystemObject") s = Date If Date = "31" Then msgbox (12="December") & vbcrlf & (12=12) MsgBox "Nous sommes le " & Date & ", il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires" Else End If wscript.quit

31/12/2015, 10h39
tsuji
Si je comprends bien, pour une question réduite avec un énouncé comme dans le post #19

Citation:

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

et puis dans le post #15
Citation:
..... je me lance

Code:

1 2 if Day(s) = "31" Then if Month(s) = "December" Then
Là la condition n'a aucun chance pour l'exact raison montré. Il serait plus raisonnable de l'ecrire comme :
Code:

1 2 if Day(s) = "31" Then if Month(s) = 12 Then
On peut partir de là ... (Par le même moyen de faire un peu de msgbox à côté, on peut établir soi-même que les comparaisons Day(s) = "31" et Day(s) = 31 donneraient le même résultat, alors l'une ou l'autre, on peut faire un choix comme on veut en essayant de l'écrire d'une façon plus élégante etc ...)

RE

Ha oui, pour le mois il faut mettre 12.

Code:

1
2
3
4
5
6
7
8
9
Dim fso,s
Set fso = CreateObject("Scripting.FileSystemObject")
s = Date
if Day(s) = 31 Then
if Month(s) = 12 Then
MsgBox "Nous sommes le " & Date & ", il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires"
Else
End If
wscript.quit

RE

Peut-être comme ça c'est mieux :

Code:

1
2
3
4
5
6
7
8
Dim fso,s
Set fso = CreateObject("Scripting.FileSystemObject")
s = Date
if Day(s) = 31 Then
if Month(s) = 12 Then
MsgBox "Nous sommes le " & Day(Now)&"."& Month(Now)& ", il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires"
End If
wscript.quit

Il vous manque juste un End If

Citation:

Envoyé par griggione

RE

Peut-être comme ça c'est mieux :

Code:

1
2
3
4
5
6
7
8
Dim fso,s
Set fso = CreateObject("Scripting.FileSystemObject")
s = Date
if Day(s) = 31 Then
if Month(s) = 12 Then
MsgBox "Nous sommes le " & Day(Now)&"."& Month(Now)& ", il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires"
End If
wscript.quit

:salut:
Il vous manque juste un End If ;)

Code:

1
2
3
4
5
6
7
8
9
10
Dim fso,s,Titre
Titre = "Transactions monétaires"
Set fso = CreateObject("Scripting.FileSystemObject")
s = Date
If Day(s) = 31 Then
    If Month(s) = 12 Then
        MsgBox "Nous sommes le " & Day(Now) & "/" & Month(Now) &"/"& Year(Now) &", il faut faire :" & vbCrLf & "- les virements",vbExclamation,Titre 
    End If
End IF
wscript.quit

31/12/2015, 11h35
griggione
RE

Ha oui, j'ai ouvert deux If.

Pour le titre de la MsgBox, là je vois : vbExclamation,Titre, cela donne quoi à l'affichage.
Avant je mettais : les virements", 0, "Transactions monétaires"

EDIT: je viens de comprendre :oops:
Code:

1 2 Dim fso,s,Titre Titre = "Transactions monétaires"
31/12/2015, 13h28
griggione

RE

Je suppose que j'ai la réponse à ma question et je voudrais tous vous remercier pour votre intervention.
Bien sur je pourrais me mettre à étudier le VB, mais à 64 ans je n'en ai plus vraiment envie.

Bonne et heureuse année à vous trois :coucou:
31/12/2015, 13h37
hackoofr

Citation:

Envoyé par griggione

RE

Je suppose que j'ai la réponse à ma question et je voudrais tous vous remercier pour votre intervention.
Bien sur je pourrais me mettre à étudier le VB, mais à 64 ans je n'en ai plus vraiment envie.

Bonne et heureuse année à vous trois :coucou:

:salut:
Bonne et heureuse année à vous de même ;)
N'oubliez pas de passer cette discussion en :resolu: et bien sûr de voter sur la réponse pertinente en cliquant sur le bouton vert +1 :plusser:

Remarque : On peut apprendre n'importe quoi dans la vie, juste il faut être patient ;)

Citation:

Envoyé par bbil

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

Je prends la main avec un exemple affichant le nom du mois si c'est ce qu'il cherche à voir s’afficher. Par suite, on n'a pas besoin de donner une date. La condition sur le mois et le jour suffit amplement :
Code:

1 2 3 4 5 6 7 8 9 10 Option Explicit Const MOIS = "Janvier,Fevrier,Mars,Avril,Mao,Juin,Juillet,Août,Septembre,Octobre,Novembre,Décembre" Dim J, MO, dt, tb dt = Date Mo = Month(dt) J = Day(dt) tb =Split(MOIS, ",") If Mo = 12 And J = 31 Then MsgBox "Nous sommes le " & cstr(J) & " " & tb(Mo-1) End If
EDIT : J'ai dû rater quelque chose en ne lisant que la page où bbil a dû quitter la discussion.

02/01/2016, 11h44
griggione

Bonjour tous

J'ai fait le test pour ouverture ce matin et c'est un succés.
Merci à tous.

Fuseau horaire GMT +2. Il est actuellement 20h46.