1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
Sub Macro1()
Dim FolderName As String, FName As String
Dim Wbk As Workbook
Application.ScreenUpdating = False
FolderName = "C:\Users\Desktop\Dossier\"
Workbooks.Add 'le classeur crée se nomme classeur3 qui va acceuillir les grandeurs...
'...moyenne , ecart type de chaque fichiers
FName = Dir(FolderName & "*.csv")
Do While Len(FName)
Set Wbk = Workbooks.Open(FolderName & FName)
With Wbk
With .Worksheets(1)
'Calcul des grandeur au niveau du fichier ouvert et se trouvant dans Dossier
.D1 = ECARTYPE.STANDARD("A:A")
.D2 = ECARTYPE.STANDARD("B:B")
.D3 = ECARTYPE.STANDARD("C:C")
.D4 = MOYENNE("A:A")
.D5 = MOYENNE("B:B")
.D6 = MOYENNE("C:C")
.D7 = Min("A:A")
.D8 = Min("B:B")
.D9 = Min("C:C")
.D10 = Max("A:A")
.D11 = Max("B:B")
.D12 = Max("C:C")
Classeur3.Range("A1:L1").Value = Array("ET1", "ET2", "ET3", "MY1", "MY2", "MY3", "MIN1", "MIN2", "MIN3", "MAX1", "MAX2", "MAX3")
'Le fichier resultat nommé classeur3 aura pour premiere ligne
'Le nom de chaque grandeur relativement à la colonne concernée
'ET1 pour ecart type de la colonne1
'La deuxieme ligne pour la valeur des grandeurs
'pour les colonne du fichier ouvert et se trouvant dans Dossier
'La troisieme ligne concernera le deuxieme fichier du "Dossier" et
'ainsi de suite
'Mais je n'ai pas su programmer ce raisonnement
Classeur3.Range("A2:L2").Value=Array(.D1,.D2,.D3,.D4,.D5,.D6,.D7,.D8,.D9,.D10,.D11,.D12)
End With
.Close False 'ferme le fichier contenu dans Dossier sans enregistrer
End With
Set Wbk = Nothing
FName = Dir 'Passe au prochain fichier du repertoire "Dossier" pour...
'Calculer les ecart type, moyenne etc... relativement à ce fichier
'et les enregistrer dans le classeur crée en début de programme
Loop
End Sub
' |
Partager