Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic DHTML sans le webbrowser

DHTML sans le webbrowser

4 réponses
Avatar
Gloops
Bonjour tout le monde,

Je cherche =E0 r=E9cup=E9rer des infos d'un serveur (en fait des coordonn=
=E9es=20
de salari=E9s dans un annuaire interne) afin de les exploiter dans une=20
base de donn=E9es (Oracle avec frontal Access). Je les re=E7ois via un=20
intranet sous Internet Explorer, en r=E9ponse =E0 une recherche (chaque p=
age=20
est obtenue par clic sur la liste de r=E9sultats de recherche ; il y a=20
toutefois moyen de reconstituer les adresses des pages =E0 obtenir).

Si je charge le document r=E9sultant dans Word pour en extraire les infos=
=20
des cellules de tableaux, j'obtiens quelque chose d'exploitable (sous=20
r=E9serve de la stabilit=E9 de la structure du document), mais avec=20
toutefois le gros handicap que dans Word (ou dans Excel d'ailleurs) le=20
document met plus de trente secondes =E0 se charger (par individu).=20
Sachant que dans IE il met =E0 peine deux secondes, je me dis que =E7a=20
serait probablement une meilleure id=E9e d'ouvrir =E7a dans IE, la=20
difficult=E9 devenant alors de s=E9lectionner la fen=EAtre pour la traite=
r=20
dans l'application. En fait je n'ai gu=E8re que la bureautique sous le=20
coude, m=EAme pas de WebBrowser dans les r=E9f=E9rences (possible, =E7a, =
ou j'ai=20
vraiment mal regard=E9 ? Le navigateur est Internet Explorer 6.0)

Est-il possible de d=E9clarer un objet DHtml sur une fen=EAtre Internet=20
Explorer, comme on fait d'habitude sur un WebBrowser ? Forc=E9ment =E7a s=
era=20
plus lourd comme syntaxe, mais je n'ai pas vraiment l'impression d'avoir =

le choix. Pas vu de r=E9f=E9rence DHTML, mais j'ai peut-=EAtre mal cherch=
=E9.=20
Ah, en revanche j'ai une collection de r=E9f=E9rences xml (2.0, 2.6, 3.0,=
=20
4.0, 5.0). Mais si je regarde l=E0-dedans (avec la version 2.0), je vois =

le chargement depuis un fichier.

J'ai essay=E9 =E7a :
Dim objetFSO As Scripting.FileSystemObject
Dim Fic As TextStream
Dim Doc As New MSXML.DOMDocument
Dim b As Boolean
Set objetFSO =3D CreateObject("Scripting.FileSystemObject")
Set Fic =3D objetFSO.OpenTextFile(<url>, ForReading)
Doc.loadXML Fic.ReadAll

mais =E0 OpenTextFile on me dit nom ou num=E9ro de fichier incorrect.
Pour ouvrir une URL, le TextStream n'a pas l'air d'=EAtre le bon filon. J=
e=20
mets quoi =E0 la place ? =E7a pourrait =EAtre =E7a ma question, vu que ma=
=20
premi=E8re tentative a =E9t=E9 de passer par un document Word, et que =E7=
a s'est=20
av=E9r=E9 beaucoup trop lent.

Pour r=E9sumer j'ai essay=E9 via Word, trop lent, pas trouv=E9 la r=E9f=E9=
rence=20
pour WebBrowser, j'essaierais bien de manipuler le document depuis=20
Internet Explorer si je trouve la syntaxe pour =E7a, ou encore la solutio=
n=20
la plus prometteuse est peut-=EAtre xml mais j'ai b=EAtement but=E9 sur l=
a=20
lecture d'un fichier directement depuis son URL. Certes on pourrait me=20
parler de FTP mais avant de m'engager l=E0-dedans j'aimerais que quelqu'u=
n=20
me confirme que c'est une voie adapt=E9e, ou au contraire ait d=E9j=E0 vu=
que=20
c'=E9tait trop lourd par rapport au but.

Je commence par t=E2cher de me d=E9brouiller avec ce que j'ai. Apr=E8s,=20
j'essaierai de voir si il n'y a pas moyen d'acc=E9der =E0 la base source =

avec d'autres outils (quitte =E0 passer par une fonction Java), mais =E7a=
=20
suppose vraisemblablement des pesanteurs administratives, donc =E7a=20
pourrait motiver un autre fil, plus tard. L'int=E9r=EAt sera alors de=20
s'assurer la stabilit=E9 de l'entr=E9e de donn=E9es (plut=F4t que de repo=
ser sur=20
une interface de sortie qui peut changer).

A d=E9faut d'une bonne solution, question subsidiaire : quel serait le=20
meilleur newsgroup pour poser cette question ?
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
didier.lefebvre
On 2 juil, 06:16, Gloops wrote:
Bonjour tout le monde,

