Sub connexion()
'
' connexion
'
'se connecte directement à la page intranet
Dim IE As New InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
IE.Visible = True
IE.Navigate ("http://www.intranetdelaboite.fr/contact/")
' attente de fin de chargement
Do Until IE.ReadyState = 4
DoEvents
Loop
Set IEdoc = IE.Document
'Nom
Set DOCelement = IEdoc.getElementsByName("nom").Item
DOCelement.Value = "Durand"
DOCelement.Select
'Prénom
Set DOCelement = IEdoc.getElementsByName("prenom").Item
DOCelement.Value = "jean"
DOCelement.Select
'Adresse
Set DOCelement = IEdoc.getElementsByName("adresse").Item
DOCelement.Value = "place de l'étoile"
DOCelement.Select
.../...
'Photo
Set DOCelement = IEdoc.getElementsByName("photo0").Item
DOCelement.Click
End Sub