Insérer du java script en VBA

Version imprimable

04/07/2017, 12h21
rose35

Insérer du java script en VBA

Bonjour à tous,

Je cherche depuis un certain temps à réaliser une tâche mais ne trouve pas de réponse. Je vous remercie par avance si vous pouvez m'aider.
Je souhaite sur Excel rentrer une information dans une cellule (un code à 8 chiffres) et grâce à un code VBA remplir deux cellules à côté. (Exemple je tape 56205630 et j'obtiens à côté : ce même numéro, et la catégorie du produit (ex: savon) et son odeur (ex: lavande).)
Cependant la correspondance des numéros avec les informations que je souhaite rajouter ne se trouvent que sur un site internet de mon entreprise.
Donc je voulais faire un import de la page internet sur excel et choisir les informations que je souhaitais. Cependant cela ne marche pas car on me dit que le lien est top long.
Cependant un javascript permet d'exporter la page au format excel (sur le site, c'est cliquer sur un bouton). Cela me convient mais comment intégrer cela dans mon code VBA?

En espérant que vous pourrez m'aider. Ou n'hésitez pas si vous avez d'autres idées pour me permettre de faire ce que je veux.

Rose
04/07/2017, 12h36
Jean-Philippe André

Salut,

le plus pertinent serait dans ce cas de cliquer sur le bouton a partir du VBA :
une lecture principale
http://qwazerty.developpez.com/tutor...-et-vba-excel/
et le clic bouton
http://qwazerty.developpez.com/tutor...a-excel/#LIV-D

Salut,

J'avais déjà utilisé ce code pour aider des personnes dans le même cas que toi. A adapter en fonction de ton besoin. Tu dois pas utiliser de javascript, uniquement du vba.

Le javascript peut servir pour localiser ton tableau de données à récupérer. :D

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
51
52
53
54
55
56
57
58
Sub extraction()
 
On Error GoTo sortie:
'Dim url As String: url = "adresse url de ton site"
Dim element As Object, souselement As Object
 
Dim IEDoc As HTMLDocument
Dim IE As New InternetExplorer
 
IE.navigate url
IE.Visible = True
 
'patienter pour lancer l'extraction
Application.Wait Time + TimeSerial(0, 0, 5)
 
Do While IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop
 
Set IEDoc = IE.document
'a voir ou se trouve le tableau
'Il suffit d'aller sur le site, de faire ctrl+maj+i (sous chrome) pour ouvrir la fenetre de développement.
'dans l 'onglet "Elements" tu as le code source,
'dans l 'onglet "console" tu as la console (là où tu pourras écrire du code javascript)
 
'et tu tapes : document.getElementsByTagName("tbody")
 
'Pour trouver la ligne javascript qui fonctionnera, c'est à taton.
'Rq: Il faut faire attention aux commandes utilisées:
'getElements.... -> renverra une collection d'éléments
'getElement... -> renverra un seul élément (dans mon exemple je prends le premier elements, l'index demarre  0)
 
Set element = IEDoc.getElementsByTagName("tbody").Item(0)
 
Dim numLigne As Integer, numColonne As Integer
 
For numLigne = 0 To element.Children.Length - 1
    Debug.Print numLigne
    Set souselement = element.Children.Item(numLigne)
    For numColonne = 0 To souselement.Children.Length - 1
        Cells(numLigne + 1, numColonne + 1).Value = souselement.Children.Item(numColonne).innerText
    Next numColonne
Next numLigne
 
 
'libération de la mémoire
Set IEDoc = Nothing
IE.Quit
Set IE = Nothing
MsgBox "Import web terminé sans erreur"
Exit Sub
 
sortie:
Set IEDoc = Nothing
IE.Quit
Set IE = Nothing
MsgBox "Erreur. Vérifiez votre connexion à Internet"
End Sub

04/07/2017, 13h58
rose35

Citation:

Envoyé par Jean-Philippe André

Salut,

