Copy/paste queries into worksheet

[Mederic]

Hello everyone,
I would like to know if it is possible to automatically copy all the queries from a file and paste them into a worksheet (see screenshot below).
Thanks in advance

[Mederic]

@slorin ,

I've just tested it and it's perfect, 
The code also includes the names of the queries,

thank you very much.
Have a nice evening

[Mederic]

Hello @slorin @, best wishes and happy new year, thank you for your reply. I'll test it as soon as I get home. I'll get back to you. Best regards

[slorin · Accepted solution]

Hi @Mederic 

en VBA

For i = 1 To ThisWorkbook.Queries.Count
  Cells(i, 1) = ThisWorkbook.Queries(i).Name
  Cells(i, 2) = ThisWorkbook.Queries(i).Formula
Next i

Stéphane