Macro qui accède directement a un bouton site web
Fermé
lora012
Messages postés
11
Date d'inscription
vendredi 6 avril 2018
Statut
Membre
Dernière intervention
10 avril 2018
-
Modifié le 8 avril 2018 à 16:01
yg_be Messages postés 22916 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 2 juillet 2024 - 10 avril 2018 à 15:46
yg_be Messages postés 22916 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 2 juillet 2024 - 10 avril 2018 à 15:46
A voir également:
- Macro qui accède directement a un bouton site web
- Site de telechargement - Guide
- Site inaccessible - Guide
- Site de vente entre particulier - Guide
- Site web - Guide
- Instagram web - Guide
1 réponse
yg_be
Messages postés
22916
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
2 juillet 2024
1 481
Modifié le 8 avril 2018 à 10:17
Modifié le 8 avril 2018 à 10:17
bonjour, voici ton code un peu clarifié et corrigé.
tu peux voir que quand tu utilises getElementsByTagName, le tag n'est pas le nom de l'élément, c'est le type de l'élément, donc "BUTTON", et cela te donne une liste de tous les boutons.
tu peux éventuellement tester s'il s'agit du bon bouton avant de le cliquer.
tu peux voir que quand tu utilises getElementsByTagName, le tag n'est pas le nom de l'élément, c'est le type de l'élément, donc "BUTTON", et cela te donne une liste de tous les boutons.
tu peux éventuellement tester s'il s'agit du bon bouton avant de le cliquer.
Option Explicit Sub t2() 'Déclaration des variables Dim IE As InternetExplorer Dim IEDoc As HTMLDocument Dim DOCelementcol As IHTMLElementCollection Dim DOCelement As HTMLButtonElement 'Initialisation des variables Set IE = New InternetExplorer 'Affichage de la fenêtre IE IE.Visible = True 'Chargement de la page web IE.Navigate ("...") ' attente de fin de chargement Do Until IE.ReadyState = 4 DoEvents Loop 'On pointe le membre Document Set IEDoc = IE.Document 'Tempo de 2 secondes Application.Wait Now + TimeValue("0:00:01") Set DOCelementcol = IEDoc.getElementsByTagName("BUTTON") For Each DOCelement In DOCelementcol 'examiner tous les boutons If DOCelement.ID = "..." And DOCelement.Name = "..." And DOCelement.innerText = "..." Then DOCelement.Click End If Next DOCelement 'On libère la variable IE Set IE = Nothing End Sub
Modifié le 8 avril 2018 à 16:00
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
,------------------------------------------------------- voici le code que j'ai trouver sur la page web intranet---------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
donc voila je sais pas comment utiliser ton code car je sais pas esq c un bouton ou autre chose!!!
EDIT : AJout des balises de code !
Modifié le 8 avril 2018 à 17:23
il faudrait que tu nous montres la partie de la page web où le bouton est défini, sinon nous ne pouvons pas t'expliquer comment reconnaître le bouton.
cela devrait commencer par et se terminer par .
8 avril 2018 à 17:39
tu voit sur le site sharepoint , ya "syncronisation" le but de cette macro qu'elle déclenche automatiquement sur "sycronisation" et que je recupere les donnée sur ordi
8 avril 2018 à 18:00
Modifié le 9 avril 2018 à 09:37
voila ce que j copié sur la page
EDIT : Ajout des balises de code. Merci d'y penser dans tes prochains messages !