le plus pertinent serait dans ce cas de cliquer sur le bouton a partir du VBA :
une lecture principale
http://qwazerty.developpez.com/tutor...-et-vba-excel/
et le clic bouton
http://qwazerty.developpez.com/tutor...a-excel/#LIV-D

Merci pour votre réponse, mais cela ne me convient pas bien je pense car je peux avoir 200 lignes, donc le clic sur bouton n'est pas adapté.

Citation:

Envoyé par nonesofar

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
51
52
53
54
55
56
57
58
Sub extraction()
 
On Error GoTo sortie:
'Dim url As String: url = "adresse url de ton site"
Dim element As Object, souselement As Object
 
Dim IEDoc As HTMLDocument
Dim IE As New InternetExplorer
 
IE.navigate url
IE.Visible = True
 
'patienter pour lancer l'extraction
Application.Wait Time + TimeSerial(0, 0, 5)
 
Do While IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop
 
Set IEDoc = IE.document
'a voir ou se trouve le tableau
'Il suffit d'aller sur le site, de faire ctrl+maj+i (sous chrome) pour ouvrir la fenetre de développement.
'dans l 'onglet "Elements" tu as le code source,
'dans l 'onglet "console" tu as la console (là où tu pourras écrire du code javascript)
 
'et tu tapes : document.getElementsByTagName("tbody")
 
'Pour trouver la ligne javascript qui fonctionnera, c'est à taton.
'Rq: Il faut faire attention aux commandes utilisées:
'getElements.... -> renverra une collection d'éléments
'getElement... -> renverra un seul élément (dans mon exemple je prends le premier elements, l'index demarre  0)
 
Set element = IEDoc.getElementsByTagName("tbody").Item(0)
 
Dim numLigne As Integer, numColonne As Integer
 
For numLigne = 0 To element.Children.Length - 1
    Debug.Print numLigne
    Set souselement = element.Children.Item(numLigne)
    For numColonne = 0 To souselement.Children.Length - 1
        Cells(numLigne + 1, numColonne + 1).Value = souselement.Children.Item(numColonne).innerText
    Next numColonne
Next numLigne
 
 
'libération de la mémoire
Set IEDoc = Nothing
IE.Quit
Set IE = Nothing
MsgBox "Import web terminé sans erreur"
Exit Sub
 
sortie:
Set IEDoc = Nothing
IE.Quit
Set IE = Nothing
MsgBox "Erreur. Vérifiez votre connexion à Internet"
End Sub

Merci pour votre réponse
Cependant je ne comprends pas bien comment importer exactement la tableau que je veux sur mon excel.
Merci de m'aider

04/07/2017, 14h03
nonesofar

Hello,

Pas de problèmes, juste qu'il me faut le lien du site web. Je sais pas si je peux y accéder.
04/07/2017, 14h07
rose35

je ne sais pas si vous pouvez y accéder.
Ensuite essayer avec le code : 82472496 et en cliquant sur tabular view; J'aimerai extraire le tableau.

Merci
04/07/2017, 14h15
nonesofar

1 pièce(s) jointe(s)

Je n'y arrive pas, c'est un site interne à ta boîte.

Si tu peux faire les manipulations suivantes.

'Il suffit d'aller sur le site, de faire ctrl+maj+i (sous chrome) pour ouvrir la fenetre de développement.
'dans l 'onglet "Elements" tu as le code source,
'dans l 'onglet "console" tu as la console (là où tu pourras écrire du code javascript)

tape document.getElementsByTagName("tbody")

regarde sur la capture écran ce que cela donne?

Tu dois avoir un numero avec ton tableau.

Pièce jointe 291313
04/07/2017, 14h19
rose35

Je viens de le faire; ma console est vide. Comment cela se fait?
04/07/2017, 14h20
nonesofar

Tu as collé cette ligne dans la console ?

Code:

document.getElementsByTagName("tbody")

Citation:

Envoyé par rose35

Je viens de le faire; ma console est vide. Comment cela se fait?
04/07/2017, 14h27
rose35

