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

Lone-wolf

XLDnaute Barbatruc

• 26 Juillet 2018

• #2

Bonjour bambi , le Forum

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

 

Vote positif 0 Vote négatif

bambi

XLDnaute Occasionnel

• 26 Juillet 2018

• #3

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

VB:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Juillet 2018

• #4

Re

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

VB:

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

 

Vote positif 0 Vote négatif

bambi

XLDnaute Occasionnel

• 26 Juillet 2018

• #5

@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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Juillet 2018

• #6

Re bambi

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

VB:

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.

 

Dernière édition: 26 Juillet 2018

Vote positif 0 Vote négatif

bambi

XLDnaute Occasionnel

• 26 Juillet 2018

• #7

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

 

Vote positif 0 Vote négatif

bambi

XLDnaute Occasionnel

• 26 Juillet 2018

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

Solution