Lecture et traitement de fichiers .csv fermés

cvsm

XLDnaute Nouveau
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).

Cordialement
 

Pièces jointes

  • Classeur1.xlsm
    37.3 KB · Affichages: 55
  • Classeur1.xlsm
    37.3 KB · Affichages: 52
  • Classeur1.xlsm
    37.3 KB · Affichages: 61

Discussions similaires

Statistiques des forums

Discussions
314 033
Messages
2 104 850
Membres
109 190
dernier inscrit
ouidadi