Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Raccourci sur le bureau

Raccourci sur le bureau

3 réponses
Avatar
Mike
bonjour,
reponse=3D msgbox("est il possible par vba de cr=E9er un=20
raccourci sur le bureau et de l'affecter =E0 un classeur=20
excel?",vbyesno)
if reponse=3Dvbyes then
msgbox("comment peut on faire?")
else
msgbox("tant pis")
end if

merci
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
Pierre Fauconnier
Bonjour

Voici une idée qui devrait te permettre de faire cela...

Sub CreerRaccourci()
Dim WSHShell As Object
Dim DesktopPath As String
Dim ShortCut As Object

Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set ShortCut = WSHShell.CreateShortcut(DesktopPath & "AAA122.lnk")
With ShortCut
.TargetPath = WSHShell.ExpandEnvironmentStrings("e:aaa122.xls")
.WindowStyle = 4
End With
ShortCut.Save
End Sub


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)

Mike wrote:
bonjour,
reponse= msgbox("est il possible par vba de créer un
raccourci sur le bureau et de l'affecter à un classeur
excel?",vbyesno)
if reponse=vbyes then
msgbox("comment peut on faire?")
else
msgbox("tant pis")
end if

merci


Avatar
Mike
cela convient parfaitement, merci beaucoup
existe t il une bibliothèque de tout les icones disponibles
encore merci
-----Message d'origine-----
Bonjour

Voici une idée qui devrait te permettre de faire cela...

Sub CreerRaccourci()
Dim WSHShell As Object
Dim DesktopPath As String
Dim ShortCut As Object

Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set ShortCut = WSHShell.CreateShortcut(DesktopPath
& "AAA122.lnk")

With ShortCut
.TargetPath = WSHShell.ExpandEnvironmentStrings
("e:aaa122.xls")

.WindowStyle = 4
End With
ShortCut.Save
End Sub


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le
temps..."

(remplacer NOSPAM par pfi pour me répondre. Merci)

Mike wrote:
bonjour,
reponse= msgbox("est il possible par vba de créer un
raccourci sur le bureau et de l'affecter à un classeur
excel?",vbyesno)
if reponse=vbyes then
msgbox("comment peut on faire?")
else
msgbox("tant pis")
end if

merci



.




Avatar
Michel Pierron
Tu peux simultanément indiquer:

With ShortCut
.Hotkey = "CTRL+SHIFT+G" ' Le raccourci clavier
.IconLocation = "C:WINDOWSCalc.exe, 0" ' L'icône à associer
.Description = "Calculatrice" ' La description
(TipText)
.WorkingDirectory = "C:WINDOWS" ' Le répertoire de travail

MP

"Mike" a écrit dans le message de
news:fd7901c38334$88660030$
cela convient parfaitement, merci beaucoup
existe t il une bibliothèque de tout les icones disponibles
encore merci
-----Message d'origine-----
Bonjour

Voici une idée qui devrait te permettre de faire cela...

Sub CreerRaccourci()
Dim WSHShell As Object
Dim DesktopPath As String
Dim ShortCut As Object

Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set ShortCut = WSHShell.CreateShortcut(DesktopPath
& "AAA122.lnk")

With ShortCut
.TargetPath = WSHShell.ExpandEnvironmentStrings
("e:aaa122.xls")

.WindowStyle = 4
End With
ShortCut.Save
End Sub


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le
temps..."

(remplacer NOSPAM par pfi pour me répondre. Merci)

Mike wrote:
bonjour,
reponse= msgbox("est il possible par vba de créer un
raccourci sur le bureau et de l'affecter à un classeur
excel?",vbyesno)
if reponse=vbyes then
msgbox("comment peut on faire?")
else
msgbox("tant pis")
end if

merci



.