Hello

I hope this help you


Sub Informations_And_metaDatas_WebPage()
'michelxld le 11.05.2005
'activate Microsoft HTML Objects Library
'activate Microsoft Internet Controls
Dim IE As New InternetExplorer
Dim htmlDoc As HTMLDocument
Dim htmlRef As IHTMLMetaElement
Dim i As Byte

IE.Navigate "http://www.exceltip.com/"
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

Set htmlDoc = IE.Document
'informations
MsgBox htmlDoc.Title & vbLf & htmlDoc.fileCreatedDate & _
vbLf & htmlDoc.LastModified & vbLf & htmlDoc.fileSize & " octets ."

'metadatas in web Page ( description & keywords )
For i = 0 To 1
Set htmlRef = htmlDoc.all.tags("meta").Item(i)
MsgBox htmlRef.content
Next i

Set IE = Nothing
End Sub


Regards ,
miche

--
michelxl
-----------------------------------------------------------------------
michelxld's Profile: http://www.excelforum.com/member.php...fo&userid=1736
View this thread: http://www.excelforum.com/showthread.php?threadid=37484