Bonjour,

J'ai mis au point une routine pour lire des données d'un fichier excel afin des les exporter dans un fichier cvs.


Ma routine fonctionne, je voudrais à présent trier le 4ème champs de donnée avant de créer le fichier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
Sep = vbTab ' ";"
   Set Plage = Range(Range("PARAMETRES!Y16").Value & 4 & ":" & Range("PARAMETRES!Y17").Value & Nlig) '1ère ligne à exporter dernière ligne à exporter
      Open CheminFiche For Output As #1
 
 
 
         For Each oL In Plage.Rows
            If oL.Cells(1) = Range("saisie_DED!BQ3").Value Then
                  ' écriture exportée
                    Tmp = ""
                    For Each oC In oL.Cells
                         Tmp = Tmp & CStr(oC.Text) & Sep
                    Next
 
               '  données triées avant création fichier
 
 
 
              '
                 Print #1, Left(Tmp, Len(Tmp) - 1)
 
            End If
         Next
 
 
      Close
   Set Plage = Nothing

Mais je ne vois pas comment ajouter une fonction pour trier les données.

Merci d'avance pour votre aide

Christian