Bonjour à tous,
Meilleurs voeux pour cette année.
J'ai trouvé ce code pour avoir un raccourci bureau.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim nom, f, WshShell, strDesktop, oShellLink, chemin
    nom = "Réparation gest piéces V multipostes"
    chemin = "C:\Users\fpair\OneDrive\Bureau\"  'ThisWorkbook.Path
        'f = Application.GetSaveAsFilename(nom, fileFilter:="Fichier (*.xlsm),.*xlsm")
        'ActiveWorkbook.SaveAs Filename:=f
    Set WshShell = CreateObject("WScript.Shell")
    'strDesktop = WshShell.SpecialFolders("Desktop") 'dossier sur le buro
    Set oShellLink = WshShell.CreateShortcut(chemin & "\" & nom & ".lnk") 'ici titre du raccourci**
    oShellLink.TargetPath = ThisWorkbook.Path & nom  'chemin de la cible 
    oShellLink.WindowStyle = 1
    oShellLink.Save
    MsgBox "Le raccourci a été créé et placé sur le bureau"
Cà fonctionne mais çà m'ouvre une fenêtre pour refaire le chemin de la cible, et mettre l'extension alors qu'il est indiqué dans la macro.
Nom : 5.png Affichages : 315 Taille : 1,3 Ko
Donc il doit y avoir un loupé quelque part.
Merci