Comment faire pour piloter internet en VBA depuis EXCEL ?

Bonjour y a t il une technique pour piloter internet ou intranet à l'aide de VBA, plus précisément commander une chaîne d'actions à faire sur internet

--> cliquer sur un bouton --> insérer un mot dans une recherche --> puis cliquer à nouveau sur un autre bouton pour générer un export,

au lieu de le faire à chaque fois à la main 3 fois par jours :?:?.

Faire une macro vba pour chaque étape depuis vba

1- ouvrir la page web sa --> ok

2- ensuite dire de cliquer sur le bouton --> ne sais pas faire :(

3- choisir dans la liste déroulante --> ne sais pas faire :(

Merci de votre aide.

Qwazerty a fait un joli tutoriel sur la question ICI

Bonsoir,
Va voir ce super document http://qwazerty.developpez.com/tutor...-et-vba-excel/ réalisé par Qwazerty.

Bonne lecture.

Bonjour,

Voici un bout de code qui marche très bien ouvre une page web + inscrit des données dans des cases vides auto cela --> OK

Par contre : comment faire pour l'adapter à mon besoin: ce n'est pas des champs que je souhaite remplir mais des id issu HTML à déclencher pour automatiquement sélectionner puis cliquer sur un bouton etc..:


Plusieurs éléments peuvent donc répondre au même name / id, la fonction va donc nous retourner un ensemble d'éléments correspondant au critère,


1-/Dire EN VBA de cliquer sur liste déroulante WEB --> ne sais pas faire

ma liste déroulante est : id="vccPos49"

2-/sélectionner le titre de la requête deja enregistré pour la déclencher :

id="REQUETE_NOM" name="REQUETE_ID" value='EXPORT'

3-/cliquer sur bouton : id="ext-gen932"

4-/ ensuite cliquer sur bouton : id="ext-gen2053" pour exporter et sauvegarder les données dans un répertoire

Certaine page ayant pour attribut name « vccMenu» ainsi que tous les éléments ayant pour attribut id «vccForm».

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

Public Sub ExpertResearch() ' Accès au programme Experts Dim maPageHtml As HTMLDocument Dim Helem As HTMLElementCollection Dim TypeDocument As String Dim Deleg As Object Dim HTMLDelegElement(100) As HTMLElementCollection Dim htmlDoc As Object Dim IESubmit As HTMLFormElement Dim IECtrl As HTMLFormElement 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/Experts/ExpertsActifs/selectionGenerale/filtre.asp" 'attends que la page soit ouverte Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop ' Formulaire 'remplit les champs nécessaires... IE.document.all("AnNai").Value = "1960" IE.document.all("M10").Value = "COMPTABLE" IE.document.all("M11").Value = "GESTION test" 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 = "98" IE.document.all("Dep8").Value = "95" Do While IE.readyState <> READYSTATE_INTERACTIVE DoEvents Loop ' Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop Set IESubmit = htmlDoc.forms(0) IESubmit.submit End Sub

---

Après avoir lu le tuto c un peu plus clair

Voici la procédure Exemple qui fonctionne pour capitaliser des données sur page web depuis vba

-->

Code:

---

IE.Document.all("AnNai").Value = "1960"

---

name ="AnNai" value valeur capitalisée

Dans mon cas voici mes éléments : le nom de ma requête REQUETE_ID

Code:

---

id="REQUETE_NOM" name="REQUETE_ID" value='Exportcca'

---

mais j'ai pas de valeur à capitaliser mais une action à déclencher une sorte de clique sur bouton.

Je suis pas sur que le code ci-dessous est bon pour déclencher mon export ?

-->

Code:

---

IE.Document.all("REQUETE_ID"").Value = "Exportcca"

---

exemple qui fonctionne pour sauvegarder après saisies

Code:

---

IE.Navigate2"javascript:vccaction('display=actions&action=save);"

---

Merci si qq peu me dire si c bon ?

Y-a -t-il une solution plus simple ou un code fonctionnel pour importé un fichier excel depuis internet:

Choisir sur une liste déroulante à puis générer un export ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub NaviguerPageWeb()   Dim IE As InternetExplorer Dim maPageHtml As HTMLDocument Dim Helem As IHTMLElementCollection   Set IE = CreateObject("internetExplorer.Application") IE.Visible = True IE.navigate "https://xxx" Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop Set maPageHtml = IE.document Set Helem = maPageHtml.getElementsByTagName("input") For a = 0 To Helem.Length - 1 If Helem(a).getAttribute("name") = "userid" Then Helem(a).innerText = "userid" End If If Helem(a).getAttribute("name") = "password" Then Helem(a).innerText = "password" SendKeys "{ENTER}", True End If Next   Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop   IE.navigate "https://xxx"   Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop   IE.navigate "https://xxx.action" ' lance le téléchargement du fichier excel

---

Salut, est-ce cela que tu cherches ?

Bonjour Kiki,

Voici mon besoin dire en VBA


1-/Sélectionner la requête : name="REQUETE_ID "value="Export" choix dans la liste déroulante

2-/Cliquer sur le bouton ‘’CHERCHER’’


3-/Selectionner dans la liste déroulante Export_O pour déclencher et générer le fichier excel.

4-/ Puis enregistrer dans mes doc

Ton code évoqué ci-dessous permet directement de télécharger le fichier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Option Explicit   Private Declare Function URLDownloadToFile _ Lib "urlmon" Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, ByVal szURL As String, _ ByVal szFileName As String, ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long   Private Const ERROR_SUCCESS As Long = 0     Sub LancementProcedure() DownloadFile _ "ftp://ftp-nomsite.com/dossier/nomfichier.pdf", "C:\rapport.pdf" End Sub     Public Function DownloadFile(ByVal sURL As String, _ ByVal sLocalFile As String) As Boolean   Dim lngRetVal As Long DownloadFile = URLDownloadToFile(0&, sURL, _ sLocalFile, 0&, 0&) = ERROR_SUCCESS End Function

---

Comment faire pour l'adapter à mon cas car je dispose que de l'url et le nom de la requête or ici c un ftp ? merci pour ton éclairage si tu c comment faire ?

Bonjour,

Je souhaiterais importer un fichier excel d'intranet, d'après le post / tuto SilkyRoad Comment télécharger un fichier stocké sur le web ? voici un morceau de code. Mon point bloquant est qu'avant d'importer le fichier dans mon cas il est nécessaire de faire une étape :

1-/Sélectionner la requête : name="REQUETE_ID "value="Export" choix dans la liste déroulante
2-/Cliquer sur le bouton ‘’CHERCHER’’
3-/Selectionner dans la liste déroulante Export_O pour déclencher et générer le fichier excel.

http://excel.developpez.com/faq/?pag...rlDownloadFile

Alors comment puis-je m'y prendre pour réussir ce pb ?

Code:

---

1 2 3 4

Sub LancementProcedure() DownloadFile _ "ftp://ftp-nomsite.com/dossier/nomfichier.pdf", "C:\rapport.pdf" End Sub

---

Nous allons procéder par étape

Pour l'étape 1 l'idée serait de faire la sélection, es-ce que avec le code plus haut puis-je deja commencer à faire juste cette étape ?


si oui faut-il que je déclare d'autres variables ?




1-/Sélectionner la requête : name="REQUETE_ID "value="Export" choix dans la liste déroulante






2-/Cliquer sur le bouton ‘’CHERCHER’


’
3-/Selectionner dans la liste déroulante Export_O pour déclencher et générer le fichier excel.