Opérations sur fichiers multiples .csv

**CyberLudo** · 05/07/2016, 18h39

Bonjour,

Je vais essayer d'être clair dans ma demande :
J'ai sur un répertoire plus de 200 fichiers .csv. Ces fichiers sont tous constitués de la même façon :
- La première ligne constituée d'infos sur le fichier
- La deuxième ligne les entêtes de colonnes (12 colonnes utilisées)
- les lignes suivantes sont constituées des données (le nombre de lignes varie entre 2 et 1000)

Mon besoin sur chaque fichier :
1 - Recopier la valeur de la cellule F1 en fin de toutes les lignes constituées des données (dans la colonne M)
2 - ensuite supprimer la ligne 1 (infos sur le fichier)

Une fois cela fait sur chaque fichier, il faut que tous ces fichiers se transforme en 1 seul (avec une seule ligne d'entêtes bien sûr ! lol)

Voilà... jz sais j'en demande beaucoup mais j'y pige queudale et ça fait 3 jours que je cherche mais bon quand on est nul on est nul!!!

En PJ je vous mets un des fichiers mais en format xls car le csv est pas toléré en PJ

**eric4459** · 05/07/2016, 19h05

Bonjour CyberLudo,
Voici quelques liens qui pourront te servir
http://www.developpez.net/forums/d21...r-excel-macro/
Remplace .xls par .csv

Sinon ceci que je considère comme une référence
http://silkyroad.developpez.com/

Bonne lecture, bon courage et bon apprentissage, si tu as des questions n’hésites pas à revenir par ici

Eric

**CyberLudo** · 06/07/2016, 11h39

Je bidouille mais pour l'instant j'arrive juste à "compiler" des fichier en un seul mais pas à faire la copie de valeur sur chaque ligne de fichier...

**eric4459** · 08/07/2016, 12h17

Salut Ludo,
Tu as peut-être trouvé une solution par toi-même, sinon voici ce que j'ai fais et testé.
Il faut que tu crée un sous-dossier contenant tes fichier Csv dans le dossier où tu enregistrera le fichier joint qui contient la macro et que tu nommes ce sous-dossier "Fichier Csv" (Tu peut lui donner un autre nom mais il faut aussi renommer la ligne qui suit dans le code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CheminSrc = CheminDest & "\" & "Fichier Csv"

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub Synthese()
Dim Recap As Worksheet 'Défini la feuille où les données seront copiées
Dim ShCsv As Worksheet 'Défini la feuille du fichier Csv à copier
Dim Orig As Range
Dim Dest As Range
Dim NbLigne1 As Integer
Dim NbLigne2 As Integer
Dim i As Integer
Dim CheminDest As String
Dim CheminSrc As String
Dim Fichier As String
Dim SF As Object 'déclare la variable SF (Système de Fichiers)
Dim D As Object 'déclare la variable D (Dossier)
Dim EF As Object 'déclare la variable EF (Ensemble de Fichiers)
Dim F As Object 'déclare la variable F (Fichier)
Set Recap = ThisWorkbook.Sheets("RECAP") 'Défini la feuille où coller les données
Set Dest = Recap.Range("A2") 'Défini la cellule où coller les données
Application.DisplayAlerts = False 'désactive les fenetres de demande de confirmation avant suppression
 
 
CheminDest = ThisWorkbook.Path ' Chemin de ce fichier - celui qui contient la Macro-
CheminSrc = CheminDest & "\" & "Fichier Csv" 'Chemin du dossier qui contient les fichier Csv (J'ai mis mes fichiers test dans un sous-dossier nommé "Fichier Csv" qui est lui même dans le dossier qui contient mon fichier avec ma macro. Clair??? ;-0 )
 
Set SF = CreateObject("Scripting.FileSystemObject") 'définit le système de fichier SF
Set D = SF.GetFolder(CheminSrc) 'définit le dossiers D
Set EF = D.Files 'définit l'ensembles des fichiers EF du dossier D
 
For Each F In EF 'boucle sour tous les fichiers F de l'ensemble de ficiers EF
 
     Workbooks.Open F 'On ouvre le fichier
     Set ShCsv = Sheets(1) 'On Défini la feuille Source
 
     With ShCsv
        NbLigne1 = .Cells(.Rows.Count, 1).End(xlUp).Row ' Compte le nombre de ligne de la feuille source
     End With
 
     For i = 3 To NbLigne1 ' On boucle sur toutes les lignes
        Range("M" & i) = Range("F1") 'On colle la valeur de la Cellule "F1" en colonne M
     Next i
 
     With Recap
        NbLigne2 = .Cells(.Rows.Count, 1).End(xlUp).Row ' Compte le nombre de ligne de la feuille source
     End With
 
     Range("A3", "M" & NbLigne1).Copy 'On copie les données de la feuille
 
     Dest.Offset(NbLigne2 - 1, 0).PasteSpecial 'On colle les données
 
     ActiveWorkbook.Close True 'ferme et enregistre le classeur F
 
Next F 'prochain fichier de la boucle
 
 
 
 
End Sub

Dis moi si ça te vas
Fichier Recap.xlsm
Eric

**eric4459** · 08/07/2016, 15h21

Rebonjour,
J'avais oublié un détail

La suppression de la première ligne de chaque fichier CSV

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows("1:1").Delete Shift:=xlUp ' On supprime la premiere ligne

J'ai egalement ajouté ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = True

ces deux lignes, placées en début et en fin de code empêchent le "rafraîchissement" de l'écran ce qui fait que tu ne verras plus les fichiers CSV s'ouvrir, copier les données etc... tu resteras sur la feuille que tu vois quand tu lances la macro.

Voici donc le code modifié et le fichier joint

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub Synthese()
Dim Recap As Worksheet 'Défini la feuille où les données seront copiées
Dim ShCsv As Worksheet 'Défini la feuille du fichier Csv à copier
Dim Dest As Range
Dim NbLigne1 As Integer
Dim NbLigne2 As Integer
Dim i As Integer
Dim CheminDest As String
Dim CheminSrc As String
Dim Fichier As String
Dim SF As Object 'déclare la variable SF (Système de Fichiers)
Dim D As Object 'déclare la variable D (Dossier)
Dim EF As Object 'déclare la variable EF (Ensemble de Fichiers)
Dim F As Object 'déclare la variable F (Fichier)
Set Recap = ThisWorkbook.Sheets("RECAP") 'Défini la feuille où coller les données
Set Dest = Recap.Range("A2") 'Défini la cellule où coller les données
Application.DisplayAlerts = False 'désactive les fenetres de demande de confirmation avant suppression
Application.ScreenUpdating = False
 
 
CheminDest = ThisWorkbook.Path ' Chemin de ce fichier - celui qui contient la Macro-
CheminSrc = CheminDest & "\" & "Fichier Csv" 'Cemin du dossier qui contient les fichier Csv (J'ai mis mes fichiers test dans un sous-dossier nommé "Fichier Csv" qui est lui même dans le dossier qui contient mon fichier avec ma macro. Clair??? ;-0 )
 
Set SF = CreateObject("Scripting.FileSystemObject") 'définit le système de fichier SF
Set D = SF.GetFolder(CheminSrc) 'définit le dossiers D
Set EF = D.Files 'définit l'ensembles des fichiers EF du dossier D
 
For Each F In EF 'boucle sour tous les fichiers F de l'ensemble de ficiers EF
 
     Workbooks.Open F 'On ouvre le fichier
     Set ShCsv = Sheets(1) 'On Défini la feuille Source
 
     With ShCsv
        NbLigne1 = .Cells(.Rows.Count, 1).End(xlUp).Row ' Compte le nombre de ligne de la feuille source
     End With
 
     For i = 3 To NbLigne1 ' On boucle sur toutes les lignes
        Range("M" & i) = Range("F1") 'On colle la valeur de la Cellule "F1" en colonne M
     Next i
 
     Rows("1:1").Delete Shift:=xlUp ' On supprime la premiere ligne
 
     With Recap
        NbLigne2 = .Cells(.Rows.Count, 1).End(xlUp).Row ' Compte le nombre de ligne de la feuille source
     End With
 
     Range("A2", "M" & NbLigne1).Copy 'On copie les données de la feuille
 
     Dest.Offset(NbLigne2 - 1, 0).PasteSpecial 'On colle les données
 
     ActiveWorkbook.Close True 'ferme et enregistre le classeur F
 
Next F 'prochain fichier de la boucle
 
 
Application.ScreenUpdating = True
 
End Sub

Fichier Recap.xlsm

Eric

**patricktoulon** · 08/07/2016, 19h38

Bonjour
si j'ai bien compris o
uvrir 200csv pour prendre la f1 et la metrre en "m" sur la derniere ligne vide dispo si j'ai bien compris puis compiler dans un seul classeur
garder la ligne 1(titre/entete de colonne ) bien entendu une seul fois

et bien moi j'utiliserait pas excel
tout du moins je me servirait de
1 open for output as#X (en texte)
2 récupère le split (delà ligne 1 sur le 6 eme ";"
3 ajouterait ";;;;;" et ce que j'ai prélevé en 1 ere ligne a la fin
4 puis avec open mais cette fois ci en append(met ajour le fichier ne le réécrit pas ) mettre cela dans un nouveau fichier .csv

a la fin ouverture du fichier compilé
et voila
je suis certain que c'est plus rapide

**eric4459** · 12/07/2016, 18h40

Salut Patrick,
J'ai séparé le code pour en faire des cellules car je pense que c'est ce que l'initiateur du post souhaitait

Envoyé par CyberLudo

Bonjour,

Je vais essayer d'être clair dans ma demande :
J'ai sur un répertoire plus de 200 fichiers .csv. Ces fichiers sont tous constitués de la même façon :
- La première ligne constituée d'infos sur le fichier
- La deuxième ligne les entêtes de colonnes (12 colonnes utilisées)
- les lignes suivantes sont constituées des données (le nombre de lignes varie entre 2 et 1000)

Sinon, si j'ai bien compris ton code c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

laChaine = Input(LOF(x), #x)

qui récupère toute les données du fichier en une seule fois, c'est bien ça?

Si oui, est-ce que l'on peut également utiliser cette méthode pour un fichier .xls au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("A3", "M" & NbLigne1).Copy 'On copie les données de la feuille

Eric

**patricktoulon** · 12/07/2016, 19h10

oui mais pour faire un copy il faut ouvrir le csv en excel
moi non je l'ouvre pas je le met en mémoire et pour chaine c'est ca !!!

Opérations sur fichiers multiples .csv [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager