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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
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 : 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
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,