Discussion :

[AndréPe]

Bonjour,
Par la cmd DOS

Code DOS :

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

C:\COPY /V FT.csv /A + F(0).csv /A FT.csv /A

j'ajouter le fichier F(0).csv au fichier FT.csv.
Or j'ai 12 fichiers semblables à concaténer, soit 12 lignes à écrire dans la commande DOS.
C'est évidemment faisable, mais je souhaiterais pouvoir convertir ces commandes DOS en code VBA pour fonctionner dans mon programme Access dont proviennent ces 12 fichiers.
Comment faire ?
A noter que le fichiers CSV se comportent comme des fichiers txt.
Merci de votre aide

[hyperion13]

Salut
Un début de solution ici peut-être.

[AndréPe]

Merci de ta suggestion.
Le code dans le lien que tu indiques est le même que celui que j'utilise (y compris le /C) et n'a pas plus de succès.
Donc, je recherche toujours comment convertir en code Access les commandes DOS.

[loufab]

Bonjour,

Une concaténation avec "scripting.filesystemobject" par exemple :

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
Function concatFile()
Dim obj As Object
Dim rep As String
Dim contenu_A As Variant
Dim contenu_B As Variant
rep = CurrentProject.Path & "\"
Set obj = CreateObject("scripting.filesystemobject")
 
contenu_A = obj.opentextfile(rep & "fichierE.txt").readall
contenu_B = obj.opentextfile(rep & "fichierL.txt").readall
obj.createtextfile(rep & "fichierE.txt").write contenu_A & vbCrLf & contenu_B
 
Set obj = Nothing
 
End Function

Cordialement,

[tee_grandbois]

bonjour,

Merci de ta suggestion.
Le code dans le lien que tu indiques est le même que celui que j'utilise (y compris le /C) et n'a pas plus de succès.
Donc, je recherche toujours comment convertir en code Access les commandes DOS.

en fait la solution que te propose hyperion13 se trouve un peu plus bas:



maintenant, tu as 2 solutions à disposition

[hyperion13]

bonjour,
en fait la solution que te propose hyperion13 se trouve un peu plus bas:

Salut tee_grandbois,
J'avais pris soin de tester par la suite la proc qui au demeurant fonctionne parfaitement avec 12 fichiers à la queue leu-leu !

[AndréPe]

Merci loufab, tee_grandbois et hyperion13.
Les deux derniers messages sont arrivés alors que je testais avec succès la suggestion de loufab qui n'acceptait pas les fichiers vides.
J'ai donc remplacé la première opération de concaténation par une copie du premier fichier dans le fichier résultat.
Je vais maintenant tester les autres suggestions
Je regrette de pas être parvenu à utiliser la commande shell qui est moins compliquée.
Merci encore une fois à vous tous.
Bonne soirée
Cordialement