Coller les données web du navigateur dans Excel
Bonjour,
Tout nouvellement inscrit sur le forum je viens vers vous pour un soucis de macro qui va surement paraître anodin pour des aguerris d'excel comme vous. Mais il parait qu'il n'y a pas de question bête... :)
Avant d'exposer mon problème, je précise que je suis novice en langage VBA et que je suis sur Excel 2016.
Voici ma problématique:
Je travaille en ce moment sur la rubrique Comité d'Entreprise de l'intranet de mon entreprise et je souhaiterais transférer des éléments (nom des activités proposées, personnes inscrites,...) sur la feuille 1 de mon classeur excel pour effectuer un tri dans un tableau sur la feuille 2 de mon classeur.
En puisant sur internet et sur le forum, j'ai d'ores et déjà réussi à faire une macro qui rentre mon identifiant et mon mot de passe, navigue dans les différentes page par le biais de la "fonction"
Code:
ie.navigate("http://XXX")
Mais je bloque à présent au moment où je souhaite importer les données de la fenêtre du navigateur dans la feuille1 de mon classeur Excel.
Ci dessous explication du code (je mets des XXX dans l'url pour une histoire de confidentialité car j'ai le nom de mon entreprise qui apparaît)
Description début de macro qui fonctionne : Je vais sur la page d'accueil via IE.navigate("https://accueil.XXX"), je rentre mes identifiants et mdp via:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Dim idoc As MSHTML.HTMLDocument
Set idoc = i.document
idoc.all.UserName.Value = "identifiant"
idoc.all.Password.Value = "mdp"
Dim ele As MSHTML.IHTMLElement
Dim eles As MSHTML.IHTMLElementCollection
Set eles = idoc.getElementsByTagName("button")
For Each ele In eles
If ele.ID = "register_submit" Then
ele.Click
Else
End If
Next ele |
J'obtiens alors la fenêtre de mon navigateur où je souhaite à présent importer les données dans Excel
Fin de macro qui marche pas:
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
| IE.navigate ("https://comitealliancece.XXXX")
Sheets("Feuil1").Cells.Clear
Sheets("Feuil1").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
With Sheets("feuil1").QueryTables.Add(Connection:= _
"URL;" & IE.navigate, Destination:=Sheets("feuil1").Range("$A$1"))
.Name = "intranet"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub |
Restant disponible pour toute information complémentaire,
