Microsoft 365 Problème pour traiter un fichier csv

[Did95]

Bonsoir,
toutes les semaines je dois analyser les entrées journalières de parking.
Je souhaiterai savoir si il y a un moyen d'automatiser la transformation du fichier csv vers excel?

Les log indiquent les jours et heures de personnes qui passent la porte,
j'ai besoin de ressortir les noms et si ils sont passés une fois par jour, actuellement si la personne badge 3 fois cela me compte trois.
Pour remédier a ce problème, je suis obligé de modifier la date en précisant uniquement le jour, puis je passe par supprimer les doublons et enfin un tableau croisé.

si vous penser avoir un solution je pourrai vous fournir un fichier csv de test.

Merci d'avance pour vos réponses
Didier

 

[Staple1600]

Bonsoir @Did95

si vous penser avoir un solution je pourrai vous fournir un fichier csv de test.

Tant que celui-ci est anonymisé, ce serait un plus pour résoudre la question posée.

 

[Did95]

Bonjour Staple 1600,
voici le fichier, je le récupère en csv,
j'espère être assez clair dans ma demande.

 

[Staple1600]

Bonjour @Did95

Il faudrait le fichier au format CSV
(non transformé par Excel)
Pour joindre un CSV sur le forum, il faut juste le zipper au préalable et joindre le zip

NB: Anonymise l'extrait du CSV dans le bloc-note (pas dans Excel)

 

[Did95]

Bonjour @Staple1600
voici le fichier

Cordialement
Didier

 

[Staple1600]

Re

@Di95
Ton CSV est mal "formaté"
J'ai donc fait un test (avec deux façons d'ouvrir un CSV en VBA)
En utilisant ce fichier exemple
NB: pour tester ne pas oublier de changer le chemin et le nom du dossier contenant le *.csv

Sub essai_A()
Dim CSVPath$
CSVPath = "C:\Users\STAPLE\Downloads\export test\"
Workbooks.OpenText Filename:=CSVPath & "trees.csv", DataType:=xlDelimited, Comma:=True, DecimalSeparator:="."
ActiveSheet.Copy
ActiveWorkbook.SaveAs CSVPath & ActiveSheet.Name & ".xlsx", 51
ActiveWorkbook.Close True
End Sub
Sub essai_B()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\STAPLE\Downloads\export test\trees.csv", Destination:=Range("$A$1"))
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Maintenant, reste la suite de la question.

 

[Hasco]

Bonjour,

L'ami @Staple1600 a raison votre fichier (celui communiqué au post#5) n'est pas conforme et son codage incertain.

Chaque ligne est entourée de guillemet, les noms de colonnes avec espace sont donc double-côté:

"Date,Status,Reason,""Parking lot"",Gate,""Access type"",Beneficiary,""Beneficiary ID"",""Profile ID"",""External ID"",""Identifier type"",Identifier,""Group of spots"",""Access right"",""Access method"",Organisation,Tenant"

Au lieu de

Date,Status,Reason,"Parking lot",Gate,"Access type",Beneficiary,"Beneficiary ID","Profile ID","External ID","Identifier type",Identifier,"Group of spots","Access right","Access method",Organisation,Tenant

Bien sûr avec power query on peut arranger ça, mais je ne pense pas que vos fichiers originaux vous arrivent comme ça.

Comme le disait @Staple1600 anonymisez vos .csv dans le bloc-note

Cordialement

 

[Staple1600]

Bonjour @Hasco

Moi je veux voir ton PQ


NB: Pour ma gouverne, s'entend

 

[Hasco]

Re,

voilà mon PQ en 4 feuilles. Euh 4 étapes. Changer le chemin vers le fichier dans la source

let
Source = Csv.Document(File.Contents("----------\export test.csv"),[Delimiter=",", Columns=1, Encoding=65001, QuoteStyle=QuoteStyle.None]),
#"Fractionner la colonne par délimiteur" = Table.SplitColumn(Source, "Column1", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), {"Column1.1", "Column1.2", "Column1.3", "Column1.4", "Column1.5", "Column1.6", "Column1.7", "Column1.8", "Column1.9", "Column1.10", "Column1.11", "Column1.12", "Column1.13", "Column1.14", "Column1.15", "Column1.16", "Column1.17"}),
#"En-têtes promus" = Table.PromoteHeaders(#"Fractionner la colonne par délimiteur", [PromoteAllScalars=true]),
#"Type modifié" = Table.TransformColumnTypes(#"En-têtes promus",{{"Date", type datetime}, {"Status", type text}, {"Reason", type text}, {"Parking lot", type text}, {"Gate", type text}, {"Access type", type text}, {"Beneficiary", type text}, {"Beneficiary ID", Int64.Type}, {"Profile ID", Int64.Type}, {"External ID", type text}, {"Identifier type", type text}, {"Identifier", type text}, {"Group of spots", type text}, {"Access right", type text}, {"Access method", type text}, {"Organisation", type text}, {"Tenant", type text}})
in
#"Type modifié"

 

[Did95]

Bonjour
Malheureusement oui fichier comme cela avec le bloc notes.
Date,Status,Reason,"Parking lot",Gate,"Access type",Beneficiary,"Beneficiary ID","Profile ID","External ID","Identifier type",Identifier,"Group of spots","Access right","Access method",Organisation,Tenant

je remet le fichier mais avec une seule entrée modifié avec bloc notes.

Cordialement

 

[Hasco]

Re,

Ce fichier est bon

voici une requête Power Query qui reprends vos données. Pour le reste il faut détailler ce que vous voulez exactement. La requête ajoute une colonne 'Jour'

Changez le chemin du fichier dans l'étape source de la requête.

Difficile avec une seule ligne de données de faire une démonstration mais vous pouvez faire vos propre transformation dans power query

Cordialement

@Staple1600 : oui j'ai testé le fichier d'origine avec pleins de page de codes possibles.

 

[patricktoulon]

bonjour à tous
c'est quoi ce format c'est pas en udf-8
je suis curieux là même ma fonction force udf-8 me rends les accents all(é)e mais pas pr(é)nom (comme @Staple1600)
mais en quel format peut il bien être

 

[Did95]

Bonjour,
Merci pour ces retours, mon but final est de faire une extraction du fichier CSC afin de savoir le nombre de personne par jour qui passe la porte.
ce que je veux eviter c'est que si la personne passe trois dans la journée je ne veux la compter qu'une seule fois.

Cordialement

 

[Staple1600]

@Did95
Quel est le nom du logiciel qui génèrent les logs de ton parking ?

 

[Hasco]

Re,

J'avais bien compris, mais avec une seule ligne de données dans votre fichier exemple il est difficile de vous faire une démonstration.

Une fois le fichier chargé dans Power Query vous pouvez faire toutes les transformations possibles.
Vous pouvez regrouper par Date (ou colonne jour) et identifiant

Cordialement