Microsoft 365 Problème pour traiter un fichier csv

patricktoulon à dit:

re
question c'est quoi site,site à la fin de ton fichier ?
ça fait parti d'une ligne ou c'est a excepter dans la lecture
Regarde la pièce jointe 1153427

la fin de l’entête de colonne c'est bien "Tenant" ???

Cliquez pour agrandir...

job75 à dit:

Bonjour Did95, le forum,

La macro de mon post #23 prend beaucoup trop de temps sur un grand tableau : 125 secondes chez moi pour 1 date avec 100 000 noms [Edit| différents.

Prenez cette macro qui utilise 2 Dictionary :

VB:

Private Sub CommandButton1_Click()
Dim fichier$, d As Object, dd As Object, x%, y$, s, dat As Variant, n&, a(), b(), i&, j&
fichier = ThisWorkbook.Path & "\test export.csv"
Set d = CreateObject("Scripting.Dictionary")
Set dd = CreateObject("Scripting.Dictionary")
x = FreeFile
Open fichier For Input As #x 'ouverture en lecture séquentielle
While Not EOF(x)
    Line Input #x, y 'récupère la ligne
    y = Replace(y, """,""", ";") 'pour avoir le point-virgule à gauche du nom
    y = Replace(y, """,", ";") 'pour avoir le point-virgule à droite du nom
    s = Split(y, ";")
    dat = Mid(s(0), 2, 10)
    If IsDate(dat) Then
        dat = CDate(dat)
        If Not d.exists(dat) Then
            n = n + 1
            d(dat) = n 'mémorise la ligne
            ReDim Preserve a(1 To 2, 1 To n)
            a(1, n) = dat
        End If
        dd(dat & s(3)) = ""
    End If
Wend
Close #x
If n Then
    '---complète le tableau a---
    b = dd.keys
    For i = 0 To UBound(b)
        j = d(CDate(Left(b(i), 10))) 'récupère la ligne
        a(2, j) = a(2, j) + 1 'comptage
    Next
    '---transposition---
    ReDim b(1 To n, 1 To 2)
    For i = 1 To n
        b(i, 1) = a(1, i)
        b(i, 2) = a(2, i)
    Next
End If
'---restitution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [A2] '1ère cellule de destination
    If n Then .Resize(n, 2) = b
    .Offset(n).Resize(Rows.Count - n - .Row + 1, 2).ClearContents 'RAZ en dessous
End With
End Sub

Avec 100 000 noms différents elle s'exécute en 1,6 seconde.

A+

Cliquez pour agrandir...

dysorthographie à dit:

Bonsoir,
Ce n'est pas de l'UTF8, je n'ai pas trouvé ce que c'est!

VB:

Sub test()
PressePapier = Replace(Replace(OuvrirFichier(ThisWorkbook.Path & "\export test.csv"), Chr(34), ""), ",", vbTab)
ActiveCell.PasteSpecial xlPasteAll
End Sub
'retourne un fichier texte sous forme de tableau
Private Function OuvrirFichier(Fichier)
Set oFs = CreateObject("Scripting.FileSystemObject")
Set oFile = oFs.OpenTextFile(Fichier)
OuvrirFichier = oFile.ReadAll
oFile.Close
End Function
Public Function ClearPressePapier()
With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With
End Function
Public Property Let PressePapier(valeur)
With CreateObject("htmlfile").parentwindow.clipboardData.setData("Text", valeur): End With
End Property

Public Property Get PressePapier()
PressePapier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property

Merci Patrick pour le presse papier

Cliquez pour agrandir...

Did95 à dit:

Bonjour,
Merci beaucoup pour votre réponse , mais la ça se complique vraiment pour moi.
Je ne connais pas le VBA et je ne sais pas ce que je dois faire. Désolé.

Cliquez pour agrandir...

Did95 à dit:

Bonjour voici le fichier mais dans le tableau je n'ai besoin de savoir qu'un seul passage.

Cliquez pour agrandir...

Hasco à dit:

Bonjour,

Votre .zip est vide 🙂

Cordialement

Cliquez pour agrandir...

patricktoulon à dit:

bonjour
clique sur le bouton bleu choisi ton fichier dans le dialog et voilà terminé
te restera plus qu'a faire un remove duplicate pour les doublons
là c'est difficile c'est toujours le même nom prénom
mes camarades t'indiqueront la marche a suivre c'est assez simple

Cliquez pour agrandir...

patricktoulon à dit:

re
Bonsoir Robert
et oui en html j'aurais du y penser c'est vrai que le passage du texte dans le clip de l'object html fait un peu le ménage déjà
j'avais oublié merci robert pour le rappel

c'est vrai que c'est tout de suite plus simple à travailler

VB:

Sub testQ()
    PressePapier = Replace(Replace(OuvrirFichier(ThisWorkbook.Path & "\export test.csv"), Chr(34), ""), ",", vbTab)
    With ActiveSheet
        .UsedRange.Clear
        .Cells(1).PasteSpecial xlPasteAll
        .UsedRange.Cells.Replace "é", "é"
        .UsedRange.EntireColumn.AutoFit
        .Cells(1).Select
    End With
End Sub

ensuite un removeduplicate et terminé

Cliquez pour agrandir...

dysorthographie à dit:

Bonjour,
Il n'y a rien à faire juste donner le nom et le chemin chemin complet du CSV {ThisWorkbook.Path & "\export test.csv"}

C'est pas grave.

Je suis désolé également !

Cliquez pour agrandir...

Did95 à dit:

re,
Bonjour ,
Merci l'injection ce fait très bien.
j'ai coller le code dans vba et cela fonctionne bien.

Il faut maintenant enlever les doublons par jour, et ne compter qu'un seul passage par jour pour chaque utilisateur

Cliquez pour agrandir...

Hasco à dit:

Re,

Euh ! et le fichier csv source ! Et l'exemple du résultat escompté !
Donnez un peu du vôtre sinon on va pas s'en sortir !

Cliquez pour agrandir...

Hasco à dit:

Re,

Ce que j'essaie de vous dire depuis le début, c'est que vous pouvez faire tout ça par power query sans même si vous le voulez afficher le tableau !

Mais pour vous le montrer il nous faut un exemple de résultat attendu.
Je viens d'ouvrir votre dernier .zip et toujours pas de fichier .csv source !

J'abandonne

Cliquez pour agrandir...