Je cherche à récupérer des infos d'un serveur (en fait des coordonn ées
de salariés dans un annuaire interne) afin de les exploiter dans une
base de données (Oracle avec frontal Access). Je les reçois via un
intranet sous Internet Explorer, en réponse à une recherche (chaque p age
est obtenue par clic sur la liste de résultats de recherche ; il y a
toutefois moyen de reconstituer les adresses des pages à obtenir).

Si je charge le document résultant dans Word pour en extraire les infos
des cellules de tableaux, j'obtiens quelque chose d'exploitable (sous
réserve de la stabilité de la structure du document), mais avec
toutefois le gros handicap que dans Word (ou dans Excel d'ailleurs) le
document met plus de trente secondes à se charger (par individu).
Sachant que dans IE il met à peine deux secondes, je me dis que ça
serait probablement une meilleure idée d'ouvrir ça dans IE, la
difficulté devenant alors de sélectionner la fenêtre pour la traite r
dans l'application. En fait je n'ai guère que la bureautique sous le
coude, même pas de WebBrowser dans les références (possible, ça, ou j'ai
vraiment mal regardé ? Le navigateur est Internet Explorer 6.0)

Est-il possible de déclarer un objet DHtml sur une fenêtre Internet
Explorer, comme on fait d'habitude sur un WebBrowser ? Forcément ça s era
plus lourd comme syntaxe, mais je n'ai pas vraiment l'impression d'avoir
le choix. Pas vu de référence DHTML, mais j'ai peut-être mal cherch é.
Ah, en revanche j'ai une collection de références xml (2.0, 2.6, 3.0,
4.0, 5.0). Mais si je regarde là-dedans (avec la version 2.0), je vois
le chargement depuis un fichier.

J'ai essayé ça :
Dim objetFSO As Scripting.FileSystemObject
Dim Fic As TextStream
Dim Doc As New MSXML.DOMDocument
Dim b As Boolean
Set objetFSO = CreateObject("Scripting.FileSystemObject")
Set Fic = objetFSO.OpenTextFile(<url>, ForReading)
Doc.loadXML Fic.ReadAll

mais à OpenTextFile on me dit nom ou numéro de fichier incorrect.
Pour ouvrir une URL, le TextStream n'a pas l'air d'être le bon filon. J e
mets quoi à la place ? ça pourrait être ça ma question, vu que ma
première tentative a été de passer par un document Word, et que ç a s'est
avéré beaucoup trop lent.

Pour résumer j'ai essayé via Word, trop lent, pas trouvé la réf érence
pour WebBrowser, j'essaierais bien de manipuler le document depuis
Internet Explorer si je trouve la syntaxe pour ça, ou encore la solutio n
la plus prometteuse est peut-être xml mais j'ai bêtement buté sur l a
lecture d'un fichier directement depuis son URL. Certes on pourrait me
parler de FTP mais avant de m'engager là-dedans j'aimerais que quelqu'u n
me confirme que c'est une voie adaptée, ou au contraire ait déjà vu que
c'était trop lourd par rapport au but.

Je commence par tâcher de me débrouiller avec ce que j'ai. Après,
j'essaierai de voir si il n'y a pas moyen d'accéder à la base source
avec d'autres outils (quitte à passer par une fonction Java), mais ça
suppose vraisemblablement des pesanteurs administratives, donc ça
pourrait motiver un autre fil, plus tard. L'intérêt sera alors de
s'assurer la stabilité de l'entrée de données (plutôt que de repo ser sur
une interface de sortie qui peut changer).

A défaut d'une bonne solution, question subsidiaire : quel serait le
meilleur newsgroup pour poser cette question ?



Avec Office 2000, XP et IE6 pour utiliser un webbrowser, les
références à activer sont :
- Microsoft HTML Object Library (C:WINNTsystem32MSHTML.TLB)
- Microsoft Internet Controls (C:WINNTsystem32shdocvw.dll)

Tu peux aussi très bien manipuler le document affiché dans une fenêtr e
d'IE avec les objets de MSHTML. Le plus simple est probablement de
créer sa propre instance d'Internet Explorer et de capturer
l'évènement DocumentComplete.

Mais dans ton cas, j'attaquerais directement la base source (ton
annuaire) depuis la base Oracle ou depuis VBA et ADO si il y a un
driver de disponible.
Avatar
Gloops
Bonjour,

Pour finir mon client s'est farci l'import à la main, du coup, avec mon
emploi du temps fourni je n'ai plus pensé à venir voir. Ce serait qua nd
même bien que je finisse par trouver quelque chose de plus viable pour
une mise à jour.

a écrit, le 04/07/2008 09:31 :
Avec Office 2000, XP et IE6 pour utiliser un webbrowser, les
références à activer sont :
- Microsoft HTML Object Library (C:WINNTsystem32MSHTML.TLB)
- Microsoft Internet Controls (C:WINNTsystem32shdocvw.dll)



Ah, avec des références précises, je vais bien voir ce que ça va
répondre, merci.


Tu peux aussi très bien manipuler le document affiché dans une fenê tre
d'IE avec les objets de MSHTML. Le plus simple est probablement de
créer sa propre instance d'Internet Explorer et de capturer
l'évènement DocumentComplete.



C'est ce que j'essayais de faire, au départ. J'obtiens l'objet par un
CreateObject, qu'est-ce que je lui donne comme argument, le titre de la
fenêtre ? Et un type d'objet, aussi, peut-être ?


Mais dans ton cas, j'attaquerais directement la base source (ton
annuaire) depuis la base Oracle ou depuis VBA et ADO si il y a un
driver de disponible.




Oui, bien entendu, c'est à ça que je penserais bien en premier. L'enn ui
quand on est recruté en intérim par l'utilisateur, c'est que la DOSI ne
collabore pas toujours aussi bien que si on en faisait partie. Après,
bien entendu, une fois que je saurais ce que c'est comme base, à quelle
adresse, et que je serais sûr d'avoir les droits pour l'attaquer avec l e
protocole que je veux ...

Si je finis en avance sur mon développement lui-même, c'est probablem ent
comme ça que ça va finir, sous réserve de trouver les bons
interlocuteurs, et ... les bons arguments :) .

En tout cas merci pour cette réponse, et pardon d'y répondre si tardi vement.
Avatar
didier.lefebvre
On 13 juil, 08:26, Gloops wrote:

> Tu peux aussi très bien manipuler le document affiché dans une fen être
> d'IE avec les objets de MSHTML. Le plus simple est probablement de
> créer sa propre instance d'Internet Explorer et de capturer
> l'évènement DocumentComplete.

C'est ce que j'essayais de faire, au départ. J'obtiens l'objet par un
CreateObject, qu'est-ce que je lui donne comme argument, le titre de la
fenêtre ? Et un type d'objet, aussi, peut-être ?



Un petit exemple en VBA d'Excel 2000 par exemple avec les références
- Microsoft HTML Object Library (C:WINNTsystem32MSHTML.TLB)
- Microsoft Internet Controls (C:WINNTsystem32shdocvw.dll)

Une classe que je nomme cIE :

Option Explicit

Public Event DocComplete()
Private WithEvents m_IE As InternetExplorer
Private m_hDoc As MSHTML.HTMLDocument

Public Sub NavigateTo(sUrl As String)
m_IE.Navigate2 sUrl
End Sub

Public Property Get hDoc() As MSHTML.HTMLDocument
Set hDoc = m_hDoc
End Property

Private Sub Class_Initialize()
Set m_IE = New InternetExplorer
End Sub

Private Sub Class_Terminate()
Set m_IE = Nothing
Set m_hDoc = Nothing
End Sub

Private Sub m_IE_DocumentComplete(ByVal pDisp As Object, URL As
Variant)
If Not (pDisp Is m_IE) Then
Exit Sub
End If

Set m_hDoc = m_IE.Document
RaiseEvent DocComplete
End Sub


Utilisation depuis un UserForm :

Option Explicit

Private WithEvents m_cIE As cIE
Private m_hDoc As MSHTML.HTMLDocument

Private Sub CommandButton1_Click()
m_cIE.NavigateTo "http://www.google.fr/"
End Sub

Private Sub m_cIE_DocComplete()
Set m_hDoc = m_cIE.hDoc
MsgBox m_hDoc.Title
End Sub

Private Sub UserForm_Initialize()
Set m_cIE = New cIE
End Sub

Private Sub UserForm_Terminate()
Set m_cIE = Nothing
Set m_hDoc = Nothing
End Sub
Avatar
Gloops
Ah, ça fait un moment que je ne suis plus venu.

Le test de ma messagerie que je viens de réinstaller est une occasion d e
découvrir ta réponse :)

Pour l'exemple qui m'a amené à poser la question on s'est organisé
autrement, mais il est fort probable que la question reviendra sur le tap is.

Quand est-ce que je vais tester ça ... ?
Dans un peu plus de deux semaines, probablement.
Mes utilisateurs seront partis en vacances, donc je tente de leur
refiler un maximum de tests à pratiquer avant sur leur base de donnée s
(pas celle d'où on tire l'annuaire, l'autre, celle que je développe).

Peut-être seras-tu parti aussi ?
Bonnes vacances alors.
Bon, dans ce cas on en reparle à la rentrée. :)

Merci pour le tuyau.
______________________________________________________
a écrit, le 15/07/2008 17:37 :
Un petit exemple en VBA d'Excel 2000 par exemple avec les référence s
- Microsoft HTML Object Library (C:WINNTsystem32MSHTML.TLB)
- Microsoft Internet Controls (C:WINNTsystem32shdocvw.dll)

Une classe que je nomme cIE :