bonjour à tous
j'ai un petit problème avec une macro VB , pour un log automatique et j'avoue ne pas savoir pourquoi , cette formule fonctionnai sous windows 7 et depuis mon une mise à jour sous windows 8 elle ne fonctionne plus ..
	
	
	
	
	
		
si quelqu’un de plus douer que moi en VB ( et ça doit pas être bien dur 🙂 ) pouvait m'aider
merci d'avance
meilleurs salutations.
	
		
			
		
		
	
				
			j'ai un petit problème avec une macro VB , pour un log automatique et j'avoue ne pas savoir pourquoi , cette formule fonctionnai sous windows 7 et depuis mon une mise à jour sous windows 8 elle ne fonctionne plus ..
		Code:
	
	
	sur la feuil 1 
Const logui As String = "monlog1"
Const mdp As String = "monpass"
Const userlog As String = "monlog2"
---------
Private Sub CommandButton1_Click()
Dim ie As Object 'InternetExplorer
 Dim Helem As Object 'IHTMLElement
 Dim MaPageHtml As Object 'HTMLDocument
 
 'On Error Resume Next
 
 Set ie = CreateObject("InternetExplorer.Application")
 ie.Visible = True
 ie.Navigate ("https://e-finance.postfinance.ch/ef/secure/html/onl_kdl_login.proceed?login¬o")
 
 Do Until ie.ReadyState = 4
 DoEvents
 Loop
 Set MaPageHtml = ie.Document
'Numéro d'abonné
 Set Helem = MaPageHtml.getElementsByName("etnr").Item
 Helem.Value = logui   <---- ligne sur la quelle le débug passe en jaune ?
 
'mot de passe
 Set Helem = MaPageHtml.getElementsByName("password").Item
' Helem.Value = mdpnew
 Helem.Value = mdp
 
 Set Helem = MaPageHtml.getElementsByName("userid").Item
 Helem.Value = userlog
Application.Wait (Now + TimeValue("0:00:2"))
 Set Helem = MaPageHtml.getElementsByName("e_finance_userid_submit").Item
 Helem.Click
End Sub
	si quelqu’un de plus douer que moi en VB ( et ça doit pas être bien dur 🙂 ) pouvait m'aider
merci d'avance
meilleurs salutations.