Compiler du CSV vers du XLS

Le
Furion
Bonsoir tout le monde !

Il y a quelques semaines, JB m'avait donné le code suivant permettant de
compiler trois fichiers CSV en un seul.

ChDir ThisWorkbook.Path
Open "classeur1.csv" For Input As #1
Open "classeur5.csv" For Output As #2
'--1er fichier
Do While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Loop
Close #1
'-- 2e fichier
Open "classeur2.csv" For Input As #1
Line Input #1, ligne ' 1ere ligne
Do While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Loop
Close #1, #2


J'ai placé cette macro dans mon classeur excel et j'ai réussi à l'adapter à
mon cas mais je me retrouve aujourd'hui bloqué pour aller plus loin.

En effet, j'aurai besoin de compiler mes 3 fichiers CSV dans une des
feuilles de mon classeur (feuille appelée "temporaire") et non pas dans un
nouveau fichier CSV.

J'ai tout essayé mais impossible de l'adapter.

Est ce que quelqu'un aurait une solution ?

Merci d'avance pour votre précieuse aide.

Bonne soirée
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Benead
Le #5018561
Bonsoir Furion,

Un truc comme cela en ouvrant les fichier en avec WorkBook.Open :

' ******
Sub Test()
Workbooks.Open "D:TempCsv1.csv"
Workbooks.Open "D:TempCsv2.csv"
Workbooks.Open "D:TempCsv3.csv"
With ThisWorkbook.Worksheets("Temporaire")
Workbooks("Csv1.csv").Worksheets(1).UsedRange.Copy .Cells(1, 1)
Workbooks("Csv2.csv").Worksheets(1).UsedRange.Copy .Cells(.UsedRange.Rows.Count + 1, 1)
Workbooks("Csv3.csv").Worksheets(1).UsedRange.Copy .Cells(.UsedRange.Rows.Count + 1, 1)
End With
End Sub
' ******

A+
Benead
XL2000

Furion a écrit:
Bonsoir tout le monde !

Il y a quelques semaines, JB m'avait donné le code suivant permettant de
compiler trois fichiers CSV en un seul.

ChDir ThisWorkbook.Path
Open "classeur1.csv" For Input As #1
Open "classeur5.csv" For Output As #2
'--1er fichier
Do While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Loop
Close #1
'-- 2e fichier
Open "classeur2.csv" For Input As #1
Line Input #1, ligne ' 1ere ligne
Do While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Loop
Close #1, #2


J'ai placé cette macro dans mon classeur excel et j'ai réussi à l'adapter à
mon cas mais je me retrouve aujourd'hui bloqué pour aller plus loin.

En effet, j'aurai besoin de compiler mes 3 fichiers CSV dans une des
feuilles de mon classeur (feuille appelée "temporaire") et non pas dans un
nouveau fichier CSV.

J'ai tout essayé mais impossible de l'adapter.

Est ce que quelqu'un aurait une solution ?

Merci d'avance pour votre précieuse aide.

Bonne soirée



Furion
Le #5055611
Désolé pour le retard mais je pensais qu'on me répondrai plus.

Merci bcp je vais tester ça


Bonsoir Furion,

Un truc comme cela en ouvrant les fichier en avec WorkBook.Open :

' ******
Sub Test()
Workbooks.Open "D:TempCsv1.csv"
Workbooks.Open "D:TempCsv2.csv"
Workbooks.Open "D:TempCsv3.csv"
With ThisWorkbook.Worksheets("Temporaire")
Workbooks("Csv1.csv").Worksheets(1).UsedRange.Copy .Cells(1, 1)
Workbooks("Csv2.csv").Worksheets(1).UsedRange.Copy .Cells(.UsedRange.Rows.Count + 1, 1)
Workbooks("Csv3.csv").Worksheets(1).UsedRange.Copy .Cells(.UsedRange.Rows.Count + 1, 1)
End With
End Sub
' ******

A+
Benead
XL2000

Furion a écrit:
Bonsoir tout le monde !

Il y a quelques semaines, JB m'avait donné le code suivant permettant de
compiler trois fichiers CSV en un seul.

ChDir ThisWorkbook.Path
Open "classeur1.csv" For Input As #1
Open "classeur5.csv" For Output As #2
'--1er fichier
Do While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Loop
Close #1
'-- 2e fichier
Open "classeur2.csv" For Input As #1
Line Input #1, ligne ' 1ere ligne
Do While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Loop
Close #1, #2


J'ai placé cette macro dans mon classeur excel et j'ai réussi à l'adapter à
mon cas mais je me retrouve aujourd'hui bloqué pour aller plus loin.

En effet, j'aurai besoin de compiler mes 3 fichiers CSV dans une des
feuilles de mon classeur (feuille appelée "temporaire") et non pas dans un
nouveau fichier CSV.

J'ai tout essayé mais impossible de l'adapter.

Est ce que quelqu'un aurait une solution ?

Merci d'avance pour votre précieuse aide.

Bonne soirée







Publicité
Poster une réponse
Anonyme