Internet / intranet Explorer via VBA Excel

Bonjour,

J'ai préparé un code qui me permet de modifier des noms et réf pour la mise à jour des données de mes pièces.
La règle : chaque données doit être modifier par intranet 1 pièce = 1 page intranet.(pas possible d'avoir accès au table bref). La mise à jour se fait via intranet piloté par Internet Explorer via VBA Excel très très bien.

Donc le faire à la main fastidieux car trop sur 500 pièces à modifier 500 pages à ouvrir.

ci-dessous mon code qui fonctionne + ou moins bien, j'aimerais l'améliorer

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

Sub Exp(num) Dim IE As InternetExplorer Dim winShell As New ShellWindows Dim addr As String For Each IE In winShell If InStr(IE.LocationURL, "http://monsite.fr") Then IE.Document.all.tags("INPUT").Item("RECH_CRITERES").Value = num IE.Document.Forms(1).submit   Application.Wait Now + TimeValue("0:00:05")   Set test = IE.Document.getelementbyid("VccMenu")   URL = "http://monsite.fr/index.php?" + session + "&obj=aires&" + cte + "&" + aire + "&VisuMode=MODIF&display=fiche&onglet=carac"   IE.Navigate2 URL   Application.Wait Now + TimeValue("0:00:05")   IE.Navigate2 "javascript:vccAction('display=actions&action=save');" Exit Sub End If Next IE MsgBox "non trouvé" End Sub

---

2-/ Etape 2 :j'ai besoin d'importer des données issues d'une requête existante sous intranet mais comment faire en passant par vba pour dire à l'appli intranet de me faire tourner la requête puis de m'envoyer le résultats sous .csv et enregistrer dans un répertoire de mes documents au lieu de le faire à la main car trop fastidieux 3 fois / jours.

MERCI de votre aide.

Dans l'application intranet j'arrive à ajouter des données et modifier des données via VBA . Ce que je souhaite faire également c'est depuis VBA déclencher une procédure vba pour faire une action automatique au lieu de la faire manuellement.

Cette action est d'appuyer sur un bouton dans l'application intranet, est-il possible de piloté cela depuis vba ?

voici un bout de code qui permet d'ouvrir une page via l'explorer

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

Sub DeclencherLienPageWeb() 'nécessite d'activer les références 'Microsoft HTML Objects Library 'et 'Microsoft Internet Controls   Dim IE As InternetExplorer Dim Cible As HTMLAnchorElement Dim Doc As HTMLDocument   Set IE = New InternetExplorer IE.navigate "http://eurosport.fr/" IE.Visible = True   Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop   Set Doc = IE.document 'Doc.Links(0) = 1er lien contenu dansla page html Set Cible = Doc.Links(0) ' Cible.Click End Sub

---