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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.