Rapport de message :*
 

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