Discussion :

[rose35]

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

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

[rose35]

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

[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

[rose35]

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]

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]

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]

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.