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
- Bureau virtuel windows 10 - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Coap bureau du president ✓ - Forum Vos droits sur internet
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
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