Discussion :

[rene007]

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,

[rene007]

Bonjour,

Personne pour me donner un coup de main? Si vous voulez des informations supplémentaires, n'hésitez pas! Bien que j'ai essayé de détailler du mieux possible je me suis peut être mal exprimé étant donné que je n'ai pas tout le vocubaire.

[Thumb down]

Bonjour,

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.

Et tu n'as pas accès aux données sources via FTP ou autre?

Tu es obligé de te connecter au site de l'entreprise et récupérer les données comme un vulgaire pirate! J'arrive pas à le croire.

[rene007]

Bonjour,

Tout d'abord merci de prendre le temps de me répondre.
Je ne suis pas du tout informaticien, je travaille dans un autre service et je suis membre du CE dans mon entreprise et cherche et moyen pour effectuer automatiquement en tri des données du site web au lieu de le faire a la main.
Qu'est ce que le FTP? Ça a un rapport avec code source?

La macro décrite précédemment n'est probablement pas la plus adaptée j'en convient mais fonctionne sur la connexion a mon login/MDP et pour aller sur la page que je souhaite.

J'en suis a présent a la dernière etape, d'import des données sur excel. J'ai essayé avec le bouton tout prêt d'excel mais ça ne marche pas, ça me donne la page web sans connexion a mon compte

[Thumb down]

j'imagine que le CE est susceptible de publier des information don t'il est le seule détenteur!

en fait et d'après ton premier poste il semblerait que ce soit le cas puisque tu parle « rubrique Comité d'Entreprise de l'intranet de mon entreprise » .

(nom des activités proposées, personnes inscrites,...)

ce sont bien des activités du CE? il est normal que d'une manière ou d'une autre le CE puisse récupérer les inscriptions et le nom des participant via une interface web de l'intranet!


sur le portail entreprise de ton intranet il est évident que le CE doit avoir la possibilité d'entrer ses propre rubriques et de les gérer!

à mon sens c'est un problème de formation et de compréhension de ton intranet!

si ce n'est pas le cas le CE doit exiger d'avoir la main sur ses rubriques! ce n'est pas un problème de compétence informatique mais un problème de bon sens!

en fait j'ai peur que tu te lance dans une affaire qui est implicitement géré par ton intranet!

[rene007]

Je ne pensais pas que ma demande était si complexe je l'avoue.
Je pensais en effet avoir fait le plus dur et qu'il me restait en quelque sorte simplement un copié/collé à faire sur excel. Le but de ce travail étant de présenter par le biais d'excel et de manière simple et ergonomique des statistiques sur l'activité du CE lors de réunions.
Je vais essayé de me renseigner en interne, mais franchement vu que le site a été développé par un organisme externe je doute fortement trouver réponse à ma question en questionnant mes collègues.

[Thumb down]

ma réponse n'est pas sur l'aspect technique (complexité) mais sur l’opportunité de développer sous Excel une fonctionnalité qui existe forcément surtout

que le site a été développé par un organisme externe

[rene007]

Quand bien même cette fonctionnalité serait inhérente à l'intranet, si comme vous le dite ce n'est pas un problème de complexité, n'est il pas possible de me donner à minima une piste pour réaliser ce que je souhaite étant donné que j'ai déjà passé beaucoup de temps sur la macro?