Lancer une macro depuis bureau

[Résolu/Fermé]
Signaler
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
-
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
-
Bonjour,

j'aimerai bien savoir si c'est possible de lancer une macro excel depuis une icone du bureau ?
si oui comment je peux faire?
Merci


1 réponse

Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
Bonjour,

Ce n'est pas le raccourci bureau d'une macro, mais celui d'un classeur.
A mettre dans ThisWorkbook cela mettra le raccourci à l'ouverture du classeur. si tu veux qu'une macro se déclenche à mettre également:

Option Explicit
Private Sub Workbook_Open()
Dim scrHst, emplacement, raccourci
Set scrHst = CreateObject("WScript.Shell")
emplacement = scrHst.SpecialFolders("Desktop")
Set raccourci = scrHst.CreateShortcut(emplacement & "\" & WorksheetFunction.Substitute(ThisWorkbook.Name, ".xls", ".lnk")) 'adapter l'extension
raccourci.WorkingDirectory = emplacement
raccourci.TargetPath = ActiveWorkbook.FullName
raccourci.Save
Set raccourci = Nothing
Set scrHst = Nothing
mamacro 'ta macro
End Sub
Sub mamacro()
MsgBox "Ma macro"
End Sub



@+ Le Pivert
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
1
Je vous remercie, ca marche :)