Discussion :

[Debutant10]

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.

[Debutant10]

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 :

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
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