Récupération d'infos d'une page PhP avec VBA

bonjour,

Je souhaiterai récupérer des informations issues d'une page PhP (liste de publications et tableau de données pour générer un graphique).

Je vous donne un exemple de page :

https://halur1.univ-rennes1.fr/ExtractionHAL.php?team=GREYC-MONEBIOM&listaut=GREYC-MONEBIOM&idhal=&evhal=&publis=~TA~&comm=~TC~&ouvr=~TO~&autr=~BRE~RAP~THE~HDR~&anneedeb=2015&anneefin=2019&depotdeb=&depotfin=&typnum=inv&typaut=aucun&typnom=nominit&typcol=soul&typlim=non&limaff=5&typtit=~aucun~&typann=apres&typchr=decr&typtri=premierauteur&typfor=typ2&typdoi=vis&typurl=vis&typpub=inv&surdoi=inv&sursou=inv&typidh=inv&racine=https://hal-univ-rennes1.archives-ouvertes.fr/&typreva=inv&typrevh=inv&dscp=gau&typrevc=inv&typcomm=inv&typif=inv&typavsa=inv&delim=pvir&typeqp=non&prefeq=non&nbeqp=&stpdf=-%20-&spa=-%20-&nmo=-%20-&gp1=-%20-&gp2=-%20-&gp3=-%20-&gp4=-%20-&gp5=-%20-&gp6=-%20-&gp7=-%20-&sep1=-%20-&sep2=-%20-&sep3=-%20-&sep4=-%20-&sep5=-%20-&sep6=-%20-&sep7=-%20-&mp1=~-%20-~&mp2=~-%20-~&mp3=~-%20-~&mp4=~-%20-~&mp5=~-%20-~&mp6=~-%20-~&mp7=~-%20-~&cg1=000000&cg2=000000&cg3=000000&cg4=000000&cg5=000000&cg6=000000&cg7=000000

Je réussis à récupérer le tableau tout en bas avec ce script VBA :

With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;https://halur1.univ-rennes1.fr/ExtractionHAL.php?team=GREYC-MONEBIOM&listaut=GREYC-MONEBIOM&idhal=&evhal=&publis=~TA~&comm=~TC~&ouvr=~TO~&autr=~BRE~RAP~THE~HDR~&anneedeb=2015&anneefin=2019&depotdeb=&depotfin=&typnum=inv&typaut=aucun&typnom=nominit&typcol=soul&typlim=non&limaff=5&typtit=~aucun~&typann=apres&typchr=decr&typtri=premierauteur&typfor=typ2&typdoi=vis&typurl=vis&typpub=inv&surdoi=inv&sursou=inv&typidh=inv&racine=https://hal-univ-rennes1.archives-ouvertes.fr/&typreva=inv&typrevh=inv&dscp=gau&typrevc=inv&typcomm=inv&typif=inv&typavsa=inv&delim=pvir&typeqp=non&prefeq=non&nbeqp=&stpdf=-%20-&spa=-%20-&nmo=-%20-&gp1=-%20-&gp2=-%20-&gp3=-%20-&gp4=-%20-&gp5=-%20-&gp6=-%20-&gp7=-%20-&sep1=-%20-&sep2=-%20-&sep3=-%20-&sep4=-%20-&sep5=-%20-&sep6=-%20-&sep7=-%20-&mp1=~-%20-~&mp2=~-%20-~&mp3=~-%20-~&mp4=~-%20-~&mp5=~-%20-~&mp6=~-%20-~&mp7=~-%20-~&cg1=000000&cg2=000000&cg3=000000&cg4=000000&cg5=000000&cg6=000000&cg7=000000", _
    Destination:=Range("$A$1"))
    .Name = "HAL"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlAllTables
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
     End With

J'aimerai aussi récupérer la liste de publications pour avoir une publication par ligne dans excel. Je pense que beaucoup de laboratoires de recherche en France seraient très intéressés par ce script (que je diffuserai pour les collègues).

Merci de votre aide,

Christophe

bonjour

sur ton Excel 2013

https://www.youtube.com/watch?v=gwW2CDdvUUs

ilest inclus dans les versions plus récentes

menu Power Query, obtenir du web

et on ouvre ton lien, on choisit la table

on supprime des lignes vides

"charger"

par la suite, "actualiser" suffit

tu viens de tester un outil hyyyyyyper-puissant d'Excel

amitiés

Merci pour l'aide, je vais essayer mais ca m'a l'air prometteur

ça peut !

car c'est un des axes prioritaires de Microsoft, avec le big data et l'IA.

il FAUT s'y mettre

bon travail