Signaler

Lancer une macro depuis bureau [Résolu]

Posez votre question NLAH 125Messages postés lundi 9 septembre 2013Date d'inscription 13 juin 2017 Dernière intervention - Dernière réponse le 22 mai 2017 à 12:14 par NLAH
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 
Utile
+0
plus moins
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



NLAH 125Messages postés lundi 9 septembre 2013Date d'inscription 13 juin 2017 Dernière intervention - 22 mai 2017 à 12:14
Je vous remercie, ca marche :)
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !