Connexion sur site avec mot de passe automitiquement
Bonsoir tous le monde,
Je reviens vous voir concernant une macro de connexion internet avec mot de passe ,en faite j'utilise souvent le site de déclaration d'embauche pour des collaborateurs , après plusieurs recherches j'ai trouvé une macro que j'ai adapté a mon besoin sauf que le site en question et après du saisie automatique du mot de passe m'informe que le mot de passe n'est pas bon(alors que c'est le bon code), peut être j'ai oublié quelques chose dans la macro ? pour bien valider mon mot de passe , si quelqu'un peut m'aider, SVP , voici le code (j'ai modifié le mot de passe car confidentiel)
Sub Connexion()
'Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate ("https://www.due.urssaf.fr/declarant/index.jsf")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.Document
'password
Set DOCelement = IEdoc.getElementsByName("form_siret:form-grey-siret").Item
DOCelement.Value = ("xxxxxxxxxxxxxx") '14 chiffres
DOCelement.Select
'connexion
Set DOCelement = IEdoc.Forms(0)
DOCelement.submit
End Sub
En vous remerciant d'avance
Bonne soirée
bonsoir,
essaie ceci (que je n'ai pas pu tester)
Sub Connexion()
'Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate ("https://www.due.urssaf.fr/declarant/index.jsf")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.Document
'password
Set UserId = IEdoc.getelementsbyname("Siret").Item
Set Password = IEdoc.getelementsbyname("password").Item
UserId.Value = "userid" : '14 caractères max ?
Password.Value = "xxxxxxxx" : '8 caractères max ?
'connexion
Set DOCelement = IEdoc.Forms(0)
DOCelement.submit
End SubBonjour h2so4, Bonjour Tout le monde,
Merci pour ta réponse rapide , mais c'est seulement la déclaration qui m'intéresse (l autre connexion sert a gérer d'autre domaines administratives) , j'ai besoin seulement de rentrer le SIRET de l'entreprise ci-joint photo pour l'accès (1 code seulement a rentrer )
Cordialement,
bonsoir,
essaie ceci
Sub Connexion()
'Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate ("https://www.due.urssaf.fr/declarant/index.jsf")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.Document
Set Siret = IEdoc.getelementsbyname("form_siret:form-grey-siret").Item
Siret.Value = "xxxxxxxxxxxxxx" '14 caractères max ?
'connexion
Set DOCelement = IEdoc.forms("form_siret")
DOCelement.submit
End SubBonjour ,
Cordialement
re bonsoir,
nouvel essai
Sub Connexion()
'Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate ("https://www.due.urssaf.fr/declarant/index.jsf")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.document
Set Siret = IEdoc.getelementsbyname("form_siret:form-grey-siret").Item
Siret.Value = "12345678901234" '14 caractères max ?
Set bouton = IEdoc.getelementsbyname("form_siret:form-compte-submit").Item
bouton.Click
End SubBonsoir h2so4
A Bientôt