Créer un raccourci sur bureau

[BAT]

Bonjour à tous le forum,

Je recherche à créer une macro qui va automatiquement me créer un raccourci vers le document Excel actif. Ce lien devra se positionner sur le bureau de l'utilisateur !

Est-ce compliquer à créer ?

Par avance merci.

 

[joss56]

Re : Créer un raccourci sur bureau

Bonjour à tous,


Je ne sais pas si c'est possible en VBA pur, mais il y a un soft "Install Creator" qui fait ça très bien: raccourci, procédure d'install, c'est nickel
A+

 

[BAT]

Re : Créer un raccourci sur bureau

Bonjour joss56,

Merci beaucoup pour ton aide.Je note le soft en solution dégradée.

Cepandant je pense que cela doit être possible par macro car j'ai déjà vu des merveilles se réalisées sur ce forum. QUelqu'un aura peut-être une autre idée pour moi !

 

[porcinet82]

Re : Créer un raccourci sur bureau

Salut,

Regarde ici, ca devrait répôndre a ta question.

@+

 

[BAT]

Re : Créer un raccourci sur bureau

Bonjour Porcinet82

Cela semble être la solution. Par contre y a t'il une solution pour qu'il n'y ai pas à entrer le lien vers le bureau car nous sommes en réseau et mon raccourci sera par exemple

C:\Documents and Settings\barrande\Bureau

Le raccourci de ma collegue sera lui :

C:\Documents and Settings\Hgodin\Bureau

C'est donc variable selon la personne qui va créer le lien !!!

 

[porcinet82]

Re : Créer un raccourci sur bureau

re,

Pour changer ce nom, perso j'utilise un code du genre :
"C:\Documents and Settings\" & Environ("UserName") & "\Bureau"

@+

 

[myDearFriend!]

Re : Créer un raccourci sur bureau

Bonsoir BAT, joss56, porcinet82,

Je ne comprends pas le problème... tu n'as pas à donner le chemin du bureau Windows de l'utilisateur :

[COLOR=NAVY]Sub[/COLOR] CreerRaccourci()
[COLOR=NAVY]Dim[/COLOR] Raccourci [COLOR=NAVY]As Object
   With[/COLOR] CreateObject("WScript.Shell")
        [COLOR=NAVY]Set[/COLOR] Raccourci = .CreateShortcut(.SpecialFolders("Desktop") & "\" & _
                    ActiveWorkbook.Name & ".lnk")
   [COLOR=NAVY]End With[/COLOR]
   Raccourci.TargetPath = ActiveWorkbook.FullName
   Raccourci.Save
   [COLOR=NAVY]Set[/COLOR] Raccourci = [COLOR=NAVY]Nothing
End Sub[/COLOR]

Pour ce code, comme pour celui donné dans le lien que propose porcinet82, aucun chemin de bureau n'est nécessaire, la propriété SpecialFolders("Desktop") (variable d'environnement système) suffit d'elle-même !

Attention toutefois : pour que ce code fonctionne il faut que l'ActiveWorkbook ait déjà été sauvegardé sur le disque dur au moins une fois.

Cordialement,

 

[BAT]

Re : Créer un raccourci sur bureau

Bonjour à tous,

Merci à tous pour votre précieuse aide !

Je ne comprends pas le problème... tu n'as pas à donner le chemin du bureau Windows de l'utilisateur

Nous sommes plusieurs utilisateur du fichier c'est pour cela.

ucun chemin de bureau n'est nécessaire,

C'est vrai ! Je me suis embrouillé avec le

oshellLink.WorkingDirectory = "D:\Atelier" 'destination du raccourci

Ca fonctionne parfaitement ! Merci à tous encore une fois !!!😀

 

[VIARD]

Re : Créer un raccourci sur bureau

Bonjour à tous, Bat, Porcinet82

Il y a un moment que j'avais envie de faire un raccourci par macro, et la solution de porcinet82
marche très bien, jusque là tout va bien.
seulement je voudrais modifier la macro pour aller chercher l'icône que j'ai créé dans mon répertoire programme. Je ne connais pas les commandes utilisées dans windows. Comment faire ?

En vous remerciant d'une solution

Jean-Paul