creation raccourci fichier excel

[julos08]

Bonjour a tous,

Voila jai crée une macro pour enregistrer un fichier excel et jaimerai savoir si il est possible que lorsque jenregistre par ex dans mes documents mon fichier excel il me crée automatiquement un raccourci de mon fichier sur le c:

D'avance merci

@++
julos08

 

[myDearFriend!]

Bonsoir Julos08, le Forum.


Pour créer le raccourci directement sur le bureau, tu peux peut-être essayer :

Sub CreerRaccourci()
Dim Raccourci As Object
   With CreateObject('WScript.Shell')
        Set Raccourci = .CreateShortcut(.SpecialFolders('Desktop') & '\' & _
            ThisWorkbook.Name & '.lnk')
   End With
   Raccourci.TargetPath = ThisWorkbook.FullName
   Raccourci.Save
   Set Raccourci = Nothing
End Sub


Cordialement.

Message édité par: myDearFriend!, à: 15/03/2005 19:22

 

[julos08]

Merci mon cher ami ca marche nickel

@++
julos08