Lancer ou revenir sur Firefox (VBA)

Bonjour,

Sur le fichier joint, un bouton lance le navigateur "FIREFOX". Si je clique à nouveau, une nouvelle instance est lancée.

Est-il possible que lors d'un nouveau clic, l'instance déjà ouverte s'affiche et non pas une nouvelle fenêtre?

Je vous remercie pour votre aide.

Bon weekend.

93classeur1.xlsm (13.04 Ko)

Bonjour,

Ci-joint une proposition à tester.

Cordialement

Bouben

Merci pour cette rapide solution. Malheureusement, je ne peux pas la tester car excel tourne en 64bits sur mon ordinateur. Je travaille sur un ordinateur en réseau.

J'ai essayé d'adapter les lignes de commandes avec l'expression "PtrSafe" placée devant function mais je ne maîtrise pas assez excel.

Bonjour

et si juste comme cela avec le code de Bouben post au-dessus merci à lui :

cela à fonctionner à tester

Public Sub LanceFirefox()

    Dim bActif As Boolean
    Dim RetVal

    bActif = FirefoxActivate()

    If Not bActif Then
        ' Lance Firefox
        RetVal = Shell("C:\progra~1\mozill~1\firefox.exe", 1)
       ' RetVal = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe")
    End If

End Sub

crdlt,

André

J'ai installé une version d'office en 32 bits (2013). Cela fonctionne parfaitement. Merci beaucoup pour votre aide.

Problème résolu, super !

En complément, un lien bien utile pour cette problématique récurrente des API 32 / 64 bits

http://www.jkp-ads.com/articles/apideclarations.asp

Bouben

Super. Je garde le lien sous le coude. Très instructif et complet.

Sur office en 64 bits, j'utilise cette ligne de commande :

Shell """C:\progra~1\mozill~1\firefox.exe"" http://www.google.fr", vbMaximizedFocus

Elle ne créé pas de nouvelle instance, elle rajoutte juste un onglet sur l'instance déjà ouverte en la mettant au premier plan.

Rechercher des sujets similaires à "lancer revenir firefox vba"