LANCER UNE URL EN MODIFIANT CERTAINS HEADERS, VIA SHDOCVW.DLL

'tout d'abord, ajouter comme reference Microsoft Internet Controls

'mettez ceci qq part dans votre code
Public Sub hbheaders(headerz As String, urlh As String)
headerz = "Value: salut" & vbCrLf & "User-Agent: wesh" & vbCrLf
If urlh <> "" Then
Set IEh = New InternetExplorer
IEh.RegisterAsBrowser = True
IEh.Navigate urlh, , , , headerz
IEh.Visible = True
Else
MsgBox "Entrez une url"
End If
End Sub

'puis appelez le comme tel :
Dim heads As String
heads = "Value: salut" & vbCrLf & "User-Agent: wesh" & vbCrLf
'le header Value n'est pas reconnu par le serveur vbfrance, c'est juste pour l'exemple... bref, sniffez.
'les headers doivent etre separés de CrLf
hbheaders heads, "http://www.vbfrance.com"