Bonjour,
Parmi toutes les solutions proposées pour accèder à une page internet par exemple ma messagerie hotmail avec mot de passe et identifiant je ne fais qu'aboutir au même résultat, à savoir ouvrir la page. Ensuite rien à faire, la problèmatique de l'insertion automatique du mot de passe et de l'identifiant me bloque. Dans le bout de code ci-dessous l'erreur se situe à cett ligne. Alors sans doute en reprenant des solutions à droite et à gauche, j'ai du faire un mélange qui au fond ne veut rien dire
Document.all("Identifiant").Value = IdentifiantID
Merci pour votre aide
Bonne journée
Sub Bouton1_Cliquer()
Const MY_URL As String = "http://www.mamessagerie.com"
Const IdentifiantID As String = "sdkjfkd"
Const modedepasse As String = "ksdfuihfieru"
Dim IE As Object 'SHDocVw.InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Silent = False
.Navigate MY_URL
Do Until .ReadyState = 0
DoEvents
Loop
.Document.all("IdentifiantID").Value = IdentifiantID
.Document.all("password").Value = modedepasse
.Document.forms(0).submit '/// modif pmo
.Visible = True
End With
Set IE = Nothing
End Sub
Parmi toutes les solutions proposées pour accèder à une page internet par exemple ma messagerie hotmail avec mot de passe et identifiant je ne fais qu'aboutir au même résultat, à savoir ouvrir la page. Ensuite rien à faire, la problèmatique de l'insertion automatique du mot de passe et de l'identifiant me bloque. Dans le bout de code ci-dessous l'erreur se situe à cett ligne. Alors sans doute en reprenant des solutions à droite et à gauche, j'ai du faire un mélange qui au fond ne veut rien dire
Document.all("Identifiant").Value = IdentifiantID
Merci pour votre aide
Bonne journée
Sub Bouton1_Cliquer()
Const MY_URL As String = "http://www.mamessagerie.com"
Const IdentifiantID As String = "sdkjfkd"
Const modedepasse As String = "ksdfuihfieru"
Dim IE As Object 'SHDocVw.InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Silent = False
.Navigate MY_URL
Do Until .ReadyState = 0
DoEvents
Loop
.Document.all("IdentifiantID").Value = IdentifiantID
.Document.all("password").Value = modedepasse
.Document.forms(0).submit '/// modif pmo
.Visible = True
End With
Set IE = Nothing
End Sub
