Re: raccourci par macro |
Titre du sujet : Re: raccourci par macro par Carioca le 28/02/2008 18:39:40 Re bonjour à tous Bonne nouvelle Je viens de trouver la solution le .FullName ne convient pas j'ai affecté au path le chemin. voici le programme modifié 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 = "c:\Factures\Facture2.xls" '.FullName .Save End With Else MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..." End If End With End Sub En vous remerciant mille fois Cordialement Jean-Paul |
Forums