raccourci sur bureau via une macro

[dj.run]

Bonjour à toutes et à tous,

Est il possible de creer un raccourci sur le bureau via une macro ?

Je m'explique:

J'ai un fichier excel qui me sert de model, via des macros je lui affecte un nom et je le sauvegarde à un endroit precis de mon disque .
je voudrai rajouter une action qui consiste à créer un raccourci de ce fichier (que j'ai renomé) sur mon brureau .

Merci si quelqu'un a une idée .

dj.run

 

[@Christophe@]

Bonjour Dj.run,

Cela fait un petit temps qu'on ne c'est plus croiser sur le même fil, rire, voici une solution pour toi:

Sub CreerRaccourci(CheminCible)

Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\TestRaccourci.lnk")
oShellLink.TargetPath = CheminCible
oShellLink.WindowStyle = 1
oShellLink.Save
End Sub

Sub TestRaccourci()
CreerRaccourci "c:\classeur1.xls"
End Sub


Voila, bonne journée

@Christophe@

 

[dj.run]

bonsoir @Christophe@,

nous nous sommes croisé je redigais un autre fil .

je vais essayer ta solution et je te tiendrai informé .

merci pour ton aide

dj.run

 

[dj.run]

bonjour à tous,

@Christophe@ juste un petit mot pour te dire bravo ça marche!!

merci pour ton aide

dj.run

 

[@Christophe@]

RE

Super Dj.run

Content de t'avoir aidé

A bientot

@Christophe@

 

[langa68]

Re : raccourci sur bureau via une macro

salut @Christophe@
j'ai trouvé ta macro pour la création d'un raccourci d'une application sur le bureau.
J'ai essayé de l'adapter a mon projet, mais sans réussite.
Je me permet de t'envoyer un fichier test de mon projet.
Pourrai tu résoudre mon problème, si possible en m'expliquant un peut les différentes fonctions.

Merci d'avance

langa68