Modifier URL power query avec VBA

Vashh50 · 4 Juin 2018

Bonjour à tous,

Je cherche à réaliser un fichier qui fait appel à un power query, seul problème, ma requete se limite à 1000 lignes.

La requete se présente sous cette forme :

let
Source = Json.Document(Web.Contents("https://URLsite&date=04/06/2018")),
#"Converti en table" = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#"Valeurs extraites" = Table.TransformColumns(#"Converti en table", {"Column1", each Text.Combine(List.Transform(_, Text.From), ","), type text})
in
#"Valeurs extraites"

Je souhaiterais donc savoir s'il était possible en VBA de modifier le paramètre de date de l'URL ?

Merci d'avance.

Staple1600 · 4 Juin 2018

Bonsoir le fil, le forum

Au pif, non testé

Dim AuPif as String
AuPif=Date
let
Source = Json.Document(Web.Contents("https://URLsite&date=" & AuPif & " )),

Vashh50 · 5 Juin 2018

Je dois taper ce texte dans la requête directement ?

Je ne pensais pas qu'il était possible de simplement déclarer une variable en amont de la requête. Je teste ça dès que possible.

Staple1600 · 5 Juin 2018

Bonsoir le fil, le forum

@Vashh50
Je n'en sais rien.
J'ai publié cela au feeling en te laissant le soin de tester.

Mais en cherchant un peu, on trouve
https://accessanalytic.com.au/powerquery_namedcells_parameters/

Vashh50 · 5 Juin 2018

Je te remercie Staple et j'étais justement tombé sur ce site dans l’après midi. Malheureusement j'ai beau suivre la méthode, la requête ne fonctionne pas. Voici la requete que j'ai tapé :

Et voila l'erreur qui m'est retourné :

Staple1600 · 5 Juin 2018

Re

Tu as nommé tes cellules comme dans l'exemple ?

Vashh50 · 5 Juin 2018

J'ai suivi cette solution et elle marche à merveille :

This can be achieved using a named range and a custom function in PowerQuery:

Name the cell you need to refer (type in a name into the file left of the formula bar) - e.g. SourceFile

Insert a new blank PowerQuery query (PowerQuery ribbon -> From other sources)

In the PowerQuery editor, go to View -> Advanced Editor and paste the following code;

(rangeName) =>
Excel.CurrentWorkbook(){[Name=rangeName]}[Content]{0}[Column1]

Name the query to GetValue (Name property in the Query settings pane on the right)

Now you can access the any named cell in you queries, using GetValue(cellName) - e.g.

= Excel.Workbook(File.Contents(GetValue("SourceFile")))

Merci pour ton aide.

Modifier URL power query avec VBA

Vashh50

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Vashh50

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Vashh50

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Vashh50

XLDnaute Nouveau

Discussions similaires