mise en forme de csv

[cupide]

Bonjour,

j'ai un petit (ou gros) problème que je suis incapable de résoudre.

voila, j'ai des fichiers csv qui sont des extraits d'un inventaire, dans un même répertoire.
chacun porte comme nom la date du jour de l'inventaire.csv

jusque la, c'est simple 😉

le 1er fichier va contenir sur une seule colonne AAA, BBB, CCC, DDD et ainsi de suite (400 références environs qui apparaissent ou ddisparaissent avec le temps)
le 2eme fichier AAA,CCC,DDD,FFF
le 3eme fichier BBB,CCC,DDD,GGG

est il possible (et comment surtout) de visualiser (automatiquement?) tous les fichiers sur une seule feuille, sous la forme. naturellement le nombre de fichier change avec le temps



bref, je me comprends, j'espère que vous aussi, sinon j'essayerais d'expliquer mieux.

C'est réalisable facilement? car si c'est compliqué, j'abandonne.

Merci d'avance pour ceux qui me donneront une piste

 

[JNP]

Re : mise en forme de csv

Bonjour Cupide et bienvenue 🙂,
Ce code devrait fonctionner

Sub Liste()
Dim Dossier As Object, Fichier As Object, I As Integer
I = 1
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path)
Application.ScreenUpdating = False
For Each Fichier In Dossier.Files
    If Right(Fichier.Name, 4) = ".csv" Then ' liste les fichier CSV seulement
        Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Fichier.Name
        Range("A:A").Copy ThisWorkbook.Sheets("Feuil1").Cells(1, I)
        ActiveWorkbook.Close
    End If
Next
Application.ScreenUpdating = True
End Sub

à condition que tes CSV soient à côté de ton fichier.
Sinon, il faut remplacer ThisWorkbook.Path par le chemin absolu "C:\...".
Bon courage 😎

 

[cupide]

Re : mise en forme de csv

Bonjour, et merci de ta réponse.

Bon, je viens de tester mais ca marchait pas.
J'ai rajouté une petite incrémentation de I, car ca réécrivait constamment dans le 1ère colonne (merci F8 😉) et maintenant, c'est impeccable.
ca va deja me servir beaucoup dans d'autres projets (je suis vraiment nul en programmation, je débute de ce week end).

Par contre, c'est compliqué de faire en sorte que la ligne 1 ne contienne que la 1ere réference (AAA), la 2 (BBB), la 3 (CCC) ainsi de suite et rien si le fichier ne contient pas la référence?
Désolé si je demande beaucoup, mais je découvre. J'ai déja trouvé d'autres astuces ici pour completer mon projet, mais je ne trouve pas cela.

Merci d'avance

 

[Guest]

Re : mise en forme de csv

Bonjour cupide,
Jnp,

Les fichiers contenus dans le .zip ci-joint doivent être dans le même dossier.

Deux façons de procéder différentes.


A+

 

[JNP]

Re : mise en forme de csv

Re 🙂,

J'ai rajouté une petite incrémentation de I, car ca réécrivait constamment dans le 1ère colonne (merci F8 😉) et maintenant, c'est impeccable.

Euh oui, un petit coup de fatigue 😱...
Bon dimanche 🙂

 

[cupide]

Re : mise en forme de csv

Merci beaucoup a tous les deux.

Je vais pouvoir bien avancer.

Bonne fin de week end