Rapport de message :*
 

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