Power Query importer fichier CSV, dont le chemin est dans une cellule Excel

[vgendron]

Bonjour,
J'interviens sur un post

XL 2019 Publié dans la discussion 'Regroupement tickets'

Mercredi à 11:25

sinon, une solution par Power Query

• vgendron

• 

j'ai donc une requete qui importe le fichier CSV, mais le chemin est en "dur" directement dans la requete

ce que je souhaite, c'est mettre ce chemin dans une cellule Excel que PQ va lire pour mettre dans une variable

après avoir mis le chemin complet du fichier à importer dans un tableau,
1) j'importe le tableau dans PQ
2) DrillDown pour en faire un paramètre "CheminComplet"

l'instruction d'import du fichier passe de

Source = Csv.Document(File.Contents("C:\Users\vince\Downloads\Fevrier.csv"),[Delimiter=";", Columns=15, Encoding=1252, QuoteStyle=QuoteStyle.None]),

à

Source = Csv.Document(File.Contents(CheminComplet),[Delimiter=";", Columns=15, Encoding=1252, QuoteStyle=QuoteStyle.None]),

MAIS j'ai un message d'erreur m'indiquant un pb de chemin absolu...

en cherchant un peu, j'ai vu une solution de @merinos-BernardEtang qui utilise deux cellules
Une pour le chemin nommée "CheminCSV" et une pour le nom du fichier nommée "FichierCSV"

le code devient donc

    Chemin =Excel.CurrentWorkbook(){[Name="CheminCSV"]}[Content]{0}[Column1],
    Fichier=Excel.CurrentWorkbook(){[Name="FichierCSV"]}[Content]{0}[Column1],
    Source = Csv.Document(Chemin&Fichier,[Delimiter=";", Columns=15, Encoding=1252, QuoteStyle=QuoteStyle.None]),

plus d'erreur MAIS le contenu reste vide

Sauriez vous m'indiquer ce qui ne va pas??

 

[vgendron]

ha et.. evidemment j'ai essayé en remettant le File.Contents

 Chemin =Excel.CurrentWorkbook(){[Name="CheminCSV"]}[Content]{0}[Column1],
    Fichier=Excel.CurrentWorkbook(){[Name="FichierCSV"]}[Content]{0}[Column1],
    Source = Csv.Document(File.Contents(Chemin&Fichier),[Delimiter=";", Columns=15, Encoding=1252, QuoteStyle=QuoteStyle.None]),

je reviens à une erreur d'adresse absolue...

 

[alexga78]

Bonjour @vgendron, le forum,

avec le chemin complet (par exemple C:\PQ\PQ.csv) dans une cellule nommée "Table1".

= Table.PromoteHeaders(Csv.Document(File.Contents(Table.FirstValue(Excel.CurrentWorkbook(){[Name="Table1"]}[Content])),[Delimiter=",", Columns=15, Encoding=1252]))

Bonne journée

 

[vgendron]

hello Alesga78

et non.. toujours le meme message d'erreur..

 

[alexga78]

Re
chez moi cela fonctionne...

 

[vgendron]

pour être certain, l'instruction complète que tu as mise c'est bien ?
source=Table.PromoteHeaders........

 

[vgendron]

alors si pardon.. ca "fonctionne"
sauf que le première ligne du fichier CSV (qui ne contient pas d'entete) est utilisée comme entete.. alors qu'il s'agit d'une ligne de données...

 

[vgendron]

bon bah voila.. suffit que je supprime la partie "table.promoteheaders"

et je me retrouve donc avec cette instruction

source=Csv.Document(File.Contents(Table.FirstValue(Excel.CurrentWorkbook(){[Name="Table1"]}[Content])),[Delimiter=",", Columns=15, Encoding=1252]))

qui me donne le résultat escompté

merci @alexga78