Menu

Lancer une macro depuis bureau [Résolu]

NLAH 125 Messages postés lundi 9 septembre 2013Date d'inscription 13 juin 2017 Dernière intervention - 19 mai 2017 à 15:54 - Dernière réponse : NLAH 125 Messages postés lundi 9 septembre 2013Date d'inscription 13 juin 2017 Dernière intervention
- 22 mai 2017 à 12:14
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


Afficher la suite 

2 réponses

Répondre au sujet
cs_Le Pivert 5070 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 25 avril 2018 Dernière intervention - Modifié par cs_Le Pivert le 19/05/2017 à 18:04
0
Utile
1
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
NLAH 125 Messages postés lundi 9 septembre 2013Date d'inscription 13 juin 2017 Dernière intervention - 22 mai 2017 à 12:14
Je vous remercie, ca marche :)
Commenter la réponse de cs_Le Pivert