Discussion :

[HenrySavoyard]

Bonjour à tous,

Je travaille dans une laiterie et je souhaiterais fusionner des fichiers provenant de mes machines vers un fichier Excel (oui nous sommes informatisé).
Cela me permettrait d'avoir mon volume lait par client sans avoir à rechercher puis ajouter à la main mon volume.

Je souhaite alimenter un tableau via des fichiers CSV via une macro, objectif gain de temps

J'ai 2 fichiers csv avec 6 valeurs dedans. Voici, un exemple d'un fichier : Z8;32;800;42;559;H46

J'aimerai prendre la valeur N°3 soit dans mon exemple 800 et la basculer dans un tableau dans une cellule C12. La cellule C12 n'est pas choisi par hasard, l’identifiant de la ligne doit ce faire par la valeur N°1 Z8.

En gros, la macro ouvrirait le 1er fichier csv, regarde la valeur N°1 soit Z8 recherche dans le fichier Excel, trouve que la valeur Z8 est sur la ligne 12, puis ajoute la valeur N°3 soit 800 dans la colonne C cellule C12.

Merci de votre aide.

[MarcelG]

Bonjour Henry Savoyard, et bienvenu sur ce Forum,

Personnellement, je raisonnerais en sens inverse.
Faire une recherche de chaque valeur Excel dans le fichier ccsv.
Si cet objet Range cherché n'est pas rien alors reporter la valeur de ma cellule décalée de 2 colonnes.

Voir ici l'aide pour la méthode Find.

[Igloobel]

Bonjour,

Et que fais-tu la fois prochaine toujours en C12 si première valeur = Z8 ?

[HenrySavoyard]

Il ne peut pas avoir deux fois une valeur Z identique dans mes csv (c'est un id client)

Pour plus de compréhension, j'ai une colonne A avec tout mes Z1 à Z240.

Si dans mon fichier CSV, j'ai les valeur suivante: Z300;32;800;42;559;H4

La valeur lu est Z300, il faut recherche dans la colonne A la valeur Z300 puis sur cette ligne en colonne C il faut mettre la valeur N°3. (la ligne peut être C24 comme elle pourrait être C52, tout dépends où se situe le Z300).

Pas évident à la lecture.

[HenrySavoyard]

Bonjour Henry Savoyard, et bienvenu sur ce Forum,

Personnellement, je raisonnerais en sens inverse.
Faire une recherche de chaque valeur Excel dans le fichier ccsv.
Si cet objet Range cherché n'est pas rien alors reporter la valeur de ma cellule décalée de 2 colonnes.

Voir ici l'aide pour la méthode Find.

Merci et merci de ta réponse.

Je vais regardé ce que tu me propose

Edit : Après lecture, Range ne peut pas allez fouiller dans les fichiers csv , je suis contrait d'importer le csv dans une feuille avant ?

[Invité]

Bonjour,
Dans tes explications tu parle de la ligne c12 correspond à la douzièmes linges du csv.

Tu ne t'intéresse qu'à C12 où également c1,C13 etc...

Tu parles de deux fichier csv et en le premier que tu traites dans tes explications, le deuxième ?

[HenrySavoyard]

Bonjour,

Le 2 ème provient d'une machine identique. Le fichier csv N°1 de Z1 à Z200 et csv N°2 de Z201 à Z240.

La case C12 s’était pour l'exemple.

La valeur Z8 aurait pu se trouver sur la ligne 20 (précisément en A20 car colonne A), la cellule à remplir aurait été la C20.

J'espère être plus clair.

Edit: je viens de voir un post qui y ressemble où rvtoulon donne une idée. Qu'en pensez vous ?
https://www.developpez.net/forums/d1...chier-csv-vba/

[Invité]

Bonjour,

Code CSV1 :

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

1
2
A;B;C;D;E;F
Z8;32;800;42;559;H46

Code CSV2 :

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

1
2
A;B;C;D;E;F
Z300;32;800;42;559;H4

Code schema.ini :

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

1
2
3
4
[test.csv]
Format=Delimited(;)
[test2.csv]
Format=Delimited(;)

Code Formule Excel :

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

=ChercheCsv(A1)

Code dans un module standard :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public cn As Object
Public Function ChercheCsv(V As String) As String
If TypeName(cn) = "Nothing" Then Set cn = CreateObject("AdoDb.Connection")
If cn.State = False Then cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.Path & "';Extended Properties=""Text;HDR=yes;FMT=Delimited(;)"""
    Sql = "select * from [test#csv]" & vbCrLf
    Sql = Sql & "Union" & vbCrLf
    Sql = Sql & "select * from [test2#csv]" & vbCrLf
    Sql = Sql & "where A='" & Replace(V, "'", "''") & "'" & vbCrLf
 Set rs = cn.Execute(Sql)
 If Not rs.EOF Then
    ChercheCsv = CStr("" & rs("c"))
    rs.Close
    Set rs = Nothing
 End If
End Function

[HenrySavoyard]

Merci dysorthographie pour ce code.

Je vais essayer, penses-tu que cela fonctionne sous Office 2016 et 2019 ?

Juste un détail, je dois donc remplir mes CSV avec A;B;C;D ?
Egalement, je n'avais pas préciser que mes CSV ce présente sur 8 lignes.

Z8;32;800;42;559;H46
Z9;88;570;82;519;H40
Z10;17;650;22;589;H84