Exporter des données depuis Excel vers un fichier texte, VBA

Exporter des données depuis Excel vers un fichier texte, VBA

Voici une explication détaillée du code VBA permettant d’exporter des données depuis Excel vers un fichier texte, avec toutes les étapes bien expliquées.
Objectif :
Ce code VBA permet d’exporter les données d’une feuille Excel dans un fichier texte (au format CSV ou avec un autre délimiteur). Le code crée une macro qui sauvegarde les données dans un fichier texte, et je vais détailler chaque partie du processus.
Étapes du Code :
1. Définir le classeur et la feuille de travail : Nous allons travailler avec le classeur actif et la feuille de calcul active. Cela permettra d’exporter les données de la feuille de calcul sur laquelle vous travaillez au moment où vous exécutez la macro.
2. Ouvrir un fichier texte en mode écriture : Nous utiliserons l’instruction Open pour créer et ouvrir un fichier texte dans lequel les données seront sauvegardées. Le fichier sera ouvert en mode écriture, ce qui effacera son contenu existant si le fichier existe déjà.
3. Boucler à travers les données : Nous allons parcourir les cellules de la feuille active, et pour chaque cellule, ajouter la valeur au fichier texte. Les valeurs seront séparées par un délimiteur (comme une virgule pour un format CSV, ou une tabulation pour un format tabulé).
4. Fermer le fichier texte : Après avoir écrit toutes les données dans le fichier texte, nous utiliserons l’instruction Close pour fermer le fichier et sauvegarder les modifications.
Explication du Code :

Sub ExportDataToTextFile()
    ' Déclarer les variables nécessaires
    Dim ws As Worksheet ' La feuille de travail à exporter
    Dim filePath As String ' Le chemin où le fichier texte sera sauvegardé
    Dim cell As Range ' Variable pour boucler à travers les cellules
    Dim rowNum As Long ' Pour suivre le numéro de ligne pendant l'écriture dans le fichier texte
    Dim colNum As Long ' Pour suivre le numéro de colonne pendant l'écriture dans le fichier texte
    Dim textFile As Integer ' Le gestionnaire de fichier pour le fichier texte
    ' Définir la feuille active
    Set ws = ActiveSheet
    ' Spécifier le chemin pour sauvegarder le fichier texte (vous pouvez ajuster ce chemin selon vos besoins)
    filePath = Application.GetSaveAsFilename( _
        InitialFileName:="ExportedData.txt", _
        FileFilter:="Text Files (*.txt), *.txt", _
        Title:="Enregistrer sous")
    ' Vérifier si l'utilisateur a annulé la boîte de dialogue de sauvegarde
    If filePath = "False" Then Exit Sub ' Si l'utilisateur annule, on quitte la procédure
    ' Ouvrir le fichier texte en mode écriture (1 = Pour écrire)
    textFile = FreeFile ' Obtenir un numéro de fichier libre
    Open filePath For Output As textFile ' Ouvrir le fichier
    ' Boucler à travers chaque ligne de la feuille de travail (vous pouvez définir une plage spécifique ici si nécessaire)
    For rowNum = 1 To ws.UsedRange.Rows.Count ' Boucle à travers chaque ligne de la plage utilisée de la feuille de travail
        Dim rowData As String ' Une variable de type chaîne pour contenir les données de la ligne actuelle
        ' Boucler à travers chaque colonne de la ligne actuelle
        For colNum = 1 To ws.UsedRange.Columns.Count
            ' Récupérer la valeur de la cellule et l'ajouter à rowData
            rowData = rowData & ws.Cells(rowNum, colNum).Value
            ' Si ce n'est pas la dernière colonne, ajouter une virgule comme séparateur
            If colNum < ws.UsedRange.Columns.Count Then
                rowData = rowData & "," ' Pour un format CSV
            End If
        Next colNum
        ' Écrire rowData dans le fichier texte (ajouter un saut de ligne)
        Print #textFile, rowData
    Next rowNum
    ' Fermer le fichier texte après avoir écrit toutes les données
    Close textFile
    ' Informer l'utilisateur que l'exportation est terminée
    MsgBox "Les données ont été exportées avec succès vers " & filePath, vbInformation, "Exportation terminée"
