Accès page Web -Mauvais résultat

Bonjour,

J'aimerai accéder à une page web en cliquant sur un bouton. Jusqu'ici rien de compliqué seulement, ma macro ne m'envoie pas sur la bonne page. En effet, elle m'ouvre la page d'accueil du site et non mon espace personnel. Néanmoins, je suis bien connecté au site mais il faut quand même que je clique sur "My dashboard" pour accéder à mon espace personnel.

J'aimerai savoir s'il y a une solution à mon problème pour accéder directement à la page souhaiter ?

Merci d'avance !

Voici le code utilisé:

Sub netvibes()

Dim strWebsite As String

strWebsite = "http://www.netvibes.com/dashboard/1"

ActiveWorkbook.FollowHyperlink Address:=strWebsite, NewWindow:=True

End Sub

Au lieu d'arriver sur http://www.netvibes.com/dashboard/1, la page s'ouvre sur http://www.netvibes.com/en (en anglais en plus :3) ahahah.

SI tu tapes http://www.netvibes.com/dashboard/1 qu'est-ce qu'il te donne ? regardes s'il faut mettre https ...

ou alors il faut sauvegarder ton login

Beh si je tape l'adresse dans mon navigateur sa marche bien. J'ai mis https:// mais sa me donne le même résultat. C'est quand même bizarre non ?

je rends mon tablier !

j'ai regardé le code source de la page, je crains que netvibes n'autorise pas cet appel !

je me suis pourtant loggé au préalable

C'est bien la première fois que je constate que excel ne peut pas tout faire :'(.

Si même les experts jettent l'éponge... où on vas !!! Mdr. Bon beh tant pis :/ Merci quand même d'avoir chercher au moins je suis fixé .

Mais quand même, j'ai un raccourci sur mon bureau pour ouvrir la page est sa ne fait pas ça. HmmHmm à méditer.

Merci Beaucoup!

Même si j'adapte ma macro pour qu'elle ouvre le raccourci sur le bureau.. Sa fonctionne pas. Je doit comprendre que le problème provient vraiment du code source du site ?

Abandon.. Échec.. Désespoirs

C'est bon j'ai trouvé une solution !

J'ouvre chrome, et je rentre l'adresse dans la barre url. Et sa fonctionne super !

Qui doute d'Excel maintenant !

Sub netvibes()

  Dim chromePath As String

  chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""

  Shell (chromePath & " -url http://www.netvibes.com/dashboard/1")

End Sub

Chapeau !!

Je suis ému