[VBA][CSV]copie d'un fichier csv vers un fichier csv

Version imprimable

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:

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 !

06/12/2005, 23h00
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 ?

:roll: :wink:

PS : ... eu je crois que t pas sur le bon forum... ?
07/12/2005, 07h44
m-mas

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

PS : ou dois je aller alors :lol: c'est du VBA ;)
07/12/2005, 08h30
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 ?
:?:
07/12/2005, 09h02
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 :roll:
07/12/2005, 09h48
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 ...
07/12/2005, 10h54
m-mas

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

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 :oops:

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

:pc:

Merci tous le monde !
07/12/2005, 10h59
cafeine

je pense que tu vas y arriver sans encombre soit avec l'objet TextStream soit avec un bon vieux Line Input des familles ...
07/12/2005, 11h28
m-mas

Citation:

Envoyé par cafeine

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

:ccool:

je vous tiendrais au courant !!

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:

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 :oops:

Encore merci pour tous !

07/12/2005, 16h48
m-mas

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

:evil:
07/12/2005, 17h49
cafeine

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

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

Code:

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 ;)