(IdentifiantDocument as text ) =>
let
Source = Json.Document(Web.Contents("
https://MONAPI.com/reports/" & IdentifiantDocument ) ),
#"Converti en table" = Record.ToTable(Source),
#"Value développé" = Table.ExpandRecordColumn(#"Converti en table", "Value", {"date", "overview"}, {"Value.date", "Value.overview"}),
#"Value.overview développé" = Table.ExpandRecordColumn(#"Value développé", "Value.overview", {"count", "opens", "openers", "shared", "os", "device", "read", "actives", "hasLinks", "clicks", "clickers"}, {"Value.overview.count", "Value.overview.opens", "Value.overview.openers", "Value.overview.shared", "Value.overview.os", "Value.overview.device", "Value.overview.read", "Value.overview.actives", "Value.overview.hasLinks", "Value.overview.clicks", "Value.overview.clickers"}),
#"Value.overview.read développé" = Table.ExpandRecordColumn(#"Value.overview développé", "Value.overview.read", {"interest"}, {"Value.overview.read.interest"}),
#"Value.overview.device développé" = Table.ExpandRecordColumn(#"Value.overview.read développé", "Value.overview.device", {"desktop"}, {"Value.overview.device.desktop"}),
#"Value.overview.os développé" = Table.ExpandRecordColumn(#"Value.overview.device développé", "Value.overview.os", {"values"}, {"Value.overview.os.values"}),
#"Value.overview.os.values développé" = Table.ExpandRecordColumn(#"Value.overview.os développé", "Value.overview.os.values", {"Windows"}, {"Value.overview.os.values.Windows"}),
#"Colonnes supprimées" = Table.RemoveColumns(#"Value.overview.os.values développé",{"Value.overview.shared"})
in
#"Colonnes supprimées"