Lancer une macro depuis bureau
Résolu
NLAH
Messages postés
125
Date d'inscription
Statut
Membre
Dernière intervention
-
NLAH Messages postés 125 Date d'inscription Statut Membre Dernière intervention -
NLAH Messages postés 125 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Macro bureau
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Bureau virtuel windows 10 - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Mettre icone sur bureau - Guide
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:
@+ 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
NLAH
Messages postés
125
Date d'inscription
Statut
Membre
Dernière intervention
2
Je vous remercie, ca marche :)