Changer la fin d'une url dans une macro

Bonjour,

J'essaye d'importer des données depuis internet, mais elles sont sur plusieurs pages qui ont le même nom mais qui se terminent par des chiffres qui changent. Pour une page ça marche bien, mais je voudrais pouvoir importer les données de plusieurs de ces pages successives sans répéter la manipulation "données", "à partir du web", "copier coller l'adresse", "choisir la table"....

J'ai vu qu'au moment où on colle l'adresse ciblée on peut la séparer en deux partie (par exemple la partie fixe (www.nomdusite.com/) et la partie qui change (1, 2, 3...). Mais je ne vois pas comment ensuite se servir de ça.

Pour l'instant la commande que j'ai c'est

let
    Source = Web.Page(Web.Contents("http://www.fonctionpublique-actes.gouv.sn/lister/" & "2")),
    Data0 = Source{0}[Data],
 in
    Data0

(en fait je voudrais faire exactement ce que montre ce tuto http://www.joelmatriche.com/?p=326 mais comme dans mon adresse il n'y a pas "page=" (et que je début sur excel) je n'y arrive pas.) J'ai l'impression que c'est pas sorcier mais je n'arrive pas à mettre la main sur la solution... Est e que quelqu'un a une idée?

Bonjour,

Un début de réponse :

(page as number) as table=>
    let
        Source = Web.Page(Web.Contents("http://www.fonctionpublique-actes.gouv.sn/lister/" & Number.ToText(page))),
        Data0 = Source{0}[Data]
    in
        Data0

Bonjour Meli et bienvenue sur le forum,

Bonjour Jean-Eric,

Une autre méthode consiste à chercher la position de ".com/" dans ta chaîne de caractère (URL) pour ensuite extraire ce qui suis :

Sub SéparerURLendeux()
Dim Txt As String, URL As String
URL = "www.nomdusite.com/123"
Txt = Right(URL, Len(URL) - InStr(1, URL, ".com/"))
Txt = Right(Txt, Len(Txt) - InStr(1, Txt, "/"))
MsgBox Txt
End Sub

La variable Txt ressort "123"

Restant à dispo

Re,

Bonjour Juice,

meli30 teste une solution via Récupérer et Transformer (Power Query).

La solution est +/- rapide à mettre en place, mais nécessite un petit apprentissage.

Bon, maintenant, récupérer 38.890 pages !...

Je n'ai pour ma part testé la procédure indiquée.

Cdlt.

Re,

@ meli30

A tester.

J'ai fait pour les 10 premières pages et intégré l'année (!?).

A te relire.

Cdlt.

MAIS OUI ça marche c'est parfait, génial.

Je suis vraiment une quiche de confondre "page" et "page".

Merci beaucoup, beaucoup, beaucoup =)

Re,

Merci de ce retour et d'avoir clos le sujet.

Télécharge tout de même le classeur !...

@Jean-Eric

meli30 teste une solution via Récupérer et Transformer (Power Query).

Encore du Power Query x) !

Il va vraiment falloir que je m’intéresse à cet outil !

Désolé pour mon H.S. !