Insérer du java script en VBA

**rose35** · 04/07/2017, 12h21

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

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

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

**nonesofar** · 04/07/2017, 12h57

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.

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

**rose35** · 04/07/2017, 13h58

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

**rose35** · 04/07/2017, 14h00

Envoyé par nonesofar

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.

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

**nonesofar** · 04/07/2017, 14h03

Hello,

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

**rose35** · 04/07/2017, 14h07

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

**nonesofar** · 04/07/2017, 14h15

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.

Nom : capture jscript.png
Affichages : 1986
Taille : 52,9 Ko

Nom : capture jscript.png
Affichages : 1986
Taille : 52,9 Ko

**rose35** · 04/07/2017, 14h19

Je viens de le faire; ma console est vide. Comment cela se fait?

**nonesofar** · 04/07/2017, 14h20

Tu as collé cette ligne dans la console ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

document.getElementsByTagName("tbody")

Envoyé par rose35

Je viens de le faire; ma console est vide. Comment cela se fait?

**rose35** · 04/07/2017, 14h27

je ne l'avais pas fait non et maintenant j'obtiens : Nom : Capture.PNG
Affichages : 2013
Taille : 21,1 Ko

**rose35** · 04/07/2017, 14h38

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

**nonesofar** · 04/07/2017, 15h15

assure toi d'avoir tout coché.

Nom : Capture references excel.PNG
Affichages : 1928
Taille : 28,6 Ko

**rose35** · 04/07/2017, 15h34

Cela m'ouvre la page et me dit qu'elle est impossible à afficher et bloque au niveau "IE.Quit"

**patricktoulon** · 04/07/2017, 15h52

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

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

**rose35** · 04/07/2017, 16h09

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

**nonesofar** · 05/07/2017, 09h42

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

.

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.

**rose35** · 05/07/2017, 10h42

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,

**nonesofar** · 05/07/2017, 11h00

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 ?

Nom : Capture requête web.PNG
Affichages : 2845
Taille : 60,5 Ko

Nom : Capture requête web.PNG
Affichages : 2845
Taille : 60,5 Ko

**rose35** · 05/07/2017, 11h49

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 ?

Nom : Capture requête web.PNG
Affichages : 2845
Taille : 60,5 Ko

Oui c'est justement ce que j'ai fait, mais seule le titre s'exporte, le reste non

Insérer du java script en VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager