Importer une page html dans VB - Langages dérivés / VBA, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 07 04:38:06

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

SHAREPOINT 2007 : LISTE PERSONNALISéE, COLONNES DE SITE ET MENU CONTEXTUEL par phil

[WPF/SILVERLIGHT] TERNARY CONVERTERS par NeuroCypher

BONNE ANNéE, BONNE SANTé ET SURTOUT DE BONS POWERPOINT !!! par themit

SUGGESTIONS VISUAL STUDIO par brunews

RE : PORBLèME AFFICHAGE par jocker132

RE : PORBLèME AFFICHAGE par skyla

MODèLE POUR CRéER UN FORMULAIRE CALENDRIER DANS ACCESS par VBMegderic

RE : PORBLèME AFFICHAGE par jocker132

OUVRIR UN PRJET DE VB.NET 2003 DANS VB.NET 2005 par estrella_brillosa

+ de logiciels à télécharger

1 328 819 membres
58 nouveaux aujourd'hui
14 637 membres club

Trouver une ressource

Trouvez une ressource parmi 39 265 codes, 1 222 318 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : Importer une page html dans VB [ Langages dérivés / VBA ] (ricomiracle)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Visual Basic 6 / Langages dérivés / VBA / Importer une page html dans VB
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

jeudi 4 décembre 2008 à 18:23:02 | Importer une page html dans VB

ricomiracle

Bonjour à tous,

Je cherche à importer une page html dans Excel (ou dans un fichier texte que je pourrais traiter avec Excel). J'ai vu que cela était possible en utilisant l'objet querytables. Le code suivant fonctionne:

Dim qt As QueryTable
Dim sh As Worksheet

'
Set sh = ThisWorkbook.Worksheets("Feuil5")
Set qt = sh.QueryTables _
    .Add(Connection:="URL;http://www.google.fr", _
        Destination:=sh.Cells(1, 1))
With qt
    .WebFormatting = xlNone
    .WebSelectionType = xlSpecifiedTables
    .WebTables = "1"
    .Refresh
End With

Mais pas sur la page avec laquelle je souhaite travailler:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 6.00.2900.3059" name=GENERATOR></HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#00ff00 link=#0000ff bgColor=#ffffff>
<CENTER>
<H1>blablablabla</H1>
<HR width="90%">

<H2>Print Job Log</H2>System Up Time: 03 days 05 hours 53 mins 55 secs<BR><BR>
<TABLE cellSpacing=6 cellPadding=3 align=center border=0>
<TBODY>
<TR>
    <TH noWrap align=middle>Total Jobs Printed:</TH>
    <TD noWrap>1859</TD></TR>
<TR>
    <TH noWrap align=right>Job Information:</TH>
    <TD noWrap>TCP/IP * IP Address xxxxxxxxx * TCP Port 9100 * 16
Bytes</TD></TR>
<TR>
    <TH noWrap align=right>Time Elapsed:</TH>
    <TD noWrap>0 hours 6 minutes 11 seconds</TD></TR>
<TR>
    <TH noWrap align=right>Job Information:</TH>
    <TD noWrap>TCP/IP * IP Address xxxxxxxxx * TCP Port 9100 * 20
Bytes</TD></TR>
<TR>
    <TH noWrap align=right>Time Elapsed:</TH>
    <TD noWrap>0 hours 6 minutes 11 seconds</TD></TR>
<TR>
    <TH noWrap align=right>Job Information:</TH>
    <TD noWrap>TCP/IP * IP Address xxxxxxxxx * TCP Port 9100 * 22
Bytes</TD></TR>
<TR>
    <TH noWrap align=right>Time Elapsed:</TH>
    <TD noWrap>0 hours 6 minutes 12 seconds</TD></TR>
<TR>
    <TH noWrap align=right>Job Information:</TH>
    <TD noWrap>TCP/IP * IP Address xxxxxxxxx * TCP Port 9100 * 20
Bytes</TD></TR>
<TR>
    <TH noWrap align=right>Time Elapsed:</TH>
    <TD noWrap>0 hours 6 minutes 13 seconds</TD></TR>
<TR>
    <TH noWrap align=right>Job Information:</TH>
    <TD noWrap>TCP/IP * IP Address xxxxxxxxx * TCP Port 9100 * 16
Bytes</TD></TR>
<TR>
    <TH noWrap align=right>Time Elapsed:</TH>
    <TD noWrap>0 hours 12 minutes 38 seconds</TD></TR>
<TR>
    <TH noWrap align=right>Job Information:</TH>
    <TD noWrap>TCP/IP * IP Address xxxxxxxxx * TCP Port 9100 * 20
