Ce script vba vous permet de charger un fichier a partir d'une adresse web. L'exploitation de ce fichier n'est pas faite, a vour de voir ce que vous voulez en faire, le document est chargé dans la variable DocumentContent.
Voilà le code de ce script en dessous, mais étant donné qu'il y a des objets, allez regarder le zip.
Bonne prog et à +, akh
Source / Exemple :
Dim HTML_INFOS() As String
Dim DocumentContent As String
Private Sub CommandButton1_Click()
Winsock1.Close
HTML_INFOS = Split(Text1.Text, "/")
Winsock1.Connect HTML_INFOS(0), 80
CommandButton1.Visible = False
Label3.Caption = "Connection to server " & HTML_INFOS(0)
Label3.Visible = True
Text1.Enabled = False
End Sub
Function LoadingFinish()
CommandButton1.Visible = True
Label3.Visible = False
Text1.Enabled = True
End Function
Private Sub Winsock1_Close()
LoadingFinish
MsgBox "Document chargé avec succés !", vbInformation + vbOKOnly, "Finit"
' Le document se trouve dans la variable DocumentContent
' cependant elle contient aussi les Headers du protocole HTTP
End Sub
Private Sub Winsock1_Connect()
Dim ExcelDoc As String
Label3.Caption = "Connexion établie - Attente du document"
ExcelDoc = Join(HTML_INFOS, "/")
Winsock1.SendData "GET http://" & ExcelDoc & " HTTP/1.1" & vbCrLf & vbCrLf
DocumentContent = Empty
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Label3.Caption = "Document en cours de reception"
Dim message As String
Winsock1.GetData message
DocumentContent = DocumentContent & message
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Erreur de transfert : " & vbCrLf & vbCrLf & Description, vbCritical + vbOKOnly, "Erreur " & Number
Winsock1.Close
LoadingFinish
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.