Excel et les fichiers de données

Travailler avec des fichiers texte

Bien qu'il puisse largement le faire, Excel n'a pas été conçu pour stocker de grandes masses de données. Pour cela, les logiciels les plus adaptés sont les gestionnaires de bases de données comme, par exemple, Access.

Mais les gestionnaires de base de données les plus performants ne sont généralement pas gratuits. Heureusement, Excel propose une alternative en permettant de travailler sur des fichiers, notamment des fichiers texte.

Les fichiers texte sont des fichiers contenant uniquement des caractères imprimables et des retours à la ligne. Leur format est reconnu universellement si bien qu'ils présentent l'immense avantage de pouvoir être utilisés par de très nombreux logiciels.

L'instruction Open

Il est possible de créer des fichiers texte avec Visual Basic grâce à l'instruction Open. Deux écritures sont possibles :

Open fichier for Output as #n

Open fichier for Append as #n

Dans les deux cas, fichier désigne un nom de fichier avec son adresse, par exemple C:\Dossier\essai.txt, et n est un entier compris entre 1 et 511 inclus qui servira à désigner le fichier.

Si un fichier a été ouvert en mode Output ou Append, il est possible de lui ajouter des données.

Avec l'option Output, si le fichier existe déjà, son contenu est effacé ; avec l'option Append, les nouveaux enregistrements viennent s'ajouter aux enregistrements existants.

Après avoir utilisé un fichier texte, il faut impérativement le fermer avec l'instruction Close #n, où n est l'entier utilisé pour son ouverture.

Pour pouvoir lire les données d'un fichier texte, il faut d'abord l'ouvrir avec l'instruction Open en mode Input :

Open fichier for Input as #n

L'instruction Print

La méthode la plus simple pour écrire dans un fichier texte est d'utiliser l'instruction Print. Elle permet d'écrire une ligne de texte dans un fichier ouvert par l'instruction Open en mode Output ou Append. Elle s'écrit ainsi :

Print #n, Texte

Où n désigne l'entier utilisé pour ouvrir le fichier et Texte la ligne de texte que l'on désire entrer dans le fichier.

Un exemple de programme est le suivant :

Sub Textes()
Open "C:\Essais\FichierTexte.txt" For Output As #1
Print #1, "Bonjour."
Print #1, "Nous allons travailler sur les fichiers texte."
Close #1
End Sub

Pour vérifier le résultat, le mieux est d'ouvrir dans le dossier C:\Essais le fichier FichierTexte.txt avec le bloc-notes de Windows. Nous obtenons :

Bonjour.
Nous allons travailler sur les fichiers texte.

L'instruction Line Input

Pour lire les données du fichier FichierTexte.txt avec Visual Basic, nous devons d'abord l'ouvrir en mode Input puis nous pouvons utiliser l'instruction Line Input. Cette instruction permet de lire une ligne du fichier, sa syntaxe est la suivante :

Line Input #n, VarTexte

Où n désigne l'entier utilisé pour ouvrir le fichier et VarTexte la variable qui recueillera la ligne de texte du fichier. Un exemple de programme est le suivant :

Sub Lire()
Dim enr As String
Set f = ThisWorkbook.Sheets(1)
Open "C:\Essais\FichierTexte.txt" For Input As #1
Line Input #1, enr
f.Range("A1") = enr
Line Input #1, enr
f.Range("A2") = enr
Close #1
End Sub

Nous obtenons :

Dans ce programme, la première instruction Line Input lit la première ligne du fichier et la place dans la variable enr. Le curseur se déplace à la deuxième ligne qui est donc lue par la deuxième instruction Line Input.

Ce programme nous a permis de lire les deux premières lignes du fichier mais, en général, nous voulons lire tout le fichier et nous ne savons pas combien il possède de lignes. Nous allons donc le lire avec une boucle comme dans le programme suivant :

Sub Lire()
Dim enr As String
Set f = ThisWorkbook.Sheets(1)
Open "C:\Essais\FichierTexte.txt" For Input As #1
i = 1
Do While Not EOF(1)
     Line Input #1, enr
     f.Cells(i, 1) = enr
     i = i + 1
Loop
Close #1
End Sub

Ce programme utilise la fonction EOF() qui prend la valeur TRUE lorsqu'on arrive à la dernière ligne.

Enregistrements de longueur constante

