XL 2021 Générer Excel venant d'une page Web

[Cyrille18]

Bonjour,

Je souhaite trouver une macro permettant de générer un fichier Excel automatiquement venant d'une page web.
Dans mon métier, nous utilisons des outils intranet, qui ressemblent à des pages web, mais interne à l'entreprise. Certaines pages web ont des boutons du style (Actions-> Générer XLSX). Je souhaite donc à partir d'une macro dans un fichier Excel de mon ordinateur, lancer la génération du fichier Excel de la page web et enregistrer le fichier dans un dossier ciblé.
Cette tache sera répété environ 80 fois car chaque page web peut générer un fichier Excel différent.

Faut il le script des pages web pour comprendre comment est généré le fichier Excel ?
Pouvez vous m'aider pour rendre automatique cette tache ingrate qui me fait perdre beaucoup de temps ?

Cordialement

 

[djidji59430]

Bonjour à tous,

utilises données==>obtenir des données ==>a partir du web

Crdlmt

 

[sylvanu]

Bonjour Cyrille, Djidji,
Ou en simulant l'appui d'une touche sur une page Web : Lien ou lien
Ou encore tentez une approche ChatGPT avec cette question :
"appuyer sur un bouton d'une page web avec une macro VBA d'excel"
Il répond, à tester :

Sub AppuyerSurBoutonWeb()
    Dim IE As Object
    Dim HTMLDoc As Object
    Dim bouton As Object
    ' Initialiser une nouvelle instance d'Internet Explorer
    Set IE = CreateObject("InternetExplorer.Application")   
    ' Ouvrir la page web
    IE.navigate "https://www.example.com" ' Remplacez ceci par l'URL de votre page web   
    ' Attendre que la page se charge
    Do While IE.readyState <> 4 Or IE.Busy
        DoEvents
    Loop   
    ' Obtenir le document HTML de la page chargée
    Set HTMLDoc = IE.document   
    ' Identifier le bouton à cliquer par son ID ou sa classe et le cliquer
    Set bouton = HTMLDoc.getElementById("ID_du_bouton") ' Remplacez "ID_du_bouton" par l'ID de votre bouton
    ' Si l'élément n'est pas trouvé par ID, essayez de le trouver par sa classe
    If bouton Is Nothing Then
        Set bouton = HTMLDoc.getElementsByClassName("classe_du_bouton")(0) ' Remplacez "classe_du_bouton" par la classe de votre bouton
    End If   
    ' Si le bouton est trouvé, cliquez dessus
    If Not bouton Is Nothing Then
        bouton.Click
    Else
        MsgBox "Bouton non trouvé."
    End If   
    ' Fermer Internet Explorer
    IE.Quit   
    ' Libérer la mémoire
    Set IE = Nothing
    Set HTMLDoc = Nothing
    Set bouton = Nothing
End Sub

N'oubliez pas d'activer la référence "Microsoft Internet Controls" dans Excel pour utiliser le contrôle Internet Explorer.

 

[patricktoulon]

re
@sylvanu
ça m'étonnerait fortement qu'avec 2021 il puisse encore gérer IE justement

 

[Cyrille18]

Bonjour,
Merci pour votre aide. Mon ordinateur professionnel possede Chrome. Impossible pour moi d’utiliser internet explorer.
Vous trouverez en pieces jointes les photos ecran montrant la manipulation pour obtenir l’extract.
J’ai egalement fouillé dans l’inspection de la page intranet pour récupérer les codes. id=« ext-gen1521 ».
Pouvez vous m’aider s’il vous plait ?
Cordialement