XL 2016 Macro qui génère Argument ou appel de procédure incorrect

[bambi]

Bonjour à tous 🙂

J'ai une macro qui fonctionnait parfaitement avec [Excel 2007]
mais elle génère une erreur "Argument ou appel de procédure incorrect" sous [Excel 2016]
24 heures que je cherche la solution sans succès 😕
Aussi je vous soumet mon fichier 🙂

Ma macro est assez simple
Elle ouvre des liens Internet avec Opera, liens récupérés dans une cellule.

Merci d'avance de vos idées 😉

 

[Lone-wolf]

Bonjour bambi 🙂, le Forum 🙂

Je n'ai pas Opera, mais le dossier ce n'est pas Program Files, mais Program Files(x86) normalement.

 

[bambi]

Bien vu Lone-wolf 😉
Le problème est bien à chercher de ce côté là
Si je mets un lien vers Firefox, ça fonctionne

RetVal = Shell("C:\Program Files\Mozilla Firefox\firefox.exe " & Range("A1").Text, 1)

Mais pour l'instant, Program Files(x86) ne fonctionne pas pour lancer Opera
Donc je vais chercher et je posterai la solution dès que je l'ai
Merci de ton aide, j'ai enfin une vraie piste de recherche 🙂

 

[Lone-wolf]

Re

C'est un peu plus long, mais tu peux faire aussi

Sub test()
Dim Navigateur$, Lien1$, Lien2$, RetVal

Navigateur = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe "
Lien1 = Range("a1")
Lien2 = Range("a2")

RetVal = Shell(Navigateur & Lien1, 1)
RetVal = Shell(Navigateur & Lien2, 1)

End Sub

 

[bambi]

@Lone-wolf
La ligne objShell.Run ne fonctionne pas et est en rouge sous [Excel 2016]
Je me demande si mon problème est vraiment un problème excel 🙄
J'ai plutôt l'impression que c'est un problème avec le launcher Opera
Car si je passe tous mes liens avec Firefox, ma macro fonctionne parfaitement
Je vais donc plutôt chercher de ce côté là
Merci de ton aide précieuse 😉

 

[Lone-wolf]

Re bambi

J'ai installé Opera dans X86 et comme ceci ça ouvre bien le lien.

Sub Opera()
Dim Navigateur$, Lien1$, Lien2$, RetVal

Navigateur = "C:\Program Files (x86)\launcher.exe "
Lien1 = Range("a1")
Lien2 = Range("a2")

RetVal = Shell(Navigateur & Lien1, 1)
'RetVal = Shell(Navigateur & Lien2, 1)
End Sub

En Image

Ce qui est bizarre c'est, si on met tous les fichiers dans un nouveau dossier, ça ne fonctione plus. 😵

 

[bambi]

Je vais désinstaller puis réinstaller Opera dans x86 pour tester ça tout de suite 😉

 

[bambi]

And the winner is ...... Lone-wolf 😀

Ta toute première solution était la bonne
Mon installation était dans le dossier Programmes
Et ça, manifestement, [Excel 2016] n'en voulait pas

J'ai réinstaller dans Program Files(x86) puis modifier ma ligne en y ajoutant (x86) et ça fonctionne comme avant

Sub ActuDuJour()
Dim RetVal As Long

    RetVal = Shell("C:\Program Files (x86)\Opera\launcher.exe " & Range("A1").Text, 1)
    RetVal = Shell("C:\Program Files (x86)\Opera\launcher.exe " & Range("A2").Text, 1)
   
End Sub

Merci beaucoup Lone-wolf et bonne journée 😉