Lancer une macro depuis bureau
Résolu/Fermé
NLAH
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
-
19 mai 2017 à 15:54
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 - 22 mai 2017 à 12:14
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 - 22 mai 2017 à 12:14
A voir également:
- Macro bureau
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Bureau virtuel windows 10 - Guide
- Macro word - Guide
- Juliette a supprimé l'icône encadrée de son bureau. que peut-on dire - Forum Windows 7
- Jitbit macro recorder - Télécharger - Confidentialité
1 réponse
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 19 mai 2017 à 18:04
Modifié le 19 mai 2017 à 18:04
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:
@+ Le Pivert
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
22 mai 2017 à 12:14