Exporter des données d'une feuille Excel vers un fichier CSV avec critères

Version imprimable

11/06/2021, 18h00
Muzan93

3 pièce(s) jointe(s)

Exporter des données d'une feuille Excel vers un fichier CSV avec critères

Bonjour j'ai besoin de votre aide,

Je voudrai exporter des données d'un fichier Excel sur un fichier CSV mais avec certaines critères.

Voici le fichier Excel pour que vous compreniez mieux ma démarche :

Pièce jointe 599652

Et voici le fichier CSV :

Pièce jointe 599653

Je voudrais extraire du fichier Excel en fonction de l'alias (contenu dans la colonne B) le contenu des colonnes D et E.

Je vais dire un exemple pour mieux expliquer :
Par exemple si on identifie l'alias "ADBL" qui fait partie du tableau Configuration, on extrait les données des colonnes D et E (respectivement 384175 et 44364) puis on les colle dans le fichier CSV en dessous de leur identifiants "ZzPnAtt & Alias" et "ZzSnAtt & Alias" donc si on suit cet exemple il y aura en dessous de la cellule ZzPnAttADBL la donnée "384175" et en dessous de la cellule ZzSnAttADBL la donnée "44364".

On fait la même chose pour les autres alias, donc on fait une boucle sur tous les alias et on reporte les données des colonnes D et E au bon endroit dans le fichier CSV.

Il y a donc deux tableaux comme vous pouvez le voir un tableau appelé "Configuration" et un autre appelé "Mesures".

Pour le tableau Configuration :

1er cas : si j'identifie sur le CSV : "ZzPnAtt & Alias" alors je colle l'information de la cellule du fichier Excel (ligne : en fct de l'alias lue, colonne : D) sur le fichier CSV à la ligne en-dessous de "ZzPnAtt & Alias".

2e cas : si j'identifie sur le CSV : "ZzSnAtt & Alias" alors je colle l'information de la cellule du fichier Excel (ligne : en fct de l'alias lue, colonne : E) sur le fichier CSV à la ligne en-dessous de "ZzSnAtt & Alias".

Pour le tableau Mesures :

1er cas : si j'identifie sur le CSV : "ZzMin & Alias" alors je colle l'information de la cellule du fichier Excel (ligne : en fct de l'alias lue, colonne : D) sur le fichier CSV à la ligne en-dessous de "ZzMin & Alias".

2e cas : si j'identifie sur le CSV : "ZzMax & Alias" alors je colle l'information de la cellule du fichier Excel (ligne : en fct de l'alias lue, colonne : E) sur le fichier CSV à la ligne en-dessous de "ZzMax & Alias".

J'ai joint le fichier Excel & le fichier CSV pour les plus courageux :)
Pièce jointe 599651

N'hésitez pas à me poser des questions pour éclaircir le sujet.

Je remercie toute personne qui m'aidera.

Bonne journée !

Citation:

Envoyé par Muzan93

En transformant vos tableaux en tableaux structurés et en ajoutant un onglet "Config csv" sur le modèle de votre fichier Csv :

Pièce jointe 599739

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
 
Sub TestConfigCsv()
 
Dim AireConfigAlias As Range, AireConfigPn As Range, AireConfigSn As Range
Dim AireMesuresAlias As Range, AireMesuresMin As Range, AireMesuresMax As Range
Dim AireCsv As Range
Dim I As Integer, J As Integer
 
 
 
    Set AireConfigAlias = Range("TableDesConfigurations[Alias]")
    Set AireConfigPn = Range("TableDesConfigurations[Pn attendu]")
    Set AireConfigSn = Range("TableDesConfigurations[Sn attendu]")
 
    Set AireMesuresAlias = Range("TableDesMesures[Alias]")
    Set AireMesuresMin = Range("TableDesMesures[Valeur Min]")
    Set AireMesuresMax = Range("TableDesMesures[Valeur Max]")
 
 
    Set AireCsv = Sheets("Config csv").Range("B1:BK1")
 
    For I = 1 To AireConfigAlias.Count
        For J = 1 To AireCsv.Count
            If "ZzPnAtt" & AireConfigAlias(I) = AireCsv(J) Then AireCsv(J).Offset(1, 0) = AireConfigPn(I)
            If "ZzSnAtt" & AireConfigAlias(I) = AireCsv(J) Then AireCsv(J).Offset(1, 0) = AireConfigSn(I)
        Next J
    Next I
 
    For I = 1 To AireMesuresAlias.Count
        For J = 1 To AireCsv.Count
            If "ZzMin" & AireMesuresAlias(I) = AireCsv(J) Then AireCsv(J).Offset(1, 0) = AireMesuresMin(I)
            If "ZzMax" & AireMesuresAlias(I) = AireCsv(J) Then AireCsv(J).Offset(1, 0) = AireMesuresMax(I)
        Next J
    Next I
 
    Set AireConfigAlias = Nothing: Set AireConfigPn = Nothing: Set AireConfigSn = Nothing
    Set AireMesuresAlias = Nothing: Set AireMesuresMin = Nothing: Set AireMesuresMax = Nothing
    Set AireCsv = Nothing
 
End Sub

Il vous restera à sauvegarder cet onglet en fichier csv.

13/06/2021, 14h05
Muzan93

Citation:

Envoyé par Eric KERGRESSE

Salut Eric,

Merci beaucoup pour ta réponse et ton aide !

Je vais faire ce que tu m'as dit mais ça a l'air de marcher ;)

Muzan93
13/06/2021, 14h28
Muzan93

Citation:

Envoyé par Eric KERGRESSE

En transformant vos tableaux en tableaux structurés et en ajoutant un onglet "Config csv" sur le modèle de votre fichier Csv :

Il vous restera à sauvegarder cet onglet en fichier csv.

J'ai transformé les deux tableaux en tableaux structurés et j'ai compris leur intérêt, sur ce point pas de soucis.

Mais je n'ai pas compris comment ajouter un onglet "Config csv" sur le modèle de mon fichier Csv.
Je dois ajouter une feuille au nom de "Config csv" ?
Et une autre question comment il va accéder à mon fichier Csv ?
Je dis ça parce que sur le code, je ne vois pas comment il va chercher mon fichier csv et y accéder pour reporter les valeurs dans le fichier csv.

Désolé pour les questions, je veux essayer de comprendre ^^

Muzan93
13/06/2021, 14h33
Invité

Citation:

Envoyé par Muzan93

Il suffit de faire un copier coller des deux lignes du fichier csv sur un nouvel onglet baptisé Config csv.
Ensuite, en utilisant l'enregistreur de macro, il faut copier l'onglet Config csv et le sauvegarder en csv. Dans cette solution on ne met pas à jour un fichier csv, on le crée.
13/06/2021, 15h01
Muzan93

1 pièce(s) jointe(s)

Citation:

Envoyé par Eric KERGRESSE

Il suffit de faire un copier coller des deux lignes du fichier csv sur un nouvel onglet baptisé Config csv.
Ensuite, en utilisant l'enregistreur de macro, il faut copier l'onglet Config csv et le sauvegarder en csv. Dans cette solution on ne met pas à jour un fichier csv, on le crée.

Ah d'accord, j'ai crée un nouvel onglet appelé "Config csv" mais j'ai une erreur en exécutant le programme.

Sur les lignes des tableaux (12 à 18), j'ai pas configuré en tableaux structuré sur "Configuration" et sur "Mesures", je pense que ça vient de là mais je sais pas comment le faire car quand je le met en tableaux structuré en sélectionnant tout le tableau ça me prend pas en compte les en têtes de la ligne 2.

PJ : Pièce jointe 599742