Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Raccourci

Raccourci

3 réponses
Avatar
RV
Bonjour,
Une macro me permet d'enregistrer un fichier X dans un répertoire X sous un
nom X ; comment faire en VBA pour créer un raccourci sur le bureau du dit
fichier X nouvellement créé ? Je suis sous environnement XP et travaille
avec le pack office97.
Merci de votre aide et bien cordialement,
RV
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
satanas09
Bonjour,
un peu de VBScript :
'--------------------------------------
Sub CreerRacourciSurBureau()
Dim Shell, DesktopPath, oLink
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set oLink = Shell.CreateShortcut(DesktopPath & "MonFichier X.lnk")
oLink.TargetPath = ThisWorkbook.FullName ' à Modifier suivant fichier..
oLink.Save
End Sub

'--------------------------------------






"RV" a écrit dans le message de news:
%
Bonjour,
Une macro me permet d'enregistrer un fichier X dans un répertoire X sous
un nom X ; comment faire en VBA pour créer un raccourci sur le bureau du
dit fichier X nouvellement créé ? Je suis sous environnement XP et
travaille avec le pack office97.
Merci de votre aide et bien cordialement,
RV



Avatar
RV
Bonjour Satanas09,
Merci pour l'aide apportée et le script proposé.
Je m'en vais l'essayer tout de suite.
Bonne journée,
RV

"satanas09" <satanas09(A_SUPP)@gmail.com> a écrit dans le message de news:
%23STOu$
Bonjour,
un peu de VBScript :
'--------------------------------------
Sub CreerRacourciSurBureau()
Dim Shell, DesktopPath, oLink
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set oLink = Shell.CreateShortcut(DesktopPath & "MonFichier X.lnk")
oLink.TargetPath = ThisWorkbook.FullName ' à Modifier suivant fichier..
oLink.Save
End Sub

'--------------------------------------






"RV" a écrit dans le message de news:
%
Bonjour,
Une macro me permet d'enregistrer un fichier X dans un répertoire X sous
un nom X ; comment faire en VBA pour créer un raccourci sur le bureau du
dit fichier X nouvellement créé ? Je suis sous environnement XP et
travaille avec le pack office97.
Merci de votre aide et bien cordialement,
RV







Avatar
RV
Satanas09,
Ton code répond parfaitement à mon besoin...
Merci encore et bien cordialement,
RV

"satanas09" <satanas09(A_SUPP)@gmail.com> a écrit dans le message de news:
%23STOu$
Bonjour,
un peu de VBScript :
'--------------------------------------
Sub CreerRacourciSurBureau()
Dim Shell, DesktopPath, oLink
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set oLink = Shell.CreateShortcut(DesktopPath & "MonFichier X.lnk")
oLink.TargetPath = ThisWorkbook.FullName ' à Modifier suivant fichier..
oLink.Save
End Sub

'--------------------------------------






"RV" a écrit dans le message de news:
%
Bonjour,
Une macro me permet d'enregistrer un fichier X dans un répertoire X sous
un nom X ; comment faire en VBA pour créer un raccourci sur le bureau du
dit fichier X nouvellement créé ? Je suis sous environnement XP et
travaille avec le pack office97.
Merci de votre aide et bien cordialement,
RV