Ca ne fonctionne pas malheureusement.. ^^ j'avais test cette méthode.
Par contre je viens de trouver une méthode:
Sub SimulateMouseClickonHyperlink()
ActiveCell.Hyperlinks(1).Follow
End Sub
et dans macro je le pilote via Ctr+Y
Ce qui fait qu'avec SendKeys j'arrive à ouvrir mes liens hypertexte sans la souris.
Sub ConvertirPDF()
Feuil2.Range("A1").Select
SendKeys "{DOWN}"
SendKeys "^(y)"
SendKeys "{LEFT}{ENTER}"
Application.Wait Now + TimeValue("0:00:01")
SendKeys "{LEFT}{ENTER}"
End Sub
Ça fonctionne très bien !
Le lien hypertexte s'ouvre.
Maintenant après ce code je souhaite piloter mon application.
Sub ConvertirPDF()
Feuil2.Range("A1").Select
SendKeys "{DOWN}"
SendKeys "^(y)"
SendKeys "{LEFT}{ENTER}"
Application.Wait Now + TimeValue("0:00:01")
SendKeys "{LEFT}{ENTER}"
PDF
End Sub
Function PDF()
'Piloter PDF
AppActivate "ST10"
Application.SendKeys "+{g}"
Application.Wait Now + TimeValue("0:00:01")
Application.SendKeys "{TAB 14}{DOWN}"
Application.SendKeys "^{c}"
Application.SendKeys "{TAB 9}{ENTER}"
Application.Wait Now + TimeValue("0:00:01")
Application.SendKeys "{F6}{RIGHT}{-}"
Application.Wait Now + TimeValue("0:00:01")
Application.SendKeys "^{v}"
Application.SendKeys "{TAB}"
Application.SendKeys "{DOWN 3}"
Application.SendKeys "~"
Application.SendKeys "~"
Application.SendKeys "{NUMLOCK}"
End Function
Problème les deux codes à part piloter par un bouton différent fonctionne très bien mais réuni comme là ça ne fonctionne plus.
Il n’exécute plus les sendkeys d'excel. Ne m'ouvre donc plus mon lien hypertexte..