Discussion :

[fgardi]

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

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

[l_autodidacte]

Bonjour et Bienvenu sur DVP;

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

Code :

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

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