Bonjour,
Je cherche à extraire des données de fichier excel en .csv fermés. Ces fichiers sont contenues dans différents répertoires en fonction de leur date d'émission:
I:\**\2012\02.2012\1\2012-02-01 : données du 1 février 2012 série 1
I:\**\2012\02.2012\2\2012-02-01 : données du 1 février 2012 série 2
Une fois ces données extraites je cherche à les renter dans une sorte de tableau récapitulatif.
En m'inspirant de différents codes je suis arrivé à :
-Après conversion des .csv en .xls d'un dossier entier, lire une cellule, puis à afficher la valeur de celle-ci dans une nouvelle feuille.
... Ce que je ne suis pas arrivé à faire:
-Lire une colonne puis effectuer un calcul et inscrire le résultat dans une nouvelle feuille, en adaptant ce code:
Code:
Set Myplage = Range(Sheets(1).[Y29], Sheets(1).[Y65536].End(xlUp))
Somme = Application.SumIf(Myplage, ">0")
Nombre = Application.CountIf(Myplage, ">0")
Ir = (Somme * 60) / (Nombre * 5)
-Généraliser la méthode: Après conversion des .cvs en .xls, remplir automatiquement le nouveau tableau avec les données des fichiers .csv répartis dans les différents répertoires. (poura être réalisé à l'aide d'un bouton).