1 pièce(s) jointe(s)

je ne l'avais pas fait non et maintenant j'obtiens :Pièce jointe 291324

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
51
52
53
54
55
On Error GoTo sortie:
Dim url As String: url = "http://connect.cotyww.com/mag/ibi_apps_m/search?q=82472144&btnG=Search&useragent=Chrome&search_vendor=Lucene&oe=utf8&ie=utf8&output=xml_no_dtd&client=magnify_stylesheet&proxystylesheet=magnify_stylesheet&spelling=false&facetcounts=false&IBIGSA_action=search"
Dim element As Object, souselement As Object
 
Dim IEDoc As HTMLDocument
Dim IE As New InternetExplorer
 
IE.navigate url
IE.Visible = True
 
'patienter pour lancer l'extraction
Application.Wait Time + TimeSerial(0, 0, 5)
 
Do While IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop
 
Set IEDoc = IE.Document
'a voir ou se trouve le tableau
'Il suffit d'aller sur le site, de faire ctrl+maj+i (sous chrome) pour ouvrir la fenetre de développement.
'dans l 'onglet "Elements" tu as le code source,
'dans l 'onglet "console" tu as la console (là où tu pourras écrire du code javascript)
 
'et tu tapes : document.getElementsByTagName("tbody")
 
'Pour trouver la ligne javascript qui fonctionnera, c'est à taton.
'Rq: Il faut faire attention aux commandes utilisées:
'getElements.... -> renverra une collection d'éléments
'getElement... -> renverra un seul élément (dans mon exemple je prends le premier elements, l'index demarre  0)
 
Set element = IEDoc.getElementsByTagName("tbody").Item(0)
 
Dim numLigne As Integer, numColonne As Integer
 
For numLigne = 0 To element.Children.Length - 1
    Debug.Print numLigne
    Set souselement = element.Children.Item(numLigne)
    For numColonne = 0 To souselement.Children.Length - 1
        Cells(numLigne + 1, numColonne + 1).Value = souselement.Children.Item(numColonne).innerText
    Next numColonne
Next numLigne
 
 
'libération de la mémoire
Set IEDoc = Nothing
IE.Quit
Set IE = Nothing
MsgBox "Import web terminé sans erreur"
Exit Sub
 
sortie:
Set IEDoc = Nothing
IE.Quit
Set IE = Nothing
MsgBox "Erreur. Vérifiez votre connexion à Internet"

J'ai exécuté le code tel quel mais j'ai un message erreur comme quoi Dim IEDoc As HTMLDocument pose problème

04/07/2017, 15h15
nonesofar

1 pièce(s) jointe(s)

assure toi d'avoir tout coché.

Pièce jointe 291329
04/07/2017, 15h34
rose35

Cela m'ouvre la page et me dit qu'elle est impossible à afficher et bloque au niveau "IE.Quit"
04/07/2017, 15h52
patricktoulon

re

bonjour
vous faite un peu beaucoup même l'amalgame entre JavaScript et la manipulation des html élément en DOM

ROSE QUE VEUX TU RECUPERER EXACTEMENT DANS TA PAGE web???????

Citation:

'getElements.... -> renverra une collection d'éléments
'getElement... -> renverra un seul élément (dans mon exemple je prends le premier éléments, l'index démarre 0)

