Rapport de message :*
 

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