Nous avons vu comment stocker des lignes de texte dans un fichier mais nous pouvons aller plus loin et stocker des données structurées. Supposons, par exemple, que nous voulions enregistrer les ventes de différents produits réalisées par deux vendeurs comme dans le tableau suivant :

Nous pouvons créer des enregistrements de longueur constante comme dans le programme suivant :

Sub EcrireConst()
Dim produit As String * 20
Dim vendeur As String * 20
Dim ventes As String * 10
Dim enr As String * 50
Set f = ThisWorkbook.Sheets(1)
Open "C:\Essais\FichierTexte.txt" For Output As #1
For i = 1 To 8
     produit = f.Cells(i, 1)
     vendeur = f.Cells(i, 2)
     ventes = f.Cells(i, 3)
     enr = produit & vendeur & ventes
     Print #1, enr
Next i
Close #1
End Sub

Comme nous avons défini les trois variables comme étant des textes de longueur fixée, la longueur de l'enregistrement enr est égale à 20 + 20 + 10 = 50.

Nous pouvons vérifier avec le bloc-notes que le fichier a bien été saisi mais nous pouvons aussi le lire avec un programme Visual Basic.

Lire le fichier texte avec Visual Basic

Comme tous les enregistrements ont la même longueur, nous pouvons pour chaque ligne lire séparément le produit, le vendeur et la vente, par exemple avec le programme suivant :

Sub LireConst()
Dim produit As String * 20
Dim vendeur As String * 20
Dim ventes As String * 10
Dim enr As String * 50
Set f = ThisWorkbook.Sheets(1)
Open "C:\Essais\FichierTexte.txt" For Input As #1
i = 20
Do While Not EOF(1)
     Line Input #1, enr
     produit = Mid(enr, 1, 20)
     vendeur = Mid(enr, 21, 20)
     ventes = Mid(enr, 41, 10)
     ventes = Replace(ventes, ",", ".")
     va = Val(ventes)
     f.Cells(i, 1) = produit
     f.Cells(i, 2) = vendeur
     f.Cells(i, 3) = va
     i = i + 1
Loop
Close #1
End Sub

Dans ce programme, nous avons utilisé la fonction Mid(Texte, Debut, Longueur) qui extrait de Texte une chaîne de caractères à partir de la position Debut et sur une longueur égale à Longueur.

Travailler avec des fichiers CSV

Les fichiers CSV sont des fichiers texte contenant des données séparées par une virgule ou un point-virgule. La virgule correspond au format américain puisque le séparateur décimal est le point. En France, le séparateur est le point-virgule car la virgule est utilisée comme séparateur décimal.

L'acronyme CSV provient du format américain et signifie Comma Separator Values. Les fichiers CSV permettent de stocker des données qui pourront être utilisées aussi bien par Excel que par n'importe quel gestionnaire de bases de données. Par rapport aux fichiers à enregistrements de longueur constante, ils présentent généralement l'avantage d'être plus compacts et plus faciles à utiliser.

Créer des fichiers CSV

Pour créer des fichiers CSV avec Visual Basic, nous pouvons procéder comme nous l'avons fait précédemment pour créer un fichier texte, il suffit simplement d'introduire le séparateur entre les données. Par exemple, si nous reprenons notre tableau des ventes, nous pouvons créer un fichier CSV utilisant le point-virgule comme séparateur avec le programme suivant :

Sub EcrireCSV()
Dim produit As String
Dim vendeur As String
Dim ventes As Double
Dim enr As String
Set f = ThisWorkbook.Sheets(1)
Open "C:\Essais\FichierCSV.csv" For Output As #1
For i = 1 To 8
     produit = f.Cells(i, 1)
     vendeur = f.Cells(i, 2)
     ventes = f.Cells(i, 3)
     enr = produit & ";" & vendeur & ";" & ventes
     Print #1, enr
Next i
Close #1
End Sub

Lire des fichiers CSV avec Visual Basic

Nous pouvons vérifier avec le bloc-notes que nous avons obtenu le bon résultat. Nous pouvons également lire le fichier grâce à un programme Visual Basic comme celui-ci qui recopie les données dans la feuille Feuil1 du classeur.

Sub LireCSV()
Dim enr As String
Dim Texte As Variant
Set f = ThisWorkbook.Sheets("Feuil1")
Open "C:\Essais\FichierCSV.csv" For Input As #1
li = 1
Do While Not EOF(1)
     Line Input #1, enr
     Texte = Split(enr, ";")
     For i = LBound(Texte) To UBound(Texte)
          f.Cells(li, i + 1) = Texte(i)
     Next i
     li = li + 1
Loop
Close #1
End Sub

Nous avons utilisé ici la fonction Split qui découpe une chaîne de caractères en plusieurs segments grâce à un séparateur et la transforme en une matrice dont les éléments correspondent aux segments. Dans notre exemple, le séparateur est le point-virgule car nous avons supposé que le fichier CSV utilisait ce séparateur. Les fonctions LBound et UBound donnent respectivement le premier et le dernier indice de la matrice.

Fichiers CSV à délimiteur virgule

Les fichiers CSV au format américain sont souvent plus faciles à utiliser avec Visual Basic que les fichiers avec le point-virgule comme séparateur. Ils disposent, en effet, d'instructions plus performantes pour la lecture et l'écriture, c'est-à-dire les instructions Write # et Input # qui permettent de travailler directement avec les variables des enregistrements.

Par exemple, nous pouvons écrire un fichier CSV des ventes au format américain grâce au programme suivant :

Sub EcrireVirgule()
Dim produit As String
Dim vendeur As String
Dim ventes As Double
Set f = ThisWorkbook.Sheets("Feuil1")
Open "C:\Essais\VirguleCSV.csv" For Output As #1
For i = 1 To 8
     produit = f.Cells(i, 1)
     vendeur = f.Cells(i, 2)
     ventes = f.Cells(i, 3)
     Write #1, produit, vendeur, ventes
Next i
Close #1
End Sub

En ouvrant le fichier VirguleCSV.csv, nous constatons que les textes apparaissent entourés de guillemets et que les nombres sont affichés avec le point comme séparateur décimal.

Nous pouvons également le lire grâce au programme suivant :

Sub LireVirgule()
Dim produit As String
Dim vendeur As String
Dim ventes As Double
Set f = ThisWorkbook.Sheets("Feuil3")
Open "C:\Essais\VirguleCSV.csv" For Input As #1
i = 1
Do While Not EOF(1)
     Input #1, produit, vendeur, ventes
     f.Cells(i, 1) = produit
     f.Cells(i, 2) = vendeur
     f.Cells(i, 3) = ventes
     i = i + 1
Loop
Close #1
End Sub

Nous constatons que, même s'ils sont stockés avec le point comme séparateur décimal, les nombres s'affichent dans la feuille de calcul avec des virgules comme séparateur décimal.

Regrouper des fichiers CSV

Il est souvent intéressant, lorsqu'on travaille avec des données issues de plusieurs sources, de pouvoir regrouper en un seul plusieurs fichiers CSV. C'est particulièrement facile lorsque les fichiers ont la même structure, c'est-à-dire le même nombre de colonnes. Supposons, par exemple, que nous cherchions à regrouper les trois fichiers Fich1.csv, Fich2.csv et Fich3.csv structurés de la même manière.

Deux cas sont à considérer selon que la première ligne des fichiers contient ou non les titres des colonnes. Le second cas étant le plus simple, nous commencerons par lui.

Le programme ci-dessous permet de créer un fichier Fichtout.csv qui regroupe les trois fichiers CSV qui ne contiennent pas les titres des colonnes en première ligne.

Sub Agreger()
Dim enr as String
Open "C:\Essais\Fichtout.csv" For Output As #4
Open "C:\Essais\Fich1.csv" For Input As #1
Open "C:\Essais\Fich2.csv" For Input As #2
Open "C:\Essais\Fich3.csv" For Input As #3
For i=1 to 3
     Do while Not EOF(i)
         Line Input #i, enr
         Print #4, enr
     Loop
     Close #i
Next i
Close #4
End Sub

Si les fichiers contiennent en première ligne les titres des colonnes, il faut commencer par introduire une ligne de titres dans le fichier Fichtout.csv puis, pour les trois autres fichiers, lire la première ligne sans la copier dans le fichier Fichtout.csv. C'est que montre le programme suivant :

Sub Agreger()
Dim enr as String
Open "C:\Essais\Fichtout.csv" For Output As #4
Open "C:\Essais\Fich1.csv" For Input As #1
Open "C:\Essais\Fich2.csv" For Input As #2
Open "C:\Essais\Fich3.csv" For Input As #3
Print #4, "Produit;Vendeur;Ventes"
For i=1 to 3
    Line Input #i, enr
     Do while Not EOF(i)
         Line Input #i, enr
         Print #4, enr
     Loop
     Close #i
Next i
Close #4
End Sub

Sélectionner l'ensemble des fichiers d'un dossier

La fonction Dir

On peut aussi vouloir regrouper tous les fichiers CSV contenus dans un dossier, par exemple le dossier C:\FichiersCSV.

Pour cela nous allons utiliser la fonction Dir de VisualBasic. Pour sa première utilisation la fonction Dir doit être utilisée avec un argument précisant le chemin d'accès au dossier considéré, elle renvoie alors le nom du premier fichier se trouvant dans ce dossier. Ensuite, la fonction Dir utilisée sans argument permet de lire le fichier suivant. Par exemple :

Dir("C:\FichiersCSV")
Dir

La première ligne de ce programme renvoie le nom du premier fichier, la deuxième ligne renvoie le nom du deuxième fichier.

La procédure suivante permet de regrouper les fichiers CSV contenus dans le même dossier en supposant qu'ils ont la même structure et qu'ils n'ont pas de titres en première ligne. Le programme suivant réalise le regroupement :

Sub Agreger()
Dim enr as String
Rep = "C:\Essai"
Dossier = "C:\FichiersCSV\"
fichier = Dir(Dossier)
Open Rep & "\Fichtout.csv" For Output As #1
i = 2
Do While fichier <> ""
     If Right(fichier, 4) = ".csv" Then
         fic = Dossier & fichier
         Open fic for input as #i
         Do while Not EOF(i)
             Line Input #i, enr
             Print #1, enr
         Loop
         Close#i
         i = i + 1
     End If
     fichier = Dir
Loop
Close #1
End Sub

Dans ce programme, nous avons utilisé utilisé Dir(Dossier) qui renvoie le nom du premier fichier contenu dans le dossier Dossier puis, à la fin de la boucle, Dir contient le nom du fichier suivant.

La propriété Path

Dans les programmes précédents, nous avons utilisé des adresses de fichiers telles que nous pouvons les trouver dans l'explorateur de fichiers Windows mais cela peut être un problème si nous voulons utiliser nos programmes sur un autre ordinateur puisque les adresses peuvent être différentes. Aussi, il est souvent intéressant d'utiliser la propriété Path qui permet de récupérer l'adresse du dossier contenant le fichier Excel qui exécute le programme. Par exemple, si le fichier Excel est dans le dossier C:\Essai :

rep=ThisWorkbooK.Path

rep est égal à C:\Essai. Dans notre programme précédent, si le fichier Excel se trouvait dans le dossier C:\FichiersCSV, nous aurions pu écrire :

Dossier=ThisWorkBook.Path & "\"

Cependant, lorsque le fichier Excel se trouve dans un dossier de OneDrive, la propriété Path renvoie une adresse inutilisable directement par Visual Basic car il s'agit d'une adresse Web, par exemple :

https://d.docs.live.net/f1c16b085h4a9z15/FichiersCSV

On voit que le dossier contenant le fichier Excel est le dossier FichiersCSV de OneDrive qui a dans l'explorateur de fichiers l'adresse suivante :

C:\Users\franc\OneDrive\FichiersCSV

Pour pouvoir utiliser la propriété Path, il suffit de transformer la première adresse en la seconde et, pour cela, nous pouvons utiliser la fonction Environ("OneDrive") qui renvoie C:\Users\franc\OneDrive. Le programme suivant nous permet donc de récupérer l'adresse du dossier contenant le fichier Excel dans tous les cas :

Rep = ThisWorkbook.Path
If Left(Rep, 4) = "http" Then
    onedrive = Environ("OneDrive")
    texte = Split(Rep, "/")
    Rep = onedrive
    For i = 4 To UBound(texte)
       Rep = Rep & "\" & texte(i)
    Next i
End If

Approche multidimensionnelle avec des fichiers CSV

Il est tout à fait possible d'utiliser des fichiers CSV dans le cadre d'une approche multidimensionnelle comme celle que nous avons présentée pour les bases de données. Pour cela il suffit de structurer les fichiers CSV en hypercubes, c'est-à-dire en fichiers ne comportant qu'une seule variable numérique.

Nous supposerons que nous disposons des statistiques de ventes et d'achats provenant des entreprises et nous voulons en déduire les opérations de comptabilité nationale que sont la production, la consommation intermédiaire (CI) et la valeur ajoutée (VA). Pour cela, nous disposons d'une table de statistiques située sur la feuille Données du classeur où nous écrirons notre programme. Ces statistiques se présentent de la manière suivante :

Nous disposons également d'une table de passage (très simplifiée) permettant de passer des variables des statistiques d'entreprises aux opérations de la comptabilité nationale ainsi que nous l'avons montré au chapitre sur l'approche multidimensionnelle. Cette table est située sur la feuille TablePac de notre classeur Excel. Elle se présente de la manière suivante :

Pour commencer, nous devons stocker les données de ces deux tables dans des fichiers CSV structurés en hypercubes.

Le tableau des statistiques présente la population des entreprises considérée selon deux dimensions, c'est-à-dire deux points de vue, qui sont les activités et les variables. Les données seront stockées dans le fichier FichDonnees.csv dont la structure est donnée par la première ligne, c'est-à-dire :

"Activité;Variable;Valeur"

Le champ Variable n'existe pas dans le premier tableau mais il correspond à la dimension de l'hypercube dont les éléments sont Production et CI.

Le programme de création du premier hypercube se présente ainsi :

Sub creerHypercube1()
Dim Donnees As Variant
rep = ThisWorkbook.Path
FichDonnees = rep & "\FichDonnees.csv"
Open FichDonnees For Output As #1
Print #1, "Activité; Variable; Valeur"
Set f = ThisWorkbook.Sheets("Données")
Donnees = f.Range("A1").CurrentRegion
For i = LBound(Donnees, 1) + 1 To UBound(Donnees, 1)
    Activite = Donnees(i, 1)
    For j = 2 To UBound(Donnees, 2)
       Variable = Donnees(1, j)
       Valeur = Donnees(i, j)
       If Valeur <> 0 Then Print #1, Activite & ";" & Variable & ";" & Valeur
    Next j
Next i
Close #1
End Sub

Dans ce programme LBound(Donnees,1) représente le plus petit indice de la première dimension (correspondant aux lignes) de la matrice Donnees. Comme celle-ci représente une plage de cellules, elle possède 2 dimensions qui commencent avec l'indice 1. LBound(Donnees,2) représente le plus petit indice de la deuxième dimension, c'est-à-dire celle des colonnes. Le programme donne le fichier CSV suivant :

La table de passage possède deux dimensions, les variables de la statistique d'entreprises et les opérations de la comptabilité nationale, elle sera stockée dans le fichier FichPac.csv de structure :

"Opération;Variable;ValPac"

Là encore, le champ Opération n'existe pas dans la table de passage mais il correspond à la dimension de l'hypercube dont les éléments sont Production, CI, VA. Le champ Variable est le même que celui utilisé dans le fichier des activités et c'est lui qui nous permettra de faire le lien entre les deux hypercubes.

Le programme de création du fichier de la table de passage aux comptes nationaux se présente ainsi :

Sub creerHypercube2()
Set f = ThisWorkbook.Sheets("TablePac")
rep = ThisWorkbook.Path
FichPac = rep & "\FichPac.csv"
Open FichPac For Output As #1
Print #1, "Opération;Variable;ValPac"
Dim TablePac As Variant
TablePac = f.Range("A1").CurrentRegion
For j = 2 To UBound(TablePac, 2)
    Operation = TablePac(1, j)
    For i = 2 To UBound(TablePac, 1)
       Variable = TablePac(i, 1)
       ValPac = TablePac(i, j)
       If ValPac <> 0 Then Print #1, Operation & ";" & Variable & ";" & ValPac
    Next i
Next j
Close #1
End Sub

Le fichier CSV créé est le suivant :

Le programme suivant va maintenant générer à partir des deux fichiers précédents le fichier FichCN.csv qui contient à la fois les opérations de la comptabilité nationale et les variables des statistiques. Sa structure est :

"Activite;Operation;Variable;Valeur"

Le programme se présente ainsi :

Sub creerHypercube3()
rep = ThisWorkbook.Path
FichCN = rep & "\FichCN.csv"
FichDonnees = rep & "\FichDonnees.csv"
FichPac = rep & "\FichPac.csv"
Open FichCN For Output As #1
Print #1, "Activité;Opération;Variable;Valeur"
Open FichPac For Input As #2
Line Input #2, enr2
Do While Not EOF(2)
    Line Input #2, enr2
    texte2 = Split(enr2, ";")
    operation2 = texte2(0)
    variable2 = texte2(1)
    valpac2 = texte2(2)
    Open FichDonnees For Input As #3
    Line Input #3, enr3
    Do While Not EOF(3)
        Line Input #3, enr3
        texte3 = Split(enr3, ";")
        activite3 = texte3(0)
        variable3 = texte3(1)
        valeur3 = texte3(2)
        If variable2 = variable3 And valeur3 <> 0 Then
            Print #1, activite3 & ";" & operation2 & ";" & variable3 & ";" & valeur3 * valpac2
        End If
    Loop
    Close #3
Loop
Close #1, #2
End Sub

Le fichier obtenu est le suivant :

Le fichier FichCN.csv peut être lu dans un tableau croisé dynamique qui permettra une grande variété de présentations. Par exemple :

Renommer, supprimer et modifier des fichiers

Il peut être utile de renommer et de supprimer des fichiers. On utilise pour cela les instructions Name As et Kill.

Par exemple, supposons que nous voulions multiplier par 2 toutes les ventes dans le fichier FichierCSV.csv. Nous ne pouvons pas le faire directement et nous allons donc créer un fichier temporaire Temp.csv.

Nous allons lire le fichier FichierCSV.csv, extraire les ventes de chaque enregistrement, les multiplier par 2, recréer un nouvel enregistrement que nous enverrons dans le fichier Temp.csv. Nous détruirons ensuite le fichier FichierCSV.csv et renommerons le fichier Temp.csv en FichierCSV.csv. Le programme pour cela sera le suivant :

Sub DoublerVentes()
Dim enr As String
Dim Texte As Variant
Open "C:\Essais\FichierCSV.csv" For Input As #1
Open "C:\Essais\Temp.csv" For Output As #2
Do While Not EOF(1)
     Line Input #1, enr
     Texte = Split(enr, ";")
     Print #2, Texte(0) & ";" & Texte(1) & ";" & 2 * Texte(2)
Loop
Close #1
Close #2
Kill "C:\Essais\FichierCSV.csv"
Name "C:\Essais\Temp.csv" As "C:\Essais\FichierCSV.csv"
End Sub

Nous pouvons vérifier avec le bloc-notes que les ventes ont bien été doublées dans le fichier FichierCSV.csv.

Nous pouvons utiliser la même méthode pour modifier un seul enregistrement. Par exemple, on peut fixer à 5000 la valeur des ventes de robes de Dupond avec le programme suivant :

Sub ModifVentes()
Dim enr As String
Dim Texte As Variant
Open "C:\Essais\FichierCSV.csv" For Input As #1
Open "C:\Essais\Temp.csv" For Output As #2
Do While Not EOF(1)
     Line Input #1, enr
     Texte = Split(enr, ";")
     If Texte(0) = "Robes" And Texte(1) = "Dupond" Then Texte(2) = 5000
     Print #2, Texte(0) & ";" & Texte(1) & ";" & Texte(2)
Loop
Close #1
Close #2
Kill "C:\Essais\FichierCSV.csv"
Name "C:\Essais\Temp.csv" As "C:\Essais\FichierCSV.csv"
End Sub

On peut également supprimer un enregistrement, par exemple celui des robes de Dupond, en remplaçant dans le programme précédent la boucle par :

Do While Not EOF(1)
     Line Input #1, enr
     Texte = Split(enr, ";")
     If Not (Texte(0) = "Robes" And Texte(1) = "Dupond") Then
         Print #2, Texte(0) & ";" & Texte(1) & ";" & Texte(2)
     End If
Loop

Pour des fichiers de taille moyenne, cette procédure est généralement rapide, pour de très gros fichiers il est généralement préférable de les décomposer en plusieurs fichiers qui seront regroupés au moment de l'analyse. Dans notre exemple, il serait possible d'avoir un fichier par client ou par produit.

Les fichiers à accès direct

Les fichiers texte, y compris les fichiers CSV, sont de fichiers séquentiels, c'est-à-dire que tous les enregistrements sont placés les uns à la suite des autres et qu'il n'est pas possible d'accéder à un enregistrement sans lire tous ceux qui le précèdent. Lorsque les fichiers sont volumineux, cela implique qu'il peut être long d'accéder à un enregistrement particulier.

Aussi, lorsqu'il est important de pouvoir accéder rapidement à un enregistrement particulier, il est souvent préférable d'utiliser des fichiers à accès direct.

Dans un fichier à accès direct, chaque enregistrement possède un numéro et il est possible de le lire directement en l'appelant par son numéro. Tous les enregistrements doivent avoir la même longueur.

Ouverture d'un fichier à accès direct

Un fichier accès direct s'ouvre comme un fichier texte en utilisant l'instruction Open mais en utilisant l'option Random :

Open fich For Random As #n Len = Longueur

Où fich désigne le nom complet du fichier, n un nombre compris entre 1 et 511 et Longueur la longueur de chaque enregistrement qui doit être calculée à partir de la structure des enregistrements.

Un fichier à accès direct ouvert de cette manière pourra être utilisé à la fois pour la lecture et l'écriture.

Comme les fichiers texte, un fichier à accès direct doit être fermé après son utilisation par l'instruction Close #n, où n est le numéro utilisé pour l'ouverture du fichier.

Ecrire dans un fichier à accès direct

Pour écrire des données dans un fichier à accès direct, il faut tout d'abord décrire la structure des enregistrements puis indiquer leur longueur. Ensuite, il faut définir l'enregistrement et lui attribuer un numéro.

Pour décrire la structure des enregistrements, il faut utiliser l'instruction Type. Cette instruction doit être placée au tout début du module où se situent les programmes et elle est valable pour l'ensemble des programmes. Dans un programme associé à un contrôle ActiveX, il faut toutefois préciser l'option Private. Un exemple de définition est la suivante :

Private Type enreg
jour As Date
prod As String * 12
vers As String * 1
nvers As Long
ere(1 To 25, 1 To 7) As Double
End Type

Dans le programme utilisé pour écrire un enregistrement, nous devons d'abord le déclarer par l'instruction Dim. Par exemple :

Dim unERE As enreg

Pour écrire un enregistrement, il faut utiliser la fonction Put. Sa syntaxe est la suivante :

Put #n, num, unEnreg

Où n désigne le numéro du fichier à accès direct, num le numéro de l'enregistrement et unEnreg la variable contenant les données à saisir.

Reprenons notre exemple précédent des ventes en le présentant différemment, pour changer. Les données sont les suivantes :

Le programme suivant crée un fichier à accès direct où chaque produit correspond à un enregistrement :

Type enreg
produit As String * 20
ventes(1 To 2) As Double
End Type
-------------------------------------------------------------------
Sub EcrireAccesDirect()
Dim unProduit As enreg
Set f = ThisWorkbook.Sheets("Données")
Open "C:\Essais\FichierDirect" For Random As #1 Len = Len(unProduit)
For i = 1 To 4
     With unProduit
         .produit = f.Cells(i + 1, 2)
         .ventes(1) = f.Cells(i + 1, 3)
         .ventes(2) = f.Cells(i + 1, 4)
     End With
     Put #1, i, unProduit
Next i
Close #1
End Sub

Si l'on ouvre le fichier FichierDirect avec le Bloc-notes nous ne pouvons lire que les produits car ce n'est pas un fichier texte.

Lecture d'un enregistrement d'un fichier direct

Pour lire un enregistrement spécifique d'un fichier à accès direct, nous devons utiliser la commande Get dont la syntaxe est la suivante :

Get #n, num, unEnreg

Où n est l'entier correspondant au fichier ouvert, num le numéro de l'enregistrement et unEnreg la variable de type correspondant aux enregistrements qui recevra l'enregistrement numéro num.

Par exemple, le programme suivant lit le troisième enregistrement correspondant aux pantalons :

Sub LireAccesDirect()
Dim unProduit As enreg
Set f = ThisWorkbook.Sheets("Données")
Open "C:\Essais\FichierDirect" For Random As #1 Len = Len(unProduit)
Get #1, 3, unProduit
With unProduit
     f.Cells(10, 2) = .produit
     f.Cells(10, 3) = .ventes(1)
     f.Cells(10, 4) = .ventes(2)
End With
Close #1
End Sub

Auteur : Francis Malherbe