pilotage logiciel intranet avec vba excel

Question

Bonjour, Je pilote un logiciel intranet avec VBA Excel avec le code suivant :
		
		
				Code :
		
		
				
						 
				
		
		
				
						
								' Formulaire
								
										
										
								
						
				
				
						
								 
						
				
				
						
								
										    
								
								'Remplie les champs nécessaires...
								
										
										
								
						
				
				
						
								
										    IE.DOCUMENT.All(
								"NumExp"
								).Value = CodeEctien
						
				
				
						
								
										    IE.DOCUMENT.All(
								"motDePasse"
								).Value = Pass
						
				
				
						
								
										    IE.DOCUMENT.All(
								"envoyer"
								).Click                                       
								'clique sur le bouton...
								
										
										
								
						
				
				
						
								 
						
				
				
						
								
										    
								
								Do
								
								
								While
								 IE.ReadyState  
								4
								
										
										
								
						
				
				
						
								
										    DoEvents
						
				
				
						
								
										    
								
								
								
										Loop
								
								
										
										
								
						
				
				
						
								 
						
				
				
						
								IE.navigate 
								"http://www.intranet-ecti.org/asp/Missions/menu.asp"
								
								
								'new/new.asp"
								
										
										
								
						
				
				
						
								 
						
				
				
						
								IE.navigate http://www.intranet-ecti.org/asp/Missions/
								New
								/
								new
								.asp
						
				
				
						
								 
						
						
								
										
												-->If IE.DOCUMENT.All("MISS_ETR").value= "MISS_ETR " then IE.DOCUMENT.All("MISS_ETR").click
												                               
										
										'clique sur le bouton
										
												
												
										
								
						
				
				
						
								
										 
								
						
						
								
										   
								
								Do
								
								
								While
								 IE.ReadyState  
								4
								
										
										
								
						
				
				
						
								
										   DoEvents
						
				
				
						
								
										   
								
								
										Loop
								
								
										
										
								
						
				
		
		
				… et je plante! --> variable objet ou bloc with non défini… et voila le code source 
		
		
				Code :
		
		
				
						
								 
				
				
						
								        Mission France
				
				
						
								        
						
						Mission Hors de France
				
				
						 
				
		
		
				Quelqu'un peut-il m'aider ?Merci.

Renfield · Answer

Const READYSTATE_INTERACTIVE = 3 Const READYSTATE_COMPLETE = 4 ' Formulaire 'Remplie les champs nécessaires... IE.DOCUMENT.All("NumExp").Value = CodeEctien IE.DOCUMENT.All("motDePasse").Value = Pass IE.DOCUMENT.All("envoyer").Click 'clique sur le bouton... Do While IE.ReadyState <> READYSTATE_INTERACTIVE DoEvents Loop Do While IE.ReadyState <> READYSTATE_COMPLETE DoEvents Loop IE.navigate "http://www.intranet-ecti.org/asp/Missions/menu.asp" 'new/new.asp" Do While IE.ReadyState <> READYSTATE_COMPLETE DoEvents Loop With IE.DOCUMENT.All("MISS_ETR") If .value= "MISS_ETR " then .click 'clique sur le bouton End If End With à voir: http://www.vbfrance.com/codes/CLIQUER-SUR-LIEN-JAVASCRIPT-CONTROLE-INTERNET-EXPLORER-REMPLIR_46366.aspx

cs_epaminondas · Answer

Merci pour ta réponse Renfield. Je suis sûr que c'est ça mais toujours le même message. Je ne pense pas que ça vienne des références, puisque ça marche jusque là. Es tu sûr que dans l'instruction With IE Document.All("MISS_ETR"), l'expression entre parenthèses est la bonne ? Je reproduis, ci-dessous, le texte modifié pour que tu voies, si je n'ai pas fait de bêtises ... [CODE] Sub Convention() ' Accès au logiciel Convention Dim numeroexpert As Long Dim password As Variant Dim IE As Object Dim sLocalFilename As String Const READYSTATE_INTERACTIVE = 3 Const READYSTATE_COMPLETE = 4 'crée un objet internet Explorer Set IE = CreateObject("InternetExplorer.Application") 'le masque IE.Visible = True 'ouvre la page d'enregistrement de identification Ecti IE.navigate "http://www.intranet-ecti.org/asp/index.asp" 'attends que la page soit ouverte Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop ' Formulaire 'rempli les champs nécessaires... IE.DOCUMENT.All("NumExp").Value = CodeEctien IE.DOCUMENT.All("motDePasse").Value = Pass IE.DOCUMENT.All("envoyer").Click 'clique sur le bouton... Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop 'IE.navigate "http://www.intranet-ecti.org/asp/Missions/menu.asp" IE.navigate "http://www.intranet-ecti.org/asp/Missions/New/new.asp" With IE.DOCUMENT.All("MISS_ETR") If .Value = "MISS_ETR " Then .Click 'clique sur le bouton End If End With Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop Merci end sub

Renfield · Answer

tu as mélangé certaines choses après un .Navigate, on fait un boucle en attente de READYSTATE_COMPLETE : Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop idem ici : IE.navigate " [ Lien ]" xxxxxxxxxxxxxxxxxxxxxxxxxxxxx With IE.DOCUMENT.All("MISS_ETR") tu ne peux en effet pas jouer avec MISS_ETR de ton document, si tu n'a pas ce document : attend qu'il soit chargé. le controle IE fonctionne de manière asynchrone. il rend la main alors que la page n'est pas chargée. a toi d'attendre. après un click sur un bouton, il faut attendre l'etat INTERACTIVE qui marque que le document réagit. ensuite, on attend e nouveau l'Etat COMPLETE ------------------------------------------ Sub Convention() ' Accès au logiciel Convention Dim numeroexpert As Long Dim password As Variant Dim IE As Object Dim sLocalFilename As String Const READYSTATE_INTERACTIVE = 3 Const READYSTATE_COMPLETE = 4 'crée un objet internet Explorer Set IE = CreateObject("InternetExplorer.Application") 'l'affiche IE.Visible = True 'ouvre la page d'enregistrement de identification Ecti IE.navigate " [ Lien ]" 'attends que la page soit ouverte Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop ' Formulaire 'rempli les champs nécessaires... IE.DOCUMENT.All("NumExp").Value = CodeEctien IE.DOCUMENT.All("motDePasse").Value = Pass IE.DOCUMENT.All("envoyer").Click 'clique sur le bouton... Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop IE.navigate " [ Lien ]" With IE.DOCUMENT.All("MISS_ETR") If .Value = "MISS_ETR " Then .Click 'clique sur le bouton End If End With Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop end sub

cs_epaminondas · Answer

Tu vas pouvoir écrire un manuel pour les nuls, si ça continue. Voila le bout de code incriminé qui est le symétrique du haut : [CODE] IE.navigate "http://www.intranet-ecti.org/asp/Missions/New/new.asp" Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop With IE.DOCUMENT.all("MISS_ETR") If .Value = "MISS_ETR " Then .Click 'clique sur le bouton End If End With Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop End Sub Merci pour ta patience

Renfield · Answer

après un Navigate, on attend l'etat COMPLETE, avant de faire quoi que ce soit :

IE.navigate " [ Lien ]"

Do While IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop

With IE.DOCUMENT.all("MISS_ETR")
 ...

cs_epaminondas · Answer

Encore un tour de lasso Renfield,
toujours erreur 91
A +

cs_epaminondas · Answer

Bonjour Renfield, ça marche et je suis passé au contrôle suivant. Décidément tout ça ne s'invente pas et j'aimerais bien trouver une base de données sur le sujet ... Voilà mon code : Sub Convention() ' Accès au logiciel Convention Dim maPageHtml As HTMLDocument Dim Helem As HTMLElementCollection Dim TypeDocument As String Dim Deleg As Object Dim HTMLDelegElement(100) As HTMLElementCollection Dim IE As Object Dim sLocalFilename As String Const READYSTATE_INTERACTIVE = 3 Const READYSTATE_COMPLETE = 4 'crée un objet internet Explorer Set IE = CreateObject("InternetExplorer.Application") 'le masque IE.Visible = True 'ouvre la page d'enregistrement de identification Ecti IE.navigate "http://www.intranet-ecti.org/asp/index.asp" 'attends que la page soit ouverte Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop ' Formulaire 'rempli les champs nécessaires... IE.DOCUMENT.all("NumExp").Value = CodeEctien IE.DOCUMENT.all("motDePasse").Value = Pass IE.DOCUMENT.all("envoyer").Click 'clique sur le bouton... Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop IE.navigate "http://www.intranet-ecti.org/asp/Missions/New/new.asp" Set maPageHtml = IE.DOCUMENT Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop ' getElementsByName("1") est le nom du bouton Radio 'Item(1) correspond à la 2eme option dans la liste des boutons Set Helem = maPageHtml.getElementsByName("TypeDocument").Item(1) Helem.setAttribute "checked", "True" Set maPageHtml = IE.DOCUMENT Set Helem = maPageHtml.getElementsByName("Deleg") --> Incompatibilité de type ' Choix d'une Délégation For I = 0 To (HTMLDeleg.Length - 1) If HTMLDelegElement(I).innerText Like "FR82 >TARN ET GARONNE - FR82" Then HTMLDelegElement(I).Selected = True End If Next Stop End Sub Et voici le code source Délégation OU entrez son code Est-ce que tu peux m'aider à franchir ce nouveau cap ? Merci

Renfield · Answer

"j'aimerais bien trouver une base de données sur le sujet" commence par lire les réponses que l'on te soumet... je vois dans ton code IE.navigate "http://www.intranet-ecti.org/asp/index.asp" 'attends que la page soit ouverte Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop mon dernier message te disait pourtant : après un Navigate, on attend l'etat COMPLETE, avant de faire quoi que ce soit : IE.navigate " [ Lien ]" Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop le READYSTATE_INTERACTIVE, c'est uniquement lorsque tu appelles un Click, un Submit ....

Renfield · Answer

ta boucle :

    For Each Deleg In IE.Document.getElementsByName("Deleg")(0).getElementsByTagName("Option")
        If InStr(1, Deleg.innerText, "FR82", vbTextCompare) Then
            Deleg.Selected = True
            Exit For
        End If
    Next Deleg

cs_epaminondas · Answer

ya ka d'mander.


Evidemment ça marche.
En définitive, je cherche et tu trouves. J'ai l'impression d'être un gros nul mais mon programme avance. Alors, tant que tu veux bien m'aider ...
Merci et à +

cs_epaminondas · Answer

Bonjour Renfield, me re voilà. J'ai pas mal avancé mais je bute sur un cas qui fait un peu déjà vu mais sans "name" READYSTATE_INTERACTIVE DoEvents Loop Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop ' Formulaire ' Remplit les champs nécessaires... IE.DOCUMENT.all("AnNai").Value = "1940" IE.DOCUMENT.all("M10").Value = "COMPTABLE" IE.DOCUMENT.all("M11").Value = "GESTION" IE.DOCUMENT.all("M12").Value = "AUDIT" IE.DOCUMENT.all("Dep1").Value = "75" IE.DOCUMENT.all("Dep2").Value = "77" IE.DOCUMENT.all("Dep3").Value = "78" IE.DOCUMENT.all("Dep4").Value = "91" IE.DOCUMENT.all("Dep5").Value = "92" IE.DOCUMENT.all("Dep6").Value = "93" IE.DOCUMENT.all("Dep7").Value = "94" IE.DOCUMENT.all("Dep8").Value = "95" IE.DOCUMENT.all("image").Click Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop End Sub Merci pour tes propositions.

Renfield · Answer

fais plutot un submit de ton formulaire.

cs_epaminondas · Answer

Effectivement, mais j'ai une petite difficulté à mettre en pratique. Voilà ce que j'ai fait : 1. Dim IESubmit As HTMLFormElement 2. Dim htmlDoc As object 3. 4. 5. 6. Do While IE.readyState <> READYSTATE_INTERACTIVE 7. DoEvents 8. Loop 9. 10. Do While IE.readyState <> READYSTATE_COMPLETE 11. DoEvents 12. Loop 13. Set IESubmit = htmlDoc.forms(0) 14 . IESubmit.submit Qu'est-ce qui ne va pas ?

Renfield · Answer

tu as un message d'erreur quelconque ?

cs_epaminondas · Answer

variable non définie sur IESubmit

cs_epaminondas · Answer

Je me suis trompé.
J'ai fait un CTRL + Pause et le curseur se bloque sur la première boucle "REAYSTATE-INTERACTIVE

cs_epaminondas · Answer

Je crois avoir progressé.
En fait, quand je suis sur la page web, et après avoir renseigné le formulaire, il me suffit de faire "entrée" et la page suivante s'affiche. Je crois comprendre qu'il faudrait, dans le programme vba, simuler ce retour charriot.
Comment ?
Je cherche en mettant dans form(0) un code ASCII 
Si tu as quelques lumières...
A +

Pilotage logiciel intranet avec vba excel

17 réponses

Votre réponse