Lancement application (en .exe) en fonction du resultat d'une cellule

Bonjour à tous,

je souhaiterai que ma macro excel lance une application différente (application en .exe) en fonction du résultat d'une cellule (résultat donné par un aléa entre bornes)

Exemple :

Si A1 = 1 alors on lance l'application "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

Si A1 = 2 alors on lance l'application "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"

....

Voici la macro existante en question :

Sub attends()

Dim f As Integer
Dim Cellule As Range
Dim Plage_C As Range, Plage_D As Range

Heure_Actuelle = Timer
Randomize
Nb_Seconde = Int((30 - 15 + 1) * Rnd + 15)

Do
    If Not Time = "16:30:00" Then
        If Int(Timer - Heure_Actuelle) Mod Nb_Seconde = 0 Then
            f = FreeFile
            Application.Calculate
            Open "C:\Users\NOM\Desktop\TEST.txt" For Output As #f
            For Each Cellule In Range("A3:A17")
                Print #f, Cellule.Text
            Next
            Close f
        End If
    Else

        If Int(Timer - Heure_Actuelle) Mod Nb_Seconde = 0 Then
            f = FreeFile
            Application.Calculate
            Open "C:\Users\NOM\Desktop\TEST.txt" For Output As #f
            For Each Cellule In Range("A3:A17")
                Print #f, Cellule.Text
            Next
            Close f
        End If
        Range("E9:H12").Value = Range("E5:H8").Value
    End If
    DoEvents
Loop

End Sub

Bonsoir,

une proposition, pas grand chose à voir avec le code que tu as mis.

Sub aargh()
    If Range("A1") = 1 Then
        Shell "CALC.EXE", 1
    Else
        Shell "mspaint.EXE", 1
    End If
End Sub

Merci pour ton retour !

Comment faire par contre en cas de conditions multiples (Si A1 = 1...Si A1 = 2...Si A1 = 3...)

Concernant le code en fait il n’était pas en rapport avec la demande mais juste pour te montrer l'existant car je ne sais pas comment intégrer ta réponse au mieux à l’intérieur...

Merci à toi

bonjour,

Sub aargh()
    select case Range("A1").value 
case 1 
        Shell "CALC.EXE", 1
case 2
        Shell "mspaint.EXE", 1
case 3
        msgbox "coucou"
case else
       msgbox "choix autre que 1, 2 ou 3"
end select
End Sub

Merci !

Hélas je doit mal l’intégrer à mon code mais cela ne marche pas...pas d'erreur mais rien ne se produit...

re-bonjour,

le code proposé fonctionne tel quel sans erreur. Si tu le modifies difficile de dire, sans le voir, pourquoi il ne fonctionne pas.

Je ne l'ai pas modifié. J'essaye juste de l’intégrer dans mon code à moi (voir post #1)

Peux-tu me dire comment l’intégrer au mieux dans mon code ?

Bonjour, j'ai finalement réussi par moi même. Merci encore de ton aide.

Bonjour,

A l'avenir, quand tu demandes de l'aide pour un code qui ne fonctionne pas, mets le classeur avec le code qui ne fonctionne pas et les explications de ce que tu essaies de faire. Car là on devait deviner ce que tu voulais comme résultat et deviner pourquoi cela ne fonctionnait pas.

Non non regarde mon dernier post :

"Je ne l'ai pas modifié. J'essaye juste de l’intégrer dans mon code à moi (voir post #1)

Peux-tu me dire comment l’intégrer au mieux dans mon code ?"

J'avais uniquement un problème de syntaxe je te demandais rien d'autre...

J'avais uniquement un problème de syntaxe je te demandais rien d'autre...

on devait donc deviner que le problème était un problème de syntaxe ...

Ma remarque visait simplement à t'aider à comprendre comment mieux utiliser le forum pour tes questions à venir (je t'invite aussi à relire les règles).

Je trouve que la question était pourtant clair.

"Peux-tu me dire comment l’intégrer au mieux dans mon code ?"

Bref...merci pour le temps consacré à ma cause (perdue ?!)