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

[badraaliou4]

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.

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

Merci de votre aide

 

[Hasco]

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]

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

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]

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

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]

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

LOL

 

[fanch55]

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é .

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

 

[badraaliou4]

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]

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]