Bonjour,
Je reprends le script de Jean-Claude Bellamy, et j'écris le résultat
dans un batch. A la fin il reste à appeler ce batch inidate.bat, pour
avoir la date avec le jour de la semaine dans la variable
d'environnement DT. Juste ne pas se tromper sur le répertoire par
défaut, pour bien retrouver le batch.
ça remonte à une vingtaine d'années que j'ai joué avec l'environnement
en assembleur, pour ce style de plaisanterie, alors je ne promets rien
quant au temps dans lequel je serais peut-être capable de retrouver ce
que j'ai fait. Qu'à cela ne tienne, par un batch c'est moins élégant,
mais ça marche. D'ailleurs, une écriture directement dans
l'environnement d'un programme en allant chercher l'adresse dans
l'entête du programme, ça marchait sous DOS, mais il n'est pas exclu que
Windows XP protesterait (en tout cas si on fait ça pour une écriture
dans un fichier on se fait sonner les cloches). Pas sûr que tout le
monde ait suivi, alors je résume, je ne sais pas où j'ai mis ce que
j'avais fait de plus direct, mais on n'a peut-être rien perdu, peut-être
qu'on se serait fait jeter.
Oui alors dans le test que j'ai fait j'ai obtenu le jour de la semaine
en abrégé (trois lettres suivies d'un point), j'imagine que ça ne doit
pas être trop dur si on le veut en entier (quitte à programmer un râteau
au besoin par Select Case).
Le script :
_______________________________
wd=Weekday(now,vbMonday)
dt=WeekdayName(wd,true,vbMonday) & " " & FormatDateTime(Now,2)
Const ForReading = 1, ForWriting = 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("inidate.bat", ForWriting,true)
f.write("SET DT=" & dt)
MsgBox "Batch prêt."