COPY FILE (Concaténation de fichiers en un seul) Résolu

Question

Bonjour,
 Je voudrais savoir si quelqu'un saurait comment concat&#233;ner plusieurs fichiers en un seul en vba.
J'ai trouv&#233; une solution mais elle est tres restrictive au niveau du nombre de caractere pour le pattern, exemple:

Celle ci marche
Shell("Command.com /c COPY c:\az*.* c:\res.txt")

Mais le code suivant ne marche plus:
Shell("Command.com /c COPY c:\azerty*.* c:\res.txt")
car apparemment je peux pas depasser les 5 caracteres.

Yaurait il une fonction equivalente en vba mais sans restriction de longueur de caracteres?

Merci.

PCPT · Accepted Answer

salut,
le probl&#232;me, c'est que je suis pas du tout VBA moi...

le fait qu'il ne te concat&#232;ne pas tous les fichiers, &#231;&#224; peut &#234;tre normal (surtout avec ton exemple de chemin)
tu ne va pas forc&#233;ment pouvoir copier un fichier syst&#232;me prot&#233;g&#233; par exemple. il faut penser aux droits, formats, etc....

"COPY" a pour but de copier r&#233;ellement une source vers une destination
mais pourquoi ne pas adapter ce genre de routine :

tu r&#233;pertories tous les fichiers de ton dossier, et un a un, tu les ajouter dans ton fichier text

dir(...) jusqu'&#224; ce que dir retourne ""

Dim Contenu As String, i As Integer, FF As Integer
MyName = Dir(MyPath & "*.txt")
MyPath = App.Path & "	est" 'ton chemin
i = 0


Do While MyName <> ""   ' Commence la boucle.
    Contenu = ""
    FF = FreeFile
    Open MyPath & MyName For Input As #FF
        Contenu = Input(LOF(FF), 1)
    Close #FF
    DoEvents
    
    FF = FreeFile
    Open App.Path & "\sauve.txt" For Append As #FF
       Print #FF, Contenu
    Close #FF
    DoEvents


   MyName = Dir ' Extrait l'entr&#233;e suivante.
   i = i + 1
Loop
MsgBox "Fin : " & i & " fichier(s) trait&#233;(s)"

l&#224; &#231;&#224; fonctionne, mais je n'ai pris que les fichiers txt.
sinon, tu dois ouvrir les fichiers en binary 

PCPT

PCPT · Answer

slt
as-tu essay&#233; ceci?

Shell("Command.com /c COPY c:\aze~1*.* c:\res.txt")
'pour 1 2 3 4  .... selon l'ordre alphab&#233;tique....

PCPT

overpower · Answer

Non, apparemment &#231;a ne marche toujours pas.
En plus du probl&#232;me, j'ai un truc assez bizarre. Lorsque j'ecris l'expression avec 3 caracteres comme ceci aze*.*  il ne copie que kelkes fichiers, pas tous, et lorsque j'utilise que 2 caracteres comme ceci az*.* il me concatene tous les fichiers du repertoire. Je ne comprends vraiment pas le m&#233;canisme de cette commande. &#231;a marche tres bien avec un bat mais avec la commande shell sous vba ya bcp de problemes.
Pouvez vous m'eclaircir sur ce sujet? merci infiniment.

overpower · Answer

je test avec ta m&#233;thode et je te dis de suite apr&#232;s et sinon merci pour tes r&#233;ponses rapides et claires ^^

overpower · Answer

&#231;a marche nikel, merci infiniment ^^

COPY FILE (Concaténation de fichiers en un seul)

5 réponses

Discussions similaires