Problème de chargement page IE avec VBA

Version imprimable

16/09/2013, 12h24
Absolem

Problème de chargement page IE avec VBA

Bonjour,

Voici mon problème:

Je cherche à réaliser une macro simple pour charger les fiches internet des sites pollués du site du BRGM.

L'adresse URL est constituée par sa racine + l'identidiant du site.
Voilà la macro que j'ai réalisée, mais qui ne fonctionne pas :

http://i72.servimg.com/u/f72/12/69/53/07/basias10.png

Pour l'identifiant IDF9501680 de site pollué, la macro doit lancer IE en fusionnant la racine de l'adresse qui est :
http://basias.brgm.fr/fiche_detaillee.asp?IDT=
avec IDF9501680 (que j'entre dans la case B1)

Et m'ouvrir IE avec cette adresse : http://basias.brgm.fr/fiche_detaille...IDT=IDF9501680

L'inconvénient, c'est qu'au lieu de ça, la macro m'ouvre IE mais laisse une page complètement blanche.

Quelqu'un pourrait-il m'aider?

Normalement la macro est simple, mais pour une raison que j'ignore ça ne fonctionne pas.

Cordialement,
16/09/2013, 12h36
Marc-L

Bonjour,

normal car il n'y a pas d'ouverture de page dans le code ! Voir Interaction avec Internet Explorer via VBA Excel …

Il y a aussi des exemples sur ce forum, utiliser la recherche …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
16/09/2013, 13h43
Absolem

Je vais peut-être passer pour un noeunoeud, mais tu entends quoi par "ouverture de page dans le code vba"?

Quand je lis la page de didactitiel que tu m'as montré, je vois que la seule chose qu'il manquait, c'était la déclaration de variable.

Salut,

Tu peux ouvrir une page avec FollowHyperlink

Code:

1
2
3
4
5
6
Sub OuvrirPageInternet()
    Const URL As String = "http://www.developpez.net/forums/d1378330/logiciels/microsoft-office/excel/macros-vba-excel/probleme-chargement-page-ie-avec-vba/"
 
    'Lance une nouvelle page sur le navigateur WEB par défaut
    Application.ThisWorkbook.FollowHyperlink URL
End Sub

Code:

1
2
3
4
5
6
7
Sub OuvrirPageInternetv2()
    Const RacineURL As String = "http://www.developpez.net/forums/d1378330/logiciels/microsoft-office/excel/macros-vba-excel/"
    Const URL1 As String = "probleme-chargement-page-ie-avec-vba/"
 
    'Lance une nouvelle page sur le navigateur WEB par défaut
    Application.ThisWorkbook.FollowHyperlink RacineURL & URL1
End Sub

16/09/2013, 13h54
Absolem

Ok, j'ajoute donc ce code avant le mien?
16/09/2013, 14h15
Marc-L

Citation:

Envoyé par Absolem

Je vais peut-être passer pour un noeunoeud, mais tu entends quoi par "ouverture de page dans le code vba"?

Quand je lis la page de didactitiel que tu m'as montré, je vois que la seule chose qu'il manquait, c'était la déclaration de variable.

La chose qui manque c'est l'ouverture de la page web !
Ne pas confondre ouverture d'IE et ouverture d'une page …

Si c'est juste pour ouvrir une page et non pas piloter IE, effectivement la méthode FollowHyperlink est la plus simple …
16/09/2013, 14h31
patricktoulon

heu

Bonjour

Code:

ie.navigate "lien de ta page" 'ouvre ta page

Au plaisir

J'ai essayé, mais ça m'affiche "Can't execute code in break mode"

Voilà la macro modifié :

Code:

1
2
3
4
5
6
Sub OuvrirPageInternet()
Const URL As String = "http://basias.brgm.fr/fiche_detaillee.asp?IDT=" & Worksheets("Configuration").Range("B1").Value
'On termine l'adresse HTML par la valeur du rang B1 de la page de configation
 
Application.ThisWorkbook.FollowHyperlink URL
End Sub

16/09/2013, 14h53
Invité

Je ne suis pas sûr que l'on puisse définir une variable sur une constante.

Ton erreur a l'air différente de ce constat par contre. Tu es en mode pas à pas ou en mode arrêt apparemment et ça génère une erreur.

Remplace

Code:

Const URL As String = "http://basias.brgm.fr/fiche_detaillee.asp?IDT=" & Worksheets("Configuration").Range("B1").Value

par

Code:

Dim URL As String:URL = "http://basias.brgm.fr/fiche_detaillee.asp?IDT=" & Worksheets("Configuration").Range("B1").Value
16/09/2013, 14h56
patricktoulon

re

Re
je suis allez sur le site il semblerait que les lien cliquables sur la page soit morts ca viens peut etre de la :mouarf:

Au plaisir
16/09/2013, 15h06
Absolem

Citation:

Envoyé par Nouveau2

Je ne suis pas sûr que l'on puisse définir une variable sur une constante.

Ton erreur a l'air différente de ce constat par contre. Tu es en mode pas à pas ou en mode arrêt apparemment et ça génère une erreur.

Remplace

Code:

Const URL As String = "http://basias.brgm.fr/fiche_detaillee.asp?IDT=" & Worksheets("Configuration").Range("B1").Value

par

Code:

Dim URL As String:URL = "http://basias.brgm.fr/fiche_detaillee.asp?IDT=" & Worksheets("Configuration").Range("B1").Value

J'essaye ça de suite.

Citation:

Envoyé par patricktoulon

Re
je suis allez sur le site il semblerait que les lien cliquables sur la page soit morts ca viens peut etre de la

Au plaisir

C'est normal que le lien soit mort il n'est pas complété, le but c'est de fusionner ce lien inachever avec le numéro que j'inscrit dans la case B1. Et pour l'instant, là où je butte c'est d'ouvrir la page internet en question.

Le lien fusionné donne ça:
http://basias.brgm.fr/fiche_detaille...IDT=IDF9501680
Ce qui est inscrit dans la case B1 c'est "IDF9501680"
16/09/2013, 15h10
Absolem

ça marche Nouveau2 !!!!

Merci!! :)
16/09/2013, 15h14
Invité

De rien ;) ,
:ccool:

A+
16/09/2013, 15h48
patricktoulon

re

oupss !!!

je n'avais pas vu en effet quand on utilise une constante ,on la definie en dur

au plaisir