Discussion :

[m-mas]

Bonjour,

j'essai de copier plusieurs fichiers csv en un seul.

Pour simplifier, disons que je veux par code VBA copier un fichier csv dans un autre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'--App : mon fichier source
'--Application : mon fichier destination
 
'--je sélectionne la première ligne
App.Rows("1:1").Select
 
App.Selection.Copy
 
'--coller dans le deuxième fichier
Application.Range("A1").Activate
Application.ActiveSheet.Paste
Application.CutCopyMode = False

Pour simplifier encore, je n'ai copier que la première ligne contenant les titres !!

Le Problème : dans mon fichier destination, tout n'est pas copier !!
dans le fichier source, tous les noms des colonnes sont écrites dans la première cellule séparé par des virgules, dans le fichier destination, je ne trouve même pas la moitiée !!

Est ce que c'est dû à une taille de buffer ou a quelques choses du genre par ce que j'ai passé beaucoup de temps à cherhcer sans résultat !!

Merci de votre aide !

[SfJ5Rpw8]

Dans le premier fichier tous les entêtes sont dans la cellule A1 ? ... lorsque tu colle dans les second fichier ... tous est collé dans A1? ou un "split" auomatique est effectué par excel .. et les entêtes divisés en plusieurs colonnes ?







PS : ... eu je crois que t pas sur le bon forum... ?

[m-mas]

ils sont tous collé dans A1 (tous, en fait ce qui a été copié) !!

PS : ou dois je aller alors c'est du VBA

[SfJ5Rpw8]

bizarre..
et il n'y as vraiment rien dans les celulles adjaçente ... B1 , C1.du fichier destination..?
il y as combien de colonne ?
:

[m-mas]

dans l'original 38 (tous collé dans A1 séparé par des virgules)

dans la copie, il y en a 20 à peu prés !!

oui c'est bizarre

[cafeine]

Hello,

je ne pige pas un truc, un CSV c'est un fichier texte ... alors pourquoi passer par Excel ?
pour fusionner des fichiers ... il suffit d'ouvrir la source en lecture et la destination en écriture ....
ou alors j'ai mal compris la question ...

[m-mas]

tu me donnes des idées !! finalement c'est peut être moi qui a mal compris le problème

en ouvrant le csv, windows l'ouvre par défaut sous Excel, c'est peut être pour cela que j'ai pensé à travailler sous excel

mais les csv sont bien des fichiers texts !!

cependant, on ne veut pas toucher à la base Access, disant qu'il est trés préférable qu'on a un fichier Excel et qu'à l'ouverture, une macro fusionne le tout !! je vais explorer comment en Excel VBA ouvrir des fichiers texts, lire et écrire dans un autre fichier



Merci tous le monde !

[cafeine]

je pense que tu vas y arriver sans encombre soit avec l'objet TextStream soit avec un bon vieux Line Input des familles ...

[m-mas]

je pense que tu vas y arriver sans encombre soit avec l'objet TextStream soit avec un bon vieux Line Input des familles ...

je vous tiendrais au courant !!

[m-mas]

cafeine, je te remerci beaucoup !!

la solution était trés simple et surtout trés éfficace : je choisit mon répertoire qui contient les fichiers csv à concaténer et en résultat j'ai un joli fichier csv qui contient le résultat de tout ça !

tout ceci se déroule sur l'ouverture de mon fichier Excel.

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
Private Sub workbook_open()
Dim CheminIWR As String
Dim NomNewFichier As String
 
CheminIWR = GetDirectory
 
If CheminIWR = "" Then Exit Sub
 
CheminIWR = CheminIWR & "\"
 
NomNewFichier = "concat_" & Month(Now) & "_" & Year(Now) & ".csv"
 
'--rechercher tous les fichiers dans le répertoire cheminIWR
    Set fs = Application.FileSearch
 
    With fs
        .LookIn = CheminIWR
        .Filename = "*"
        .Execute
        For i = 1 To .FoundFiles.Count
            LitDonnee .FoundFiles(i), CheminIWR & NomNewFichier
            Message2 = Message2 & .FoundFiles(i) & vbCrLf
        Next i
    End With
 
Message1 = CheminIWR & NomNewFichier
 
 
UserForm1.Show
End Sub
 
Public Sub AjoutDonnee(strContent As String, strChemFich As String)
     Dim F As Integer
 
     F = FreeFile 
     Open strChemFich For Append As #F 
     Print #F, strContent 
     Close #F
End Sub
 
 Public Sub LitDonnee(strChemFich As String, CheminSave As String)
     Dim F As Integer
     Dim strLigne As String
 
     F = FreeFile '1er numéro libre
     Open strChemFich For Input As #F 
     While Not EOF(F)
          Line Input #F, strLigne 
          '--l'écrire dans le fichier destination
          AjoutDonnee strLigne, CheminSave
     Wend
     Close #F
End Sub

j'ai toujours tendance à chercher midi à 14h

Encore merci pour tous !

[m-mas]

petit problème avec ce code, il ne fonctionne pas avec Excel 97

[cafeine]

.FileSearch ne me semble pas être dispo sous Acc97, essaie un bon vieux Dir() ...

[m-mas]

yes yes cafeine !! pour les curieux voici la version qui marche avec toute version d'Excel

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
Private Sub workbook_open()
Dim CheminIWR As String
Dim NomNewFichier As String
Dim i As Integer
Dim j As Integer
 
CheminIWR = GetDirectory
 
If CheminIWR = "" Then Exit Sub
 
CheminIWR = CheminIWR & "\"
 
NomNewFichier = "concat_" & Month(Now) & "_" & Year(Now) & ".csv"
 
'--rechercher tous les fichiers dans le répertoire cheminIWR
'    Set fs = Application.FileSearch
 
'    With fs
'        .LookIn = CheminIWR
'        .Filename = "*"
'        .Execute
'        For i = 1 To .FoundFiles.Count
'            LitDonnee .FoundFiles(i), CheminIWR & NomNewFichier, i
'            Message2 = Message2 & .FoundFiles(i) & vbCrLf
'        Next i
'    End With
 
    Dim rep As String
 
    rep = Dir(CheminIWR & "*.csv", vbNormal)
    j = 0
    Do While rep <> ""
        rep = Dir
        j = j + 1
    Loop
 
    rep = Dir(CheminIWR & "*.csv", vbNormal)
    i = 1
    Do While rep <> "" And i < j + 1
 
        LitDonnee CheminIWR & rep, CheminIWR & NomNewFichier, i
        Message2 = Message2 & CheminIWR & rep & vbCrLf
        rep = Dir
        i = i + 1
    Loop
 
Message1 = CheminIWR & NomNewFichier
 
 
UserForm1.Show
End Sub

j'ai ajouté une boucle sur le nombre des fichiers par ce que la méthode dir prend en compte le fichier qui vient d'être créé.

j'espère que c'est définitivement résolu