End Sub

Explication détaillée du Code :
1. Définir les Variables :
2. Dim ws As Worksheet ‘ La feuille de travail à exporter
3. Dim filePath As String ‘ Le chemin où le fichier texte sera sauvegardé
4. Dim cell As Range ‘ Variable pour boucler à travers les cellules
5. Dim rowNum As Long ‘ Pour suivre le numéro de ligne pendant l’écriture dans le fichier texte
6. Dim colNum As Long ‘ Pour suivre le numéro de colonne pendant l’écriture dans le fichier texte
7. Dim textFile As Integer ‘ Le gestionnaire de fichier pour le fichier texte

• ws : Représente la feuille de travail dont nous allons exporter les données (ici, la feuille active).
• filePath : Contient le chemin complet du fichier texte.
• cell : Utilisé pour boucler à travers les cellules de la feuille de travail.
• rowNum et colNum : Permettent de suivre la ligne et la colonne que nous sommes en train de traiter pour l’exportation.
• textFile : Un gestionnaire pour le fichier texte ouvert.

8. Définir la Feuille Active et Obtenir le Chemin du Fichier :

Set ws = ActiveSheet
filePath = Application.GetSaveAsFilename( _
    InitialFileName:="ExportedData.txt", _
    FileFilter:="Text Files (*.txt), *.txt", _
    Title:="Enregistrer sous")

• ws est défini sur la feuille active (celle qui est actuellement ouverte).
• filePath utilise la méthode GetSaveAsFilename pour demander à l’utilisateur où il souhaite sauvegarder le fichier texte. Si l’utilisateur annule, la procédure s’arrête.

9. Ouvrir le Fichier Texte :

textFile = FreeFile ' Obtenir un numéro de fichier libre
Open filePath For Output As textFile ' Ouvrir le fichier pour écrire

• FreeFile récupère un numéro de fichier libre pour l’ouvrir en toute sécurité.
• Open filePath For Output As textFile ouvre le fichier pour écrire les données dedans.

10. Boucler à Travers les Données :

For rowNum = 1 To ws.UsedRange.Rows.Count ' Boucle à travers chaque ligne
    Dim rowData As String ' Une variable pour contenir la ligne actuelle
    For colNum = 1 To ws.UsedRange.Columns.Count
        rowData = rowData & ws.Cells(rowNum, colNum).Value
        If colNum < ws.UsedRange.Columns.Count Then
            rowData = rowData & "," ' Ajouter une virgule comme séparateur
        End If
    Next colNum
    Print #textFile, rowData ' Écrire les données dans le fichier texte
Next rowNum

• UsedRange permet de s’assurer que seules les lignes et colonnes avec des données sont prises en compte.
• La boucle externe (For rowNum) parcourt chaque ligne de la feuille active.
• La boucle interne (For colNum) parcourt chaque colonne de la ligne courante.
• Les valeurs des cellules sont concaténées dans la variable rowData, et une virgule est ajoutée entre les valeurs des colonnes pour un format CSV.
• Print #textFile, rowData écrit la ligne de données dans le fichier texte.

11. Fermer le Fichier Texte :
Close textFile

• Cette instruction ferme le fichier texte après l’écriture de toutes les données.

12. Message de Confirmation :
MsgBox "Les données ont été exportées avec succès vers " & filePath, vbInformation, "Exportation terminée"

• Une boîte de message s’affiche pour informer l’utilisateur que l’exportation est terminée et lui montre le chemin du fichier.

Personnalisation :

• Délimiteur : Si vous souhaitez utiliser un autre délimiteur (par exemple une tabulation), vous pouvez remplacer la virgule « , » par vbTab pour un fichier délimité par des tabulations.
• Plage à exporter : Au lieu d’utiliser UsedRange, vous pouvez spécifier une plage précise, par exemple ws.Range(« A1:D10 »), pour exporter uniquement certaines cellules.

Ce code permet donc d’exporter facilement les données d’Excel vers un fichier texte en utilisant VBA.