Forums XLPages

Tous les messages (S☼leil)

1 2 »
Re: Récupérer une page web
#1
S☼leil
Débutant XLPages

Inscription: 20/09/2009

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 22-09-2009 16h55

 


Merci pour votre aide précieuse (Ouarf! c'est un clin d')

Voila une chose qui fonctionne pour ceux que ça peut intérresser, basée sur une page pour les turfistes

Option Explicit
Dim x, y
    Dim IE As Object
    Dim dct
    Dim Num
    Dim k

    Declare Function GetSystemMetrics32 Lib "user32" _
     Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long


Sub azer()


    Set IE = CreateObject("internetexplorer.application")
            'Pour le jour
            IE.Navigate ("http://www.zeturf.com/fr/resultats")
            IE.Visible = True
            IE.Top = 0
            IE.Left = 0
            'Obtention en nombre de points de la largeur d'�an
            IE.Width = GetSystemMetrics32(0)
            IE.Height = GetSystemMetrics32(1)
           
 ' chargement
Do While IE.ReadyState <> 4
Application.Wait (Now + 0.1 / 3600 / 24)
Loop

            Set dct = IE.Document
            For Num = 0 To IE.Document.getElementsByTagName("select").Length - 1
            If dct.getElementsByTagName("select").Item(Num).Name = "recherche_jour" Then
                For k = 0 To dct.getElementsByTagName("select").Item(Num).Options.Length Step 1
                If dct.getElementsByTagName("select").Item(Num).Options(k).Text = Trim(Day(Now())) Then
                dct.getElementsByTagName("select").Item(Num).Options(k).Selected = dct.getElementsByTagName("select").Item(Num).Options(k).Value
                GoTo mois
                End If
                Next
            End If
            Next
            'Pour le mois
mois:     For Num = 0 To IE.Document.getElementsByTagName("select").Length - 1
          If dct.getElementsByTagName("select").Item(Num).Name = "recherche_mois" Then
               For k = 0 To dct.getElementsByTagName("select").Item(Num).Options.Length Step 1
               If dct.getElementsByTagName("select").Item(Num).Options(k).Text = Trim(Month(Now())) Then
               dct.getElementsByTagName("select").Item(Num).Options(k).Selected = dct.getElementsByTagName("select").Item(Num).Options(k).Value
               GoTo annee
               End If
               Next
          End If
          Next
            'Pour l'ann�/span>
annee:     For Num = 0 To IE.Document.getElementsByTagName("select").Length - 1
           If dct.getElementsByTagName("select").Item(Num).Name = "recherche_annee" Then
               For k = 0 To dct.getElementsByTagName("select").Item(Num).Options.Length Step 1
               If dct.getElementsByTagName("select").Item(Num).Options(k).Text = Trim(Year(Now())) Then
               dct.getElementsByTagName("select").Item(Num).Options(k).Selected = dct.getElementsByTagName("select").Item(Num).Options(k).Value
               GoTo valide
               End If
               Next
                End If
            Next
valide:     For Num = 0 To IE.Document.getElementsByTagName("input").Length - 1
                Debug.Print dct.getElementsByTagName("input").Item(Num).Name
                If dct.getElementsByTagName("input").Item(Num).Name = "tpl.credit.confirm" Then
                dct.getElementsByTagName("input").Item(Num).Click
                End If
            Next

End Sub
 

patoudemoi

♫Bonne fin de journée☼
Hors Ligne
 Rapport   Haut 

Re: impression suivant journaliere
#2
S☼leil
Débutant XLPages

Inscription: 20/09/2009

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 22-09-2009 11h29
Salut,
Juste un tout petit grain de sel, ceci est valable pour n'importe quel application sous xp, :

demarrer \ programmes\accessoires\ outils systeme \ taches planifiées.

 
Hors Ligne
 Rapport   Haut 

Récupérer une page web
#3
S☼leil
Débutant XLPages

Inscription: 20/09/2009

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 22-09-2009 01h29

Re tout le monde,

Voila un bout de code pour récupérer une page web. Maintenant ce j'aurais voulu faire, c'est remplir le champ adresse, et simuler un clic sur "Aller, hop c'est parti", voir même si c'est aussi possible de récupérer l'URL de la nouvelle page chargée, j'ai essayé de tremper ma machine dans l'eau bénite, mais elle n'a pas aimé.
Si quelqu'un connait les formules magiques...Reconnaissance éternelle...

Option Explicit
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, _
ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long

   Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
   Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _
(ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, _
ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long

   Public Declare Function InternetReadFile Lib "wininet.dll" _
(ByVal hFile As Long, ByVal lpBuffer As String, ByVal dwNumberOfBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

   Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0 ' utiliser info de config de la base de registre
   Public Const INTERNET_FLAG_EXISITING_CONNECT = &H20000000
   Public Const INTERNET_FLAG_RELOAD = &H80000000 'Lire �artir de fil, m� si mis en cache localement
   Public MonDocument
   Public pointeur


Function GetHTTPFile(ByVal URL As String, ByVal StrUserAgent As String) As String


' URL correspond au chemin complet du document exemple: http://www.domaine.ext/r�rtoire/ document.pl?Param=Exemple&Param2=test
' StrUserAgent correspond �a d�nition du navigateur exemple: Mozilla/4.0 (compatible; MSIE 4.01; Windows 98)
Dim hSession As Long
Dim hUrlFile As Long
Dim bBoucle As Boolean
Dim sReadBuf As String * 4096
Dim Buffer As String
Dim OctetsLus As Long


pointeur = Application.Cursor
Application.Cursor = xlWait

' Ouverture de la session
hSession = InternetOpen(StrUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
' Envoi de la demande
hUrlFile = InternetOpenUrl(hSession, URL, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)

' La r�nse arrive par paquet, empilage

Buffer = ""
bBoucle = True
While bBoucle And hUrlFile > 0


DoEvents
sReadBuf = ""
bBoucle = InternetReadFile(hUrlFile, sReadBuf, 4096&, OctetsLus)
Buffer = Buffer + Left$(sReadBuf, OctetsLus)
If OctetsLus = 0 Then bBoucle = False

Wend

InternetCloseHandle (hUrlFile)
InternetCloseHandle (hSession)

Application.Cursor = pointeur  ' Recup pointeur.


GetHTTPFile = Buffer


End Function
Sub demar()


MonDocument = GetHTTPFile("http://fr.mappy.com/", _
"Internet Explorer 8.0.6001.18702")

Cells(1, 1) = MonDocument
   Columns("A").Select
    Selection.ColumnWidth = 200
 'Selection.Columns.AutoFit
End Sub
 



PADEMOI


♫ Merci



Edité par S☼leil le 22/09/2009 17:00:50
Hors Ligne
 Rapport   Haut 

Re: Screen.MousePointer
#4
S☼leil
Débutant XLPages

Inscription: 20/09/2009

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 22-09-2009 00h54

Re,
En fait je vais indexé le sujet en résolu, et passer une autre question, on ne sait jamais ce bout de code pourrait interresser quelqu'un....
♫
Hors Ligne
 Rapport   Haut 

Re: Screen.MousePointer
#5
S☼leil
Débutant XLPages

Inscription: 20/09/2009

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 21-09-2009 20h45
Quel talent!

Blague à part, j'ai bidouillé un " trucpademoi" pour récuperer une page web.
Ca marche, mais j'aurais voulu renvoyer des infos, voir simuler un clic souris, et là sur internet je suis nul. Puis-je carresser l'espoir de pouvoir te faire passer les codes?
♫♫
Edité par S☼leil le 22/09/2009 01:31:31
Hors Ligne
 Rapport   Haut 

Re: Screen.MousePointer
#6
S☼leil
Débutant XLPages

Inscription: 20/09/2009

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 21-09-2009 19h50

Scuses, Guy
Mais qu'est ce que tu entends par:

"Tu peux aussi modifier le curseur au dessus d'un formulaire ou d'un contrôle."
A+
Hors Ligne
 Rapport   Haut 

Re: Screen.MousePointer
#7
S☼leil
Débutant XLPages

Inscription: 20/09/2009

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 21-09-2009 19h30
Désolé du dérangement je viens de trouver :
Application.Cursor = xlWait
Hors Ligne
 Rapport   Haut 

Screen.MousePointer
#8
S☼leil
Débutant XLPages

Inscription: 20/09/2009

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 21-09-2009 19h24
Bonjour ♫

En vba mon prog ne veut ni de :
Screen.MousePointer = vbHourglass ni de
Cursor.Current = Cursors.WaitCursor

Est ce grave Docteur Guy?

Merci
Hors Ligne
 Rapport   Haut 

Re: Bonjour, et calage de date
#9
S☼leil
Débutant XLPages

Inscription: 20/09/2009

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 21-09-2009 09h49

Re, Montréalais
En fait, d'après mes recherches nocturnes attenantes il semble que je doive m’en tenir à un calendrier particulier, pour le moins. C'est-à-dire, un mélange de calendrier Julien et Grégorien, celui-ci démarrant au mois de mars mais tenant compte du décalage de 10 jours et des années bissextiles. ( à vrai dire, si cela se vérifie, ça m’arrangerait )

Pour ce qui est des syntaxes des formats de dates, j’ai refouillé dans msdn, et je ne comprends pas les différences entre les infos en anglais et celles en Français. Bon, je fais avec.  

A+ peut être, si les loups ne t'on pas boulloté.
Edité par S☼leil le 21/09/2009 13:25:46
Hors Ligne
 Rapport   Haut 

Re: Bonjour, et calage de date
#10
S☼leil
Débutant XLPages

Inscription: 20/09/2009

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 20-09-2009 20h43

Bonjour
Merci pour la réponse, je regarde ça, mais je vais exploser avec tous ces calendriers differents
Gregoriens



pour infos j'ai trouvé ça là:
http://msdn.microsoft.com/fr-fr/library/82yfs2zh.aspx
Merci encore ♫
Hors Ligne
 Rapport   Haut 

1 2 »