Lancer une macro depuis bureau
Résolu
NLAH
Messages postés
135
Statut
Membre
-
NLAH Messages postés 135 Statut Membre -
NLAH Messages postés 135 Statut Membre -
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
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
-
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