faux et archi faux !!!!!
getelementSbyClassName("truc") = collection des éléments de la classe truc
getelementSbytagname("Table") = collection des éléments de type table
getelementSbytagname("*") = collection des éléments de tout type(fonctionne que en JavaScript l'équivalent en vba pourrais etre :document.all

maintenant sans le "S" c'est getelementbyID car dans un document il est sensé avoir qu'un seul éléments portant un id unique
si tu veux les tag ou classe sans le "S" la fonction n'existe pas et génère forcement une erreur
maintenant si tu veux directement le premier element d'un tag ou classe se sera

getelementsbyclassname("toto")(0)
04/07/2017, 16h09
rose35

Citation:

Envoyé par patricktoulon

bonjour
vous faite un peu beaucoup même l'amalgame entre JavaScript et la manipulation des html élément en DOM

ROSE QUE VEUX TU RECUPERER EXACTEMENT DANS TA PAGE web???????

faux et archi faux !!!!!
getelementSbyClassName("truc") = collection des éléments de la classe truc
getelementSbytagname("Table") = collection des éléments de type table
getelementSbytagname("*") = collection des éléments de tout type(fonctionne que en JavaScript l'équivalent en vba pourrais etre :document.all

maintenant sans le "S" c'est getelementbyID car dans un document il est sensé avoir qu'un seul éléments portant un id unique
si tu veux les tag ou classe sans le "S" la fonction n'existe pas et génère forcement une erreur
maintenant si tu veux directement le premier element d'un tag ou classe se sera

getelementsbyclassname("toto")(0)

Bonjour,
Je souhaite récupérer des informations du site : quand on rentre un code dans la barre de recherche du site, il apparait différentes informations. Je veux en récupérer deux.
Je voulais importer le contenu sur excel pour savoir facilement où sont les deux éléments que je veux (à priori toujours à la même place qu'importe le numéro initial choisi).
05/07/2017, 09h42
nonesofar

Bonjour à tous,

Du coup rose35 tu as avancé sur ton porjet?

@patricktoulon merci pour la précision en effet, j'explique de façon un peu artisanale :oops:.

Tu as cette discussion qui traite du sujet aussi.

https://www.developpez.net/forums/d1...elechargement/

Après pas simple de savoir ce que tu veux faire sans avoir le site sous les yeux.
05/07/2017, 10h42
rose35

Bonjour,

Non malheureusement je n'ai pas pu avancer.
En fait pour re-expliquer, je cherche à faire un "import de données via internet" sauf que ma page internet n'est pas formalisée comme il faudrait donc seulement le titre s'exporte sur une page excel, pas le contenu.
Je veux tout le contenu, comment faire?

Merci,
05/07/2017, 11h00
nonesofar

1 pièce(s) jointe(s)

Avant de partir en vba.

Est-ce que tu as testé dans données => données externes => A partir du Web ? Tu places ton lien dedans.

Comme sur la copie ecran. Tu peux récupérer quelque chose ? Ou pas ?

Pièce jointe 291528
05/07/2017, 11h49
rose35

Citation:

Envoyé par nonesofar

Avant de partir en vba.

Est-ce que tu as testé dans données => données externes => A partir du Web ? Tu places ton lien dedans.

Comme sur la copie ecran. Tu peux récupérer quelque chose ? Ou pas ?

Pièce jointe 291528

Oui c'est justement ce que j'ai fait, mais seule le titre s'exporte, le reste non
05/07/2017, 16h02
nonesofar

1 pièce(s) jointe(s)

C'est étrange, il y a peut-être une restriction sur ton site interne.

Normalement tu peux choisir les tables. Comme sur l'image.

Pièce jointe 291653

Tu peux pas exporter la table que tu souhaites?
05/07/2017, 16h14
rose35

Non car :
Les données que je veux sont disponibles sous deux formes : l'une sans tableau mais la page ne s'exporte pas sur excel avec cette technique (je n'ai que le titre), soit une forme avec le tableau (mais excel me dit que l'adresse de la page dépasse le nombre de caractères autorisés pour l'exportation).
Si vous avez une solution cela m'aiderait beaucoup,
Car jai de nombreuses références pour lesquells jai besoin de cet outil plutôt qu'ouvrir à chaque fois la page et taper les références chacune leur tour
06/07/2017, 15h04
nonesofar

Ok, du coup tu as ce message d'erreur avec la macro? Ou dans un autre cas?

Citation:

soit une forme avec le tableau (mais excel me dit que l'adresse de la page dépasse le nombre de caractères autorisés pour l'exportation)