Bytes</TD></TR>
<TR>
    <TH noWrap align=right>Time Elapsed:</TH>
    <TD noWrap>0 hours 12 minutes 39 seconds</TD></TR>
<TR>
    <TH noWrap align=right>Job Information:</TH>
    <TD noWrap>TCP/IP * IP Address xxxxxxxxx * TCP Port 9100 * 22
Bytes</TD></TR>
<TR>
    <TH noWrap align=right>Time Elapsed:</TH>
    <TD noWrap>0 hours 12 minutes 40 seconds</TD></TR>
<TR>
    <TH noWrap align=right>Job Information:</TH>
    <TD noWrap>TCP/IP * IP Address xxxxxxxxx * TCP Port 9100 * 20
Bytes</TD></TR>
<TR>
    <TH noWrap align=right>Time Elapsed:</TH>
    <TD noWrap>0 hours 12 minutes 40 seconds</TD></TR>
<TR>
    <TH noWrap align=right>Job Information:</TH>
    <TD noWrap>TCP/IP * IP Address xxxxxxxxx * TCP Port 9100 * 1491830
    Bytes</TD></TR>
<TR>
    <TH noWrap align=right>Time Elapsed:</TH>
    <TD noWrap>0 hours 13 minutes 22 seconds</TD></TR>
<TR>
    <TH noWrap align=right>Job Information:</TH>
    <TD noWrap>TCP/IP * IP Address xxxxxxxxx * TCP Port 9100 * 20
Bytes</TD></TR>
<TR>
    <TH noWrap align=right>Time Elapsed:</TH>
    <TD noWrap>0 hours 14 minutes 36 seconds</TD></TR></TBODY></TABLE><BR>
<HR width="90%">
<BR>
<CENTER><A href="xxxxxxxxx" target=_top>| Home
|</A><A href="xxxxxxxxx" target=_top> Print Server
Config |</A> <BR></CENTER></CENTER></BODY></HTML>

J'obtiens le message d'erreur :
Aucune donnée renvoyée par la requête Web. Pour modifier la requête...

Je travail beaucoup sur les fichiers en vba (FileSystemObject). Si il y a moyen d'enregistrer une page web (fichier enregistrer sous depuis un browser) en VBA ça serait idéal.

Merci pour votre aide

Cette discussion est classé dans : ip, time, tcp, job, hours

Répondre à ce message

Sujets en rapport avec ce message

client TCP ou IP [ par Thoxik ] Je cherche un client TCP(avec source si possible); c a dire un programme qui envoi les paquets TCP sans passé par windows.ou meme un client IP !ça ser quel est la formule de calcul des checksum ip et tcp ?? [ par gargamail ] Salut a tous,Voila je voudrais calculer les checksums ip et tcp d'un paquet tcp/ip. j'ai trouver des infos :----------pour entete ipSoit le datagramme Automatiser Une liaison TCP/IP via un site FTP [ par Fou_volant13 ] JE cherche un moyen pour un jeu en réseau de se connecter a d'autres joueurs sans avoir besoin d'afficher son adresse IP.Je pensais qu'avec Inet on po Plusieurs questions VB .Net et TCP/IP [ par Bichon63 ] Bonjour,Pour me familiariser avec VB .Net et les notions réseaux, j'ai décidé de faire un petit programme permettant de dialoguer avec quelqu'un d'aut Pb TCP/IP - .Net [ par Bichon63 ] Bonjour,Je fait une appli qui permet de faire communiquer (via message texte) 2 PC. Quand je suis en reseau local, ca fonctionne. Par contre sur inter Débit, protocole... en TCP\IP [ par Fanie ] Je voudrais connaître en temps réel le débit, le protocole, la taille du fichier... en TCP\IP avec VB 6.Existe-t-il des API pour cela, ou bien faut il Dialogue TCP/IP [ par thephil ] Salut à tous,je chercherai un module permettant de faire dialoguer une application VB 6.0 sur deux pcs d'un réseau local (avec par exemple un système Time_t de $*£%!§ [ par crenaud76 ] Je cherche à utiliser l'API GetAdaptersInfo et j'ai un souci avec le type Ip_ADAPTER_INFO, et précisément avec les argument LeaseObtained et LeaseExpi Stats TCP/IP ?? [ par Mircasi ] Bonjour,Je voudrais savoir comment recuperer en temps reel les donnes emises et recues par ce protocole. Merci d'avance Dll ou OCX pour une connection TCP/IP [ par Alain ] Existe t'il une Dll ou OCX pour une connection TCP/IP autre que winsock. merci