Discussion :

[Methodrone8]

Bonjour tout le monde,

Je suis confronté à un code récalcitrant, et je me permet de solliciter votre aide.

En effet, un logiciel de calcul que j'utilise a changé de version et produit désormails des sorties en fichiers csv.

J'essaie de paramétrer une macro qui va chercher les résultats dans le CSV sans l'ouvrir.

Voici un exemple de sortie, au format original:

time,annee,resultat
Time1,2017,1000.0
Time2,2018,1001.0
Time3,2019,1002.0
Time4,2020,1003.0
Time5,2021,1004.0

Voici mon cahier des charges
J'aimerais créer une fonction dans Excel , read_result(adresse_fichier as string, annee a integer, variable as string)
Par exemple j'aimerais interroger via ma fonction la variable résultat (notez qu'il peut y avoir plusieurs variables, j'en ai mis qu'une pour simplifier l'exemple) pour l'année 2018.

Voici le code que j'ai fait pour l'instant. J'ai piqué des exemples a droite à gauche sur le net, mais je dois avouer que je ne maitrise absolument pas FSO.

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
29
30
31
Sub test()
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.file
Dim oTxt As Scripting.TextStream
 
workspace = "C:\Users\"
file = "Projection"
extension = ".csv"
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile(workspace & file & extension)
Set oTxt = oFl.OpenAsTextStream(ForReading)
 
 
With oTxt
      Do While Not .AtEndOfStream
            .ReadLine
        If .Line = 4 Then
             Tableau = Split(.ReadLine, ",")
            result = Tableau(3)
        Else
            If .Line > 3 Then
                Exit Do
            End If
        End If
 
    Loop
End With
MsgBox (result)
End Sub

Comme vous pouvez le voir c'est une ébauche. Pour l'instant, tout ce que j'arrive à faire, c'est ouvrir le fichier, le lire jusqu'a la ligne désirée et selectionner la valeur de la troisième colonne

Je trouve cette solution un peu "bricolée".

Pourriez vous m'aider à faire les choses suivantes ?
-Aller pointer directement sur la bonne ligne sans lire tout le fichier à chaque fois?
-Arriver à localiser automatiquement la colonne correspondant à la variable que je veux interroger
-Utiliser eventuellement une autre méthode que FSO?

Je vous remercie par avance pour votre aide!

Cordialement,

Guillaume

[Menhir]

J'essaie de paramétrer une macro qui va chercher les résultats dans le CSV sans l'ouvrir.

Sans l'ouvrir, c'est se compliquer la vie.

Perso, voici comment je procèderai :
Ouverture du fichier avec un Workbboks.OpenText.
Recherche de la colonne avec un Find sur le première ligne.
Recherche de la ligne avec un Find sur le deuxième colonne.
Récupération de la donnée (avec un petit If pour vérifier que les recherches précédentes ont été fructueuses).
Fermeture du fichier.

En 5 ligne de code, c'est plié.
Et le temps perdu à l'ouverture de fichier sera regagné par les Find évitant des boucles.

[Methodrone8]

Sans l'ouvrir, c'est se compliquer la vie.

Perso, voici comment je procèderai :
Ouverture du fichier avec un Workbboks.OpenText.
Recherche de la colonne avec un Find sur le première ligne.
Recherche de la ligne avec un Find sur le deuxième colonne.
Récupération de la donnée (avec un petit If pour vérifier que les recherches précédentes ont été fructueuses).
Fermeture du fichier.

En 5 ligne de code, c'est plié.
Et le temps perdu à l'ouverture de fichier sera regagné par les Find évitant des boucles.

Bonjour,

Merci pour votre réponse,
Malheureusement le CDC ne permet pas d'ouvrir le fichier pour chaque variable.

En situation réelle, je dois utiliser cette fonction dans des projections de plus de 40 ans avec une centaine de variables. Je ne peux pas ouvrir le fichier pour chaque fonction, cela serait trop long.

Grace au lien de dysorthographie, j'ai reussi à faire ce que je voulais :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Function read_result(workspace As String, file As String, extension As String, variable As String, year As Integer) As Double
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.file
Dim oTxt As Scripting.TextStream
 
Dim result As Variant
Dim tab_results()
Dim col_variable As Integer
Dim i, j As Integer
 
 
 
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile(workspace & file & extension)
Set oTxt = oFl.OpenAsTextStream(ForReading)
 
 
'Stockage dans un tableau du contenu du CSV
i = 0
With oTxt
   Do While Not .AtEndOfStream
       ReDim Preserve tab_results(i)
       tab_results(i) = Split(.ReadLine, ",")
        i = i + 1
 
   Loop
End With
 
'Récupération de la colonne de la variable recherchée
  For j = 0 To UBound(tab_results(0), 1)
    If tab_results(0)(j) = variable Then
        col_variable = j
        Exit For
    End If
    Next j
 
 
'Récupération du résultat selon l'année
result = tab_results(year + 1)(col_variable)
 
 
 
read_result = Replace(result, ".", ",")
End Function

Voici mon code, ca fonctionne bien et c'est rapide!

Je suis content d'y être arrivé!

Merci de m'avoir aiguillé

[Menhir]

Malheureusement le CDC ne permet pas d'ouvrir le fichier pour chaque variable.

En situation réelle, je dois utiliser cette fonction dans des projections de plus de 40 ans avec une centaine de variables. Je ne peux pas ouvrir le fichier pour chaque fonction, cela serait trop long.

Tes boucles While et For To risquent d'être tout aussi longue.
Quand tu vas multiplier les fonctions dans ta feuille de calcul, ton fichier va ramer. Excel n'est pas un SGDB même lorsqu'on l'utilise avec des objets de SGDB.
Sans compter que, même s'il s'agit de FSO, chaque présence de cette fonction ouvre individuellement ce fichier.

Il aurait mieux valu utiliser ce principe avec un Sub déclenché par un bouton "mise à jour" plutôt que par des fonctions dynamiques.

[Invité]

https://www.developpez.net/forums/d1.../#post10554891