Je cherche une possibilité pour compiler des fichiers CSV
(les mettre les uns au-dessous des autres) même si le total
d'enregistrements dépasse les 65536, donc sans ouvrir
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JohnFuss
Bonjour,
essai avec ça :
Dim fso as New FileSystemObject '(référence à Ms Scripting requise) Dim fichierIn1 As TextStream Dim fichierIn2 As TextStream Dim fichierOut As TextStream
Set fichierIn1 = fso.OpenTextFile("c:MonFichier1.csv") Set fichierIn2 = fso.OpenTextFile("c:MonFichier2.csv") Set fichierOut = fso.OpenTextFile("c:MaSynthese.csv", ForWriting, True) Do Until fichierIn1.AtEndOfStream fichierOut.WriteLine fichierIn1.ReadLine Loop Do Until fichierIn2.AtEndOfStream fichierOut.WriteLine fichierIn2.ReadLine Loop fichierIn1.Close fichierIn2.Close fichierOut.Close
Voilà, non testé, sans filet.....
Bon courage.
John
"François" a écrit dans le message de news:
Bonsoir à tous,
Je cherche une possibilité pour compiler des fichiers CSV (les mettre les uns au-dessous des autres) même si le total d'enregistrements dépasse les 65536, donc sans ouvrir
FileCopy ? CopyFile ? autre ?
merci par avance de votre aide François
Bonjour,
essai avec ça :
Dim fso as New FileSystemObject '(référence à Ms Scripting
requise)
Dim fichierIn1 As TextStream
Dim fichierIn2 As TextStream
Dim fichierOut As TextStream
Set fichierIn1 = fso.OpenTextFile("c:MonFichier1.csv")
Set fichierIn2 = fso.OpenTextFile("c:MonFichier2.csv")
Set fichierOut = fso.OpenTextFile("c:MaSynthese.csv",
ForWriting, True)
Do Until fichierIn1.AtEndOfStream
fichierOut.WriteLine fichierIn1.ReadLine
Loop
Do Until fichierIn2.AtEndOfStream
fichierOut.WriteLine fichierIn2.ReadLine
Loop
fichierIn1.Close
fichierIn2.Close
fichierOut.Close
Voilà, non testé, sans filet.....
Bon courage.
John
"François" <NoSpam@wanadoo.fr> a écrit dans le message de news:
urDybJa3GHA.4796@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous,
Je cherche une possibilité pour compiler des fichiers CSV
(les mettre les uns au-dessous des autres) même si le total
d'enregistrements dépasse les 65536, donc sans ouvrir
Dim fso as New FileSystemObject '(référence à Ms Scripting requise) Dim fichierIn1 As TextStream Dim fichierIn2 As TextStream Dim fichierOut As TextStream
Set fichierIn1 = fso.OpenTextFile("c:MonFichier1.csv") Set fichierIn2 = fso.OpenTextFile("c:MonFichier2.csv") Set fichierOut = fso.OpenTextFile("c:MaSynthese.csv", ForWriting, True) Do Until fichierIn1.AtEndOfStream fichierOut.WriteLine fichierIn1.ReadLine Loop Do Until fichierIn2.AtEndOfStream fichierOut.WriteLine fichierIn2.ReadLine Loop fichierIn1.Close fichierIn2.Close fichierOut.Close
Voilà, non testé, sans filet.....
Bon courage.
John
"François" a écrit dans le message de news:
Bonsoir à tous,
Je cherche une possibilité pour compiler des fichiers CSV (les mettre les uns au-dessous des autres) même si le total d'enregistrements dépasse les 65536, donc sans ouvrir
FileCopy ? CopyFile ? autre ?
merci par avance de votre aide François
François
Bonsoir John,
"non testé, sans filet....." ... ki dit ! Je viens de faire un essai : parfait ! Mille mercis :-) Après 2 ans d'absence, je reviens sur ce forum (que tu fréquentais déjà, il me semble) et je suis toujours aussi impressionné par ces compétences incroyables !!
Merci encore François (baba!)
"JohnFuss" a écrit dans le message de news:ef0s0c$j48$
Bonjour,
essai avec ça :
Dim fso as New FileSystemObject '(référence à Ms Scripting requise) Dim fichierIn1 As TextStream Dim fichierIn2 As TextStream Dim fichierOut As TextStream
Set fichierIn1 = fso.OpenTextFile("c:MonFichier1.csv") Set fichierIn2 = fso.OpenTextFile("c:MonFichier2.csv") Set fichierOut = fso.OpenTextFile("c:MaSynthese.csv", ForWriting, True) Do Until fichierIn1.AtEndOfStream fichierOut.WriteLine fichierIn1.ReadLine Loop Do Until fichierIn2.AtEndOfStream fichierOut.WriteLine fichierIn2.ReadLine Loop fichierIn1.Close fichierIn2.Close fichierOut.Close
Voilà, non testé, sans filet.....
Bon courage.
John
"François" a écrit dans le message de news:
Bonsoir à tous,
Je cherche une possibilité pour compiler des fichiers CSV (les mettre les uns au-dessous des autres) même si le total d'enregistrements dépasse les 65536, donc sans ouvrir
FileCopy ? CopyFile ? autre ?
merci par avance de votre aide François
Bonsoir John,
"non testé, sans filet....." ... ki dit !
Je viens de faire un essai : parfait !
Mille mercis :-)
Après 2 ans d'absence, je reviens sur ce forum (que tu fréquentais déjà, il
me semble) et je suis
toujours aussi impressionné par ces compétences incroyables !!
Merci encore
François (baba!)
"JohnFuss" <nospams@please.fr> a écrit dans le message de
news:ef0s0c$j48$1@s1.news.oleane.net...
Bonjour,
essai avec ça :
Dim fso as New FileSystemObject '(référence à Ms Scripting
requise)
Dim fichierIn1 As TextStream
Dim fichierIn2 As TextStream
Dim fichierOut As TextStream
Set fichierIn1 = fso.OpenTextFile("c:MonFichier1.csv")
Set fichierIn2 = fso.OpenTextFile("c:MonFichier2.csv")
Set fichierOut = fso.OpenTextFile("c:MaSynthese.csv",
ForWriting, True)
Do Until fichierIn1.AtEndOfStream
fichierOut.WriteLine fichierIn1.ReadLine
Loop
Do Until fichierIn2.AtEndOfStream
fichierOut.WriteLine fichierIn2.ReadLine
Loop
fichierIn1.Close
fichierIn2.Close
fichierOut.Close
Voilà, non testé, sans filet.....
Bon courage.
John
"François" <NoSpam@wanadoo.fr> a écrit dans le message de news:
urDybJa3GHA.4796@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous,
Je cherche une possibilité pour compiler des fichiers CSV
(les mettre les uns au-dessous des autres) même si le total
d'enregistrements dépasse les 65536, donc sans ouvrir
"non testé, sans filet....." ... ki dit ! Je viens de faire un essai : parfait ! Mille mercis :-) Après 2 ans d'absence, je reviens sur ce forum (que tu fréquentais déjà, il me semble) et je suis toujours aussi impressionné par ces compétences incroyables !!
Merci encore François (baba!)
"JohnFuss" a écrit dans le message de news:ef0s0c$j48$
Bonjour,
essai avec ça :
Dim fso as New FileSystemObject '(référence à Ms Scripting requise) Dim fichierIn1 As TextStream Dim fichierIn2 As TextStream Dim fichierOut As TextStream
Set fichierIn1 = fso.OpenTextFile("c:MonFichier1.csv") Set fichierIn2 = fso.OpenTextFile("c:MonFichier2.csv") Set fichierOut = fso.OpenTextFile("c:MaSynthese.csv", ForWriting, True) Do Until fichierIn1.AtEndOfStream fichierOut.WriteLine fichierIn1.ReadLine Loop Do Until fichierIn2.AtEndOfStream fichierOut.WriteLine fichierIn2.ReadLine Loop fichierIn1.Close fichierIn2.Close fichierOut.Close
Voilà, non testé, sans filet.....
Bon courage.
John
"François" a écrit dans le message de news:
Bonsoir à tous,
Je cherche une possibilité pour compiler des fichiers CSV (les mettre les uns au-dessous des autres) même si le total d'enregistrements dépasse les 65536, donc sans ouvrir
FileCopy ? CopyFile ? autre ?
merci par avance de votre aide François
JohnFuss
Effectivement depuis 3-4 ans je suis sur mpfe, par contre mes interventions se font rares car j'essai de passer à autre chose côté boulot, mais quand j'ai des questions, j'ai des réponses pour les autres....
Salut François
John
"François" a écrit dans le message de news: %23qIRg%
Bonsoir John,
"non testé, sans filet....." ... ki dit ! Je viens de faire un essai : parfait ! Mille mercis :-) Après 2 ans d'absence, je reviens sur ce forum (que tu fréquentais déjà, il me semble) et je suis toujours aussi impressionné par ces compétences incroyables !!
Merci encore François (baba!)
"JohnFuss" a écrit dans le message de news:ef0s0c$j48$
Bonjour,
essai avec ça :
Dim fso as New FileSystemObject '(référence à Ms Scripting requise) Dim fichierIn1 As TextStream Dim fichierIn2 As TextStream Dim fichierOut As TextStream
Set fichierIn1 = fso.OpenTextFile("c:MonFichier1.csv") Set fichierIn2 = fso.OpenTextFile("c:MonFichier2.csv") Set fichierOut = fso.OpenTextFile("c:MaSynthese.csv", ForWriting, True) Do Until fichierIn1.AtEndOfStream fichierOut.WriteLine fichierIn1.ReadLine Loop Do Until fichierIn2.AtEndOfStream fichierOut.WriteLine fichierIn2.ReadLine Loop fichierIn1.Close fichierIn2.Close fichierOut.Close
Voilà, non testé, sans filet.....
Bon courage.
John
"François" a écrit dans le message de news:
Bonsoir à tous,
Je cherche une possibilité pour compiler des fichiers CSV (les mettre les uns au-dessous des autres) même si le total d'enregistrements dépasse les 65536, donc sans ouvrir
FileCopy ? CopyFile ? autre ?
merci par avance de votre aide François
Effectivement depuis 3-4 ans je suis sur mpfe, par contre mes interventions
se font rares car j'essai de passer à autre chose côté boulot, mais quand
j'ai des questions, j'ai des réponses pour les autres....
Salut François
John
"François" <NoSpam@wanadoo.fr> a écrit dans le message de news:
%23qIRg%23n3GHA.2196@TK2MSFTNGP06.phx.gbl...
Bonsoir John,
"non testé, sans filet....." ... ki dit !
Je viens de faire un essai : parfait !
Mille mercis :-)
Après 2 ans d'absence, je reviens sur ce forum (que tu fréquentais déjà,
il
me semble) et je suis
toujours aussi impressionné par ces compétences incroyables !!
Merci encore
François (baba!)
"JohnFuss" <nospams@please.fr> a écrit dans le message de
news:ef0s0c$j48$1@s1.news.oleane.net...
Bonjour,
essai avec ça :
Dim fso as New FileSystemObject '(référence à Ms Scripting
requise)
Dim fichierIn1 As TextStream
Dim fichierIn2 As TextStream
Dim fichierOut As TextStream
Set fichierIn1 = fso.OpenTextFile("c:MonFichier1.csv")
Set fichierIn2 = fso.OpenTextFile("c:MonFichier2.csv")
Set fichierOut = fso.OpenTextFile("c:MaSynthese.csv",
ForWriting, True)
Do Until fichierIn1.AtEndOfStream
fichierOut.WriteLine fichierIn1.ReadLine
Loop
Do Until fichierIn2.AtEndOfStream
fichierOut.WriteLine fichierIn2.ReadLine
Loop
fichierIn1.Close
fichierIn2.Close
fichierOut.Close
Voilà, non testé, sans filet.....
Bon courage.
John
"François" <NoSpam@wanadoo.fr> a écrit dans le message de news:
urDybJa3GHA.4796@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous,
Je cherche une possibilité pour compiler des fichiers CSV
(les mettre les uns au-dessous des autres) même si le total
d'enregistrements dépasse les 65536, donc sans ouvrir
Effectivement depuis 3-4 ans je suis sur mpfe, par contre mes interventions se font rares car j'essai de passer à autre chose côté boulot, mais quand j'ai des questions, j'ai des réponses pour les autres....
Salut François
John
"François" a écrit dans le message de news: %23qIRg%
Bonsoir John,
"non testé, sans filet....." ... ki dit ! Je viens de faire un essai : parfait ! Mille mercis :-) Après 2 ans d'absence, je reviens sur ce forum (que tu fréquentais déjà, il me semble) et je suis toujours aussi impressionné par ces compétences incroyables !!
Merci encore François (baba!)
"JohnFuss" a écrit dans le message de news:ef0s0c$j48$
Bonjour,
essai avec ça :
Dim fso as New FileSystemObject '(référence à Ms Scripting requise) Dim fichierIn1 As TextStream Dim fichierIn2 As TextStream Dim fichierOut As TextStream
Set fichierIn1 = fso.OpenTextFile("c:MonFichier1.csv") Set fichierIn2 = fso.OpenTextFile("c:MonFichier2.csv") Set fichierOut = fso.OpenTextFile("c:MaSynthese.csv", ForWriting, True) Do Until fichierIn1.AtEndOfStream fichierOut.WriteLine fichierIn1.ReadLine Loop Do Until fichierIn2.AtEndOfStream fichierOut.WriteLine fichierIn2.ReadLine Loop fichierIn1.Close fichierIn2.Close fichierOut.Close
Voilà, non testé, sans filet.....
Bon courage.
John
"François" a écrit dans le message de news:
Bonsoir à tous,
Je cherche une possibilité pour compiler des fichiers CSV (les mettre les uns au-dessous des autres) même si le total d'enregistrements dépasse les 65536, donc sans ouvrir
