Script date du jour

Bonjour à tous,

Etant un semi-Zero en informatique, j'en appelle à votre aide pour réaliser un script permettant d'avoir la date du jour comme quand actuellement j'appuie sur MAJ+D = 23/04/2021 grâce à Clavier+, mais dans un autre format type 23 04 21 ou 23 04 2021, sans les "/" en gros.

La raison est que j'ai plusieurs logiciels qui me demandent régulièrement la date du jour, mais d'un logiciel à l'autre ce n'est pas le même format qui est demandé.

Citation:

---

Comment faire des choses plus compliquées, comme écrire la date du jour?
Vous pouvez créer un script VBScript et demander à Clavier+ de l’exécuter. La procédure générique est la suivante : lancez le bloc-notes, écrivez le texte de votre script, et enregistrez-le avec l’extension .VBS, puis associez-lui un raccourci-clavier avec Clavier+.

Un exemple de script : écrire la date du jour dans le programme actif.

set shell = WScript.CreateObject("WScript.Shell")
shell.SendKeys Date()
Si le format par défaut de la date ne vous convient pas, vous pouvez utiliser les fonctions de date.

---

https://gryder.org/software/clavier-...tation?lang=fr (point 25)

Merci à ceux qui vont m'aider

Bonjour et Bienvenu sur DVP;

Si le passage par Clavier+ n'est obligatoire, le code suivant répondrait à la demande :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Explicit   Dim WS, LaDate, strDesktop, TheLink, fso   Set WS = CreateObject("Wscript.Shell") CreerRaccourci LaDate = Replace(Date, "/", " ") ' On remplace le séparateur de date par un espace 'Exemple d'application recevant la date sous le format demandé WS.Run "NotePad.exe ", 1, False ' Lance NotePad.exe WScript.Sleep 1000 ' Attend 1 seconde pour s'assurer de l'ouverture de NotePad WS.SendKeys LaDate ' Envoie la date vers NotePad   Sub CreerRaccourci() Set fso = CreateObject("Scripting.FileSystemObject")   strDesktop = WS.SpecialFolders("Desktop") If fso.FileExists(strDesktop & "\" & Left(Wscript.ScriptName, Len(Wscript.ScriptName) -4) & ".lnk") Then Exit Sub set TheLink = WS.CreateShortcut(strDesktop & "\" & Left(Wscript.ScriptName, Len(Wscript.ScriptName) -4) & ".lnk")   TheLink.TargetPath = WScript.ScriptFullName ' Cible du raccourci TheLink.WindowStyle = 1 TheLink.Hotkey = "CTRL+D" ' Touche de raccourci TheLink.IconLocation = "Notepad.exe, 0" 'Icône du raccourci TheLink.Description = "Script pour écrire la date du jour dans un programme donné" TheLink.WorkingDirectory = strDesktop ' Dossier de travail TheLink.Save End Sub

---

Sinon, essaie de modifier le script selon la demande