Re: raccourci par macro |
Titre du sujet : Re: raccourci par macro par Carioca le 27/02/2008 18:39:49 Rebonjour JCGL Désolé pour le profil, pas vu. Par contre je ne connais pas les sigles ICQ,AIM,YIM je complèterai par la suite. Pour le module voici: '====================================== Public Sub Raccourci() Set wshshell = CreateObject("WScript.Shell") strdesktop = wshshell.specialFolders("Desktop") Utilisateur = Mid(strdesktop, 27, 8) Set oshelllink = wshshell.createshortcut(strdesktop & "\Facture2.lnk") 'libellé du raccourci oshelllink.targetPath = "c:\Factures\Facture2.xls" 'chemin du raccourci oshelllink.WindowStyle = 1 oshelllink.HotKey = "CTRL+SHIFT+F" 'raccourci clavier oshelllink.IconLocation = "c:\Facture2.ico" 'icône du raccourci oshelllink.Description = "Cliquez ici Facture" 'Texte info-bulle du raccourci oshelllink.WorkingDirectory = "c:" 'destination du raccourci oshelllink.Save 'enregistre l'opération End Sub '======================================= Mon but c'est d'avoir le même icône personnalisé sur plusieurs plateformes. Merci pour la réponse jean-paul |
Forums