MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Livre

TBC

XLDnaute Nouveau
Bonjour tout le monde,

J'ai un problème dans le cadre d'une analyse de données répétitives. En somme, j'ai plusieurs workbooks en format CSV avec des colonnes à titres similaires, mais à nombre de lignes variables. Je n'ai que besoin d'une de ces colonnes (% return) pour laquelle je désire calculer la moyenne, la médiane et les percentils (5%, 25%, 75%, 95%). Le but est d'avoir ces 6 statistiques avec les 2 valeurs extrêmes de la colonnes pour tous les workbooks sélectionnés dans un nouveau workbook de format XLS de préférence (quoique la grande partie du travail n'est pas là). L'idéal serait d'avoir le nom du workbook d'oû proviennent les statistiques en ligne 1 avec les différentes stats dans les lignes suivantes.

(J'ai transformé le format du fichier joint)

Un tout graaand merci pour votre aide, ca me ferait gagner un temps fou :)

Tom
 

Fichiers joints

JCGL

XLDnaute Barbatruc
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour à tous,

Il n'y a pas de colonne %return dans le fichier joint...

A+ à tous
 

TBC

XLDnaute Nouveau
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour,

Oui en effet, je me suis trompé avec %profit.

Merciii
 

JCGL

XLDnaute Barbatruc
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour à tous,

Peux-tu déposer le fichier en *.csv tel que tu le reçois ?

A+ à tous
 

JCGL

XLDnaute Barbatruc
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour à tous,

Le fichier joint à déposer dans le même répertoire que les *.CSV.
Il restera à peaufiner si cela convient.

A+ à tous
 

Fichiers joints

TBC

XLDnaute Nouveau
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour JCGL,

Mercii pour cette macro. Je ne comprends pas très bien. Après avoir placé le fichier dans le bon répertoire, appuyez sur le bouton repertoire ne montre aucun des fichiers .csv . Saurais-tu d'ou le probleme pourrait survenir?

Merci beaucoup pour ton temps et ta solution en tout cas,

Tom
 

JCGL

XLDnaute Barbatruc
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour à tous,

Clique quand même sur Ouvrir...
Et la magie, du VBA, devrait opérer.

A+ à tous
 

TBC

XLDnaute Nouveau
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Rebonjour :),

desole, je n'y arrive toujours pas. Je sais ouvrir le fichier que vous avez mis plus haut, mais après je suis incapable d'ouvrir les csv plus tard.

Encore un grand merci

Tom
 

JCGL

XLDnaute Barbatruc
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour à tous,

Peux-tu essayer avec ce code :
Code:
Option Explicit    'd'après JB sur XLD


Sub ListeFichiers()
    Dim Dossier As String, Ligne As Byte, NF As String
    Range("A2:B65000").ClearContents
    ChDir ActiveWorkbook.Path
    Dossier = ChoixDossier()
    If Dossier = "" Then Exit Sub
    Ligne = 2
    NF = Dir("*.*")
    'With Application
    '    .Calculation = xlCalculationManual
    '    .ScreenUpdating = 0
    'End With
    Do While NF <> "" And Right(NF, 4) = ".csv"
        Cells(Ligne, 1) = NF
        Cells(Ligne, 2) = FileDateTime(NF)
        Workbooks.Open Filename:=ThisWorkbook.Path & "\" & NF
        Columns(1).TextToColumns Range("A1"), , , , , True
        ActiveSheet.Name = "Data"
        Windows("Synthèse JaCaVol.xlsm").Activate
        Ligne = Ligne + 1
        NF = Dir
    Loop
    Windows("Synthèse JaCaVol.xlsm").Activate
    Columns("A:J").AutoFit
    Range("A1").Select
    'With Application
    '    .Calculation = xlCalculationAutomatic
    '    .ScreenUpdating = 1
    'End With
End Sub


Function ChoixDossier()
    If Val(Application.Version) >= 10 Then
        With Application.FileDialog(msoFileDialogOpen)
            .InitialFileName = ActiveWorkbook.Path
            .Show
            If .SelectedItems.Count > 0 Then
                ChoixDossier = .SelectedItems(1)
            Else
                ChoixDossier = ""
            End If
        End With
    Else
        ChoixDossier = InputBox("Répertoire?")
    End If
End Function
A+ à tous
 

TBC

XLDnaute Nouveau
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour,

J'ai essay" avec cette macro. En effet, il est possible de sélectionner les fichiers. Ensuite il me donne le nom du fichier en colonne 1 et la date de création en colonne 2. Les stats ne sont pas calculées par contre.

Merci beaucoup

Tom
 

JCGL

XLDnaute Barbatruc
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour à tous,

Un seul fichier *.CSV doit être sélectionné.

Décompresse le *.zip dans un répertoire et lance le *.XLSM.
J'ai ajouté la fermeture des *.CSV à la fermeture du *.XLSM

A+ à tous
 

Fichiers joints

TBC

XLDnaute Nouveau
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour JCGL,

Désormais, comme avant il est possible de sélectionner les fichiers. En ne sélectionnant qu'un fichier (ou plusieurs), la macro ne fait plus rien.

Merci beaucoup,

Tom
 

JCGL

XLDnaute Barbatruc
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour à tous,

Ce sont bien des *.CSV que tu sélectionnes ?

A+ à tous
 

TBC

XLDnaute Nouveau
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Oui, comme le fichier que j'avais zippé ici plus haut

Mercii

Tom
 

JCGL

XLDnaute Barbatruc
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour à tous,

Le fichier que j'ai déposé fonctionne avec les trois CSV déposés. En tout cas chez moi...
Je ne peux rien de plus pour toi.

A+ à tous
 

TBC

XLDnaute Nouveau
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour,

Ok, je vais encore essayer. Merci beaucoup.
Bonne journée,

Tom
 

TBC

XLDnaute Nouveau
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour JCGL,

En effet, la macro marche parfaitement et avec plusieurs fichiers en même temps.
Merci beaucoup!! :D

Tom
 

JCGL

XLDnaute Barbatruc
Re : MACRO - Calculs similaires dans plusieurs WorkBooks à envoyer dans un nouveau Li

Bonjour à tous,

A la bonne heure !

Lorsqu'un fichier est déposé sur XLD, et ceci vaut pour beaucoup d'entre nous, il est testé.

A+ à tous
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas