Mise en forme relevé de banque CSV pour exploitation dans access 2019

Version imprimable

15/08/2023, 18h59
MONANGE

Mise en forme relevé de banque CSV pour exploitation dans access 2019

Bonjours,
Lorsque j'importe mon relevé au format CSV et que je l'ouvre avec Excell avant de l'intégrer à ma base Access
J'ai les 5 premiers lignes que je voudrai transformer en colonnes à coté des ligne d'opération
pour récupérer le numéro du compte la date du relevé et le solde de fin du relevé
Comment Puis-je procéder, actuellement je fait cela manuellement
Dans Excell 2019
Merci de vos conseils et votre aide
16/08/2023, 13h18
Phil333250

Bonjour,

L'astuce est de passer par PowerQuery qui permet de manipuler les lignes et colonnes plus facilement qu'avec Excel.
En revanche je n'ai pas la solution.
Mais sur le forum il y a des pro de PQ.
Philippe
16/08/2023, 15h52
jurassic pork

Hello,

Citation:

Envoyé par MONANGE

Bonjours,
Lorsque j'importe mon relevé au format CSV et que je l'ouvre avec Excell avant de l'intégrer à ma base Access
J'ai les 5 premiers lignes que je voudrai transformer en colonnes à coté des ligne d'opération
pour récupérer le numéro du compte la date du relevé et le solde de fin du relevé

Il y a plusieurs formats de lignes dans ton fichier csv ? Peux-tu nous mettre les 10 premières lignes de ton fichier csv ? Bien sûr avec des données transformées en données non confidentielles.

Ami calmant, J.P

Bonjour
Nom du fichier et encoding à adapter

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
let
let
    Source = Csv.Document(File.Contents("T:\TEMP\XXX.csv"),[Delimiter=";", Columns=3, Encoding=65001, QuoteStyle=QuoteStyle.None]),
    #"Conserver les premières lignes" = Table.FirstN(Source,5),
    #"Lignes filtrées" = Table.SelectRows(#"Conserver les premières lignes", each ([Column1] <> "Compte tenu" and [Column1] <> "Type")),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Lignes filtrées",{"Column3"}),
    #"Valeur remplacée" = Table.ReplaceValue(#"Colonnes supprimées","Date","Date relevé",Replacer.ReplaceText,{"Column1"}),
    #"Table transposée" = Table.Transpose(#"Valeur remplacée"),
    Header = Table.PromoteHeaders(#"Table transposée", [PromoteAllScalars=true]),
    #"Supprimer 1èeres lignes" = Table.Skip(Source,6),
    Data = Table.PromoteHeaders(#"Supprimer 1èeres lignes", [PromoteAllScalars=true]),
    #"Personnalisée ajoutée" = Table.AddColumn(Header, "Data", each Data),
    #"Data développé" = Table.ExpandTableColumn(#"Personnalisée ajoutée", "Data", {"Date", "Libellé", "Montant(EUROS)"}, {"Date", "Libellé", "Montant(EUROS)"}),
    #"Type modifié" = Table.TransformColumnTypes(#"Data développé",{{"Date relevé", type date}, {"Date", type date}, {"Montant(EUROS)", Currency.Type}, {"Solde (EUROS)", Currency.Type}, {"Numéro Compte", type text}, {"Libellé", type text}})
in
    #"Type modifié"

Ajouter le typage des données à la fin

Bonjour

en complément à la solution de Chris, une autre possibilité par Power Query en passant par du code (et non pas par l'interface utilisateur)
Code:

1 2 3 4 5 6 7 8 9 10 let Source = Votre source ici, Data = #table( {"Numéro Compte", "Date relevé", "Solde(EUROS)", "Data"}, {{Source[Column2]{0}, Source[Column2]{3}, Source[Column2]{4}, Table.PromoteHeaders(Table.Skip(Source,6))}}), #"Data développé" = Table.ExpandTableColumn(Data, "Data", {"Date", "Libellé", "Montant(EUROS)"}, {"Date", "Libellé", "Montant(EUROS)"}) in #"Data développé"
le principe est de récupérer directement dans une table les cellules B1 = Source[Column2]{0}) , B4 = Source[Column2]{3} et B5 = Source[Column2]{4} ainsi que les données à partir de la ligne 7 = Table.PromoteHeaders(Table.Skip(Source,6))
il ne reste plus qu'à développer les données et à typer les colonnes

Stéphane

18/08/2023, 05h17
Alex020181

Bonjour

Il est tout à fait possible de faire cette transformation avec VBA Excel et même d'importer ton csv en appliquant cette étape dans Access.

Comme demandé plus haut il nous faudrait un exemple de csv
18/08/2023, 16h58
78chris

Boinjour

Citation:

Envoyé par Raccourcix

en complément à la solution de Chris, une autre possibilité par Power Query en passant par du code (et non pas par l'interface utilisateur)

le principe est de récupérer directement dans une table les cellules B1 = Source[Column2]{0}) , B4 = Source[Column2]{3} et B5 = Source[Column2]{4} ainsi que les données à partir de la ligne 7 = Table.PromoteHeaders(Table.Skip(Source,6))
il ne reste plus qu'à développer les données et à typer les colonnes

Waouh : je range ça dans ma boîte à malice ! Sûr que cela resservira... J'ai d'ailleurs un truc sur le feu où je vais le tester !

Merci Stéphane

EDIT : Testé et approuvé
18/08/2023, 18h39
Raccourcix

Merci Chris pour le retour
surtout que dans le cas présent le #table n'est pas très compliqué à mettre en oeuvre :
- une liste de 4 éléments pour les en-têtes,
- une liste avec une seule liste pour la seule ligne.

Au final, une seule étape au lieu de 9 dans ton code, c'est bien plus lisible

Stéphane