Re: raccourci par macro |
Titre du sujet : Re: raccourci par macro par Carioca le 28/02/2008 17:44:38 Re bonjour MDF, JCGL et à tous J'ai effectué différente manip avec le programme Sub CreerRaccourci() 'myDearFriend! - www.mdf-xlpages.com Dim Raccourci As Object With ActiveWorkbook 'Vérifie l'existence d'un chemin pour le classeur If .Name <> .FullName Then 'Défini le raccourci With CreateObject("WScript.Shell") Set Raccourci = .CreateShortcut(.SpecialFolders("Desktop") _ & "\" & ActiveWorkbook.Name & ".lnk") End With 'Crée le raccourci sur le bureau Windows Raccourci.TargetPath = .FullName Raccourci.Save Else MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..." End If End With End Sub Celui-ci marche, mais il me donne l'icône d'excel avec le nom du programme --------------------------------------- '====================================== 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 avec celui-ci J'ai l'icône Windows que je remplace par mon icône. mais ce n'est pas vraiment ce que je veux obtenir '======================================= Option Explicit Sub CreerRaccourci() 'myDearFriend! - www.mdf-xlpages.com Dim Raccourci As Object With ActiveWorkbook 'Vérifie l'existence d'un chemin pour le classeur If .Name <> .FullName Then 'Défini le raccourci With CreateObject("WScript.Shell") Set Raccourci = .CreateShortcut(.SpecialFolders("Desktop") _ & "\" & ActiveWorkbook.Name & ".lnk") End With With Raccourci 'Affecte l'icône (chemin à adapter) .IconLocation = "C:\Factures\Facture2.ico" 'Crée le raccourci sur le bureau Windows .TargetPath = .FullName .Save End With Else MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..." End If End With End Sub j'ai l'impression que le .FullName est vide Avec celui-ci il ne va pas au bout du programme j'ai une erreur "La méthode 'Save' de l'objet 'IWshortcut' à échoué " erreur d'exécution '-2147467259 (80004005)' En vous remerciant par avance de vous penchez sur mon problème dans une heure je serai absent alors ne vous inquiété pas. Salutation à tous Jean-Paul |
Forums