Récupérer dans un seul fichier excel les données de plusieur fichiers CSV

[idamien]

Bonjours à tous.

Mes connaissances de base d'excel ne me suffisent pas à résoudre mon problème et j'ai besoin de votre aide.

La situation est la suivante:

• Je possède un appareil de mesure de lumière que me permet d’acquérir multiples données dans un fichier csv.
• Je fais plusieurs acquisitions d'une même source de lumière à différente puissance ce qui me créé X fichiers csv différents dans un dossier

Je souhaiterais importer dans la colonne A toutes les valeurs des positions "B6" des touts les csv de mon dossier,
dans une autre colonne, toutes les valeurs des positions "B7" des mêmes fichiers... et ainsi de suite.

Idéalement je voudrais pouvoir sélectionner les fichiers csv à lire depuis un userforms ou au moins lire touts les fichiers d'un dossier par "BrowseForFolder"

Merci d'avance pour votre aide.

 

[Lone-wolf]

Re : Récupérer dans un seul fichier excel les données de plusieur fichiers CSV

Bonjour idamien et bienvenue sur le Forum

Moi je ne vois que les données en colonne A ???

Et qu'est-ce que tu entends par toutes les valeurs des positions "B6" - toutes les valeurs des positions "B7" ???


A+

 

[Marc L]

Bonjour !

J'ai bien les données dans plusieurs colonnes
mais cela demande effectivement une explication claire & exhaustive !
Et puis deux fichiers .csv sources accompagnés d'un classeur résultat rempli selon ces .csv
lèveraient de facto toute ambiguïté …

​

 

[idamien]

Re : Récupérer dans un seul fichier excel les données de plusieur fichiers CSV

@ Lone-wolf
Salut,
En fait il faut, dans une nouvelle page excel, "ajouter des données à partir du texte" en précisant"," comme caractère de séparation et il crée les colonnes.

@ Marl L
Salut,
Voici un zip avec un exemple de 2 mesures faites et une représentation du tableau que je souhaiterais avoir après importations des données.

Merci pour vos aides

 

[Marc L]

idamien,

faut-il tout importer (CRI + Spectral Data) ?

​

 

[idamien]

Re : Récupérer dans un seul fichier excel les données de plusieur fichiers CSV

@Marc L,

Idéalement oui pour les lignes CRI
pas nécessaire pour spectral data

 

[Marc L]

Dernière précision : PC ou MAC ?

​

 

[idamien]

Re : Récupérer dans un seul fichier excel les données de plusieur fichiers CSV

Ce sera utilisé sur PC

 

[Marc L]

Une p'tite démonstration à la romaine, du temps de la grandeur de Rome !

Code à coller dans le module de la feuille de calculs regroupant les mesures :

​

Sub Demo1()
    ChDrive ThisWorkbook.Path:  ChDir ThisWorkbook.Path
    CSV = Application.GetOpenFilename("Fichiers csv ,*.csv", , _
          "    Sélection des fichiers de mesures :", , True)
    If Not IsArray(CSV) Then Exit Sub
    D$ = Left$(CSV(1), InStrRev(CSV(1), "\"))
    ReDim VA(UBound(CSV), 27)
    Me.UsedRange.Clear
With CreateObject("ADODB.Stream")
                    .Charset = "UTF-8"
    For N% = 1 To UBound(CSV)
                    .Open
                    .LoadFromFile CSV(N)
        SPQ = Split(.ReadText, vbCrLf)
                    .Close
        If UBound(SPQ) > 30 Then
          VA(N, 0) = Split(Replace(CSV(N), D, ""), ".")(0)
            For R% = 5 To 31
                                      SP = Split(SPQ(R), ",")
              If N = 1 Then VA(0, R - 4) = SP(0)
                            VA(N, R - 4) = SP(1)
            Next
        End If
    Next
End With
    With Cells(1).Resize(UBound(VA) + 1, 28)
        .Value = VA
        .Columns.AutoFit
    End With
End Sub

Sélection multiple de fichiers possible via la touche Ctrl ou Shift (Maj) …

_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
Je suis Paris, Charlie, …
​

 

[Roland_M]

Re : Récupérer dans un seul fichier excel les données de plusieur fichiers CSV

Bonsoir à tous,

Marc j'aime bien ton humour !

mais juste une petite chose, ici Me me cause une erreur ce sera pas plutôt ActiveSheet !?
'Me.UsedRange.Clear
ActiveSheet.UsedRange.Clear

et ici c'est plutôt comme ceci:
CSV = Application.GetOpenFilename("Fichiers csv(*.csv),*.csv", , "Sélection des fichiers de mesures :", , True)

 

[Marc L]

Re : Récupérer dans un seul fichier excel les données de plusieur fichiers CSV

ici Me me cause une erreur ce sera pas plutôt ActiveSheet !?

Oui pour ceux ne lisant pas la consigne pourtant colorée :

​

Code à coller dans le module de la feuille de calculs regroupant les mesures

J'ai édité mon code pour retirer la parenthèse restée inutilement mais non bloquante,
merci et bonne soirée !

​

 

[Roland_M]

Re : Récupérer dans un seul fichier excel les données de plusieur fichiers CSV

re

ok Marc ! autant pour moi ! (ou: au temps pour moi, je vous laisse choisir)

 

[Marc L]

Alors oui c'est « autant » dans le sens commun …

Mais si on se réfère à l'époque de la grandeur de Rome, « au temps » va bien !



​

 

[idamien]

Re : Récupérer dans un seul fichier excel les données de plusieur fichiers CSV

Oui pour ceux ne lisant pas la consigne pourtant colorée :

​

J'ai édité mon code pour retirer la parenthèse restée inutilement mais non bloquante,
merci et bonne soirée !

​

Alors pour cette partie là je ne suis pas sûr d'avoir tout compris...
Par contre cette macro fonctionne parfaitement et je vous en remercie, cela va m'être d'une grande aide.

 

[idamien]

Re : Récupérer dans un seul fichier excel les données de plusieur fichiers CSV

Je viens de m'apercevoir qu'il me faudrait aussi l'information comprise en "B5" (Digital/film)
Serait-il possible de l'ajouter?

J'ai également voulu tester d'ajouter les données "spectral data" (Pour essai personnel) jusqu'à la ligne 114
mais il me semble qu'il y ait un conflit lorsqu'on arrive sur une ligne vide...

Elle ne me sont pas utiles aujourd'hui mais j'aurais voulu comprendre comment les ajouter par la suite si besoin