Re : Raccourci Bureau
Bonjour langa68, Phlaurent55 et à tous
Voici un code qui doit te convenir.
[phpSub CreerRaccourci()
myDearFriend! -
mon Univers Excel... : myDearFriend! Excel Pages
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:\DF8-Muriel\DF8-Muriel.ico"
'Crée le raccourci sur le bureau Windows
.TargetPath = ActiveWorkbook.FullName ' le chemin est identifié
.Save
End With
Else
MsgBox "Sauvegardez déjà le classeur sur le DD et recommencez..."
End If
End With
End Sub
[/php]
Il est de (
mon Univers Excel... : myDearFriend! Excel Pages) que je salue au passage.
Ce code m'a été utile de nombreuse fois.
Si tu veux un exemple je te l'envoie.
cordialement
Jean-Paul