Il est de bon ton de se souhaiter la bonne année. Mais vous, et vous seul, pourrez faire en sorte que cette année soit bonne, meilleure que celle qui vient de s'écouler. Apprenez à ne compter que sur vous, car personne n'est plus qualifié que vous-même pour bâtir, réparer ou améliorer votre propre vie. Personne ne fera les choses à votre place. D'ailleurs, tout ce que les autres peuvent faire, c'est souhaiter que vous le fassiez. Et ne croyez pas que tout ceux qui vous entourent vous apporteront des solutions : certains font juste partie de vos problèmes. Transformez vos résolutions en actes, et dans douze mois, retournez-vous et souriez-vous fièrement : C'était long. C'était difficile. Mais ça y est : 2017 était une bonne année, merci Moi.

Création de raccourcis automatiquement sur le bureau

Cette procédure permet de créer automatiquement un raccourci vers un programme ou un fichier sur le bureau de Windows

Par exemple, vous avez une base de données Access totalement terminée, et vous désirez que lors de son lancement, une icône soit créee sur le bureau pour des questions de facilités. Voici le code à insérer dans un module :Il s'agit d'un raccourci vers une gestion de cave à vin.


Gestion de Cave : C'est le nom du raccourci qui apparaîtra à l'écran
D:\Atelier\CaveAVin.mdb : C'est le chemin et le nom du fichier visé par le raccourci
CTRL+SHIFT+F : C'est le raccourci clavier qui permettra son lancement plus rapide
D:\Atelier\IconeVin.ico : C'est le chemin et le nom de l'icône que vous voulez visualiser
Cliquez ici pour gérer les vins : C'est le texte d'info-bulle qui apparaîtra quand vous passerez la souris par dessus sans cliquer
D:\Atelier : C'est l'endroit ou on se trouvera quand on lancera le raccourci


Public Sub Raccourci()
Set WshShell = CreateObject("WScript.Shell")
strdesktop = WshShell.specialFolders("Desktop")
Utilisateur = Mid(strdesktop, 27, 8)
Set oshellLink = WshShell.CreateShortcut(strdesktop & "\Gestion de cave.lnk") 'libellé du raccourci
oshellLink.targetPath = "D:\Atelier\CaveAVin.mdb" 'chemin du raccourci
oshellLink.WindowStyle = 1
oshellLink.HotKey = "CTRL+SHIFT+F" 'raccourci clavier
oshellLink.IconLocation = "D:\Atelier\IconeVin.ico" 'icône du raccourci
oshellLink.Description = "Cliquez ici pour gérer les vins" 'Texte info-bulle du raccourci
oshellLink.WorkingDirectory = "D:\Atelier" 'destination du raccourci
oshellLink.Save 'enregistre l'opération
End Sub