XL 2016 VBA Excel : Ouvrir une application installée à partir de Microsoft Store Win10

badraaliou4 · 28 Avril 2023

Bonjour à tous,
Je cherche un code Vba qui me permet d'ouvrir une application installée à partir de Microsoft Store.
j'ai généré ce code dans CHATGPT mais ne marche pas.

VB:

Sub OuvrirApplicationMicrosoftStore()
   Dim StoreLink As String
   StoreLink = "ms-windows-store://pdp/?ProductId=9NKSQGP7F2NH"
   Shell (StoreLink)
End Sub

Merci de votre aide

Hasco · 28 Avril 2023

Bonjour,

Qu'en dit son auteur ?

Sera-il heureux que les misérables hères que nous sommes salissent de leur chaire impure la construction d'une si merveilleuse œuvre ?

Pour ma part, j' aurais trop peur d' être transformé en soleil vert ou autre vers de terre.

fanch55 · 28 Avril 2023

Bonjour, un code proposé et vérifié :

VB:

Sub OuvrirApplicationMicrosoftStore()
   Dim StoreLink As String
   StoreLink = "ms-windows-store://pdp/?ProductId=9NKSQGP7F2NH"
   CreateObject("shell.application").ShellExecute "cmd.exe", "/c Start " & StoreLink, , , 0
End Sub

badraaliou4 · 28 Avril 2023

fanch55 à dit:

Bonjour, un code proposé et vérifié :

VB:

Sub OuvrirApplicationMicrosoftStore()
   Dim StoreLink As String
   StoreLink = "ms-windows-store://pdp/?ProductId=9NKSQGP7F2NH"
   CreateObject("shell.application").ShellExecute "cmd.exe", "/c Start " & StoreLink, , , 0
End Sub

Merci pour la réponse
Le code ouvre Microsoft store mais n'ouvre pas WhatsApp.
ID WhatsApp =9NKSQGP7F2NH

J'aimerai ouvrir WhatsApp installé à partir de Microsoft store avec le code VBA
merci d'avance

patricktoulon · 28 Avril 2023

re
Bonjour
d'accords chatgpt et maintenant c'est whatapp

LOL

fanch55 · 28 Avril 2023

badraaliou4 à dit:
J'aimerai ouvrir WhatsApp installé à partir de Microsoft store avec le code VBA

Le plus simple et rapide :
Créer un raccourci sur votre bureau et exécuter le code ci dessous après y avoir mis le nom du raccourci si vous l'avez modifié .

VB:

Sub Run_WhatsApp()
    WhatsApp = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\WhatsApp - Raccourci.lnk"
    CreateObject("shell.application").ShellExecute "cmd.exe", "/c  """ & WhatsApp & """", , , 0
End Sub

badraaliou4 · 28 Avril 2023

patricktoulon à dit:
re
Bonjour
d'accords chatgpt et maintenant c'est whatapp

LOL

C'est le code VBA qui a été généré par chatgpt mais ne marche pas.
Je veux un code VBA qui me permet d'ouvrir une application (WhatsApp) installée à partir de Microsoft Store

Staple1600 · 28 Avril 2023

Bonsoir le fil

[Question en passant]
Pourquoi passer par un code VBA pour ouvrir une appli quand un raccourci sur le bureau permet de le faire ?
(Voir un raccourci dans la barre des tâches)
[/Question en passant]

XL 2016 VBA Excel : Ouvrir une application installée à partir de Microsoft Store Win10

badraaliou4

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires