Exporter des données d’Excel vers un fichier CSV, Excel VBA

Exporter des données d’Excel vers un fichier CSV, Excel VBA

Voici une explication détaillée du code VBA pour exporter des données d’Excel vers un fichier CSV, avec le code et des commentaires explicatifs.
Objectif :
L’objectif ici est d’exporter des données d’une feuille Excel vers un fichier CSV à l’aide de VBA. Cela implique :
1. Sélectionner la plage de données à exporter.
2. Sauvegarder cette plage sous un fichier CSV.
3. Gérer les erreurs et la gestion dynamique des noms de fichiers.
Décomposons cela étape par étape, en commençant par l’explication détaillée, puis en fournissant le code VBA.
Explication étape par étape
1. Sélection de la plage de données :

• La première étape consiste à identifier la plage de données que vous souhaitez exporter. Il peut s’agir d’une plage spécifique (par exemple, A1:C10), ou de toute la plage utilisée de la feuille, ce qui est dynamique en fonction de la quantité de données dans la feuille.

2. Création du fichier CSV :

• Ensuite, nous devons définir le chemin d’accès et le nom du fichier CSV. Nous demanderons à l’utilisateur où il souhaite sauvegarder le fichier, ou bien nous pourrons définir un chemin par défaut. Un fichier CSV est un fichier texte brut, où chaque valeur dans la plage est séparée par une virgule (,), et chaque ligne se termine par un saut de ligne.

3. Gestion des fichiers existants :

• Il est important de vérifier si un fichier CSV avec le même nom existe déjà dans le répertoire de destination. Si c’est le cas, nous demanderons à l’utilisateur s’il souhaite écraser le fichier existant ou choisir un autre nom.

4. Exportation des données :

• Nous convertirons la plage de données en texte, puis l’écrirons dans le fichier CSV. Chaque cellule de la plage sera séparée par une virgule, et chaque ligne se terminera par un saut de ligne.

5. Gestion des erreurs :

• Nous devons aussi gérer les erreurs potentielles, comme un chemin de fichier invalide ou si l’utilisateur annule la boîte de dialogue de sauvegarde.

Code VBA pour exporter des données vers un fichier CSV

Sub ExporterDonneesVersCSV()
    ' Déclaration des variables
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim nomFichier As String
    Dim cheminDossier As String
    Dim cheminFichier As String
    Dim contenuCSV As String
    Dim resultat As Integer
    ' Référence à la feuille de calcul active
    Set ws = ActiveSheet
    ' Sélectionner la plage de données à exporter - Vous pouvez personnaliser la plage si nécessaire
    ' Ici, nous sélectionnons la plage utilisée de la feuille
    Set rng = ws.UsedRange
    ' Demander à l'utilisateur où sauvegarder le fichier CSV et quel nom lui donner
    ' Vous pouvez aussi définir un répertoire ou un nom de fichier par défaut si souhaité
    cheminDossier = Application.GetSaveAsFilename( _
        InitialFileName:=ws.Name & ".csv", _
        FileFilter:="Fichiers CSV (*.csv), *.csv", _
        Title:="Enregistrer sous un fichier CSV")
    ' Si l'utilisateur annule la boîte de dialogue, quitter la macro
    If cheminDossier = "False" Then Exit Sub
    ' Vérifier si le fichier existe déjà
    If Dir(cheminDossier) <> "" Then
        ' Demander à l'utilisateur s'il veut écraser le fichier
        resultat = MsgBox("Le fichier existe déjà. Voulez-vous l'écraser ?", vbYesNo + vbExclamation, "Fichier existant")
        If resultat = vbNo Then Exit Sub
    End If
    ' Construire le contenu CSV à partir de la plage
    contenuCSV = ""
    For Each row In rng.Rows
        For Each cell In row.Cells
            ' Ajouter la valeur de la cellule dans la chaîne CSV, avec des guillemets autour des valeurs textuelles
            If IsNumeric(cell.Value) Or IsDate(cell.Value) Then
                contenuCSV = contenuCSV & cell.Value
            Else
                contenuCSV = contenuCSV & """" & cell.Value & """"
            End If
            ' Ajouter une virgule si ce n'est pas la dernière colonne de la ligne
            If cell.Column < row.Cells.Count Then
                contenuCSV = contenuCSV & ","
            End If
        Next cell
        ' Ajouter un saut de ligne après chaque ligne (sauf la dernière)
        contenuCSV = contenuCSV & vbCrLf
    Next row
    ' Ouvrir le fichier en mode écriture et écrire le contenu CSV
    Open cheminDossier For Output As #1
    Print #1, contenuCSV
    Close #1
    ' Informer l'utilisateur que l'exportation a réussi
    MsgBox "Les données ont été exportées avec succès vers " & cheminDossier, vbInformation, "Exportation terminée"
End Sub

Explication du Code :
1. Référence à la feuille de calcul :

• Set ws = ActiveSheet assigne la feuille de calcul active à la variable ws.

2. Sélection de la plage à exporter :

• Set rng = ws.UsedRange définit la plage de données à exporter. Dans ce cas, il utilise UsedRange, ce qui sélectionne automatiquement toutes les cellules contenant des données.

3. Demande du chemin de sauvegarde :

• cheminDossier = Application.GetSaveAsFilename(…) ouvre une boîte de dialogue « Enregistrer sous », permettant à l’utilisateur de spécifier le nom du fichier et son emplacement. Le filtre de fichier garantit que l’utilisateur ne peut sélectionner que des fichiers .csv.

4. Vérification de l’existence du fichier :

• La fonction Dir(cheminDossier) vérifie si un fichier avec le même nom existe déjà. Si tel est le cas, une boîte de message s’affiche pour demander à l’utilisateur s’il souhaite écraser le fichier existant.

5. Construction du contenu du fichier CSV :

• Une boucle est utilisée pour parcourir chaque ligne et chaque cellule de la plage. Pour chaque cellule, la valeur est ajoutée à la chaîne contenuCSV.
• Les valeurs textuelles sont entourées de guillemets («  »), et les valeurs sont séparées par des virgules. Après chaque ligne, un saut de ligne (vbCrLf) est ajouté.

6. Écriture dans le fichier :

• Open cheminDossier For Output As #1 ouvre le fichier CSV spécifié en mode écriture. La commande Print #1, contenuCSV écrit le contenu CSV dans le fichier. Après l’écriture, Close #1 ferme le fichier.

7. Message de confirmation :

• Une fois l’exportation terminée, un message informant l’utilisateur de la réussite de l’exportation s’affiche.

Personnalisation et Fonctionnalités supplémentaires :

• Sélection d’une plage différente :
  Au lieu de UsedRange, vous pouvez définir une plage spécifique. Par exemple, si vous souhaitez exporter de A1 à C10, utilisez Set rng = ws.Range(« A1:C10 »).
• Guillemets pour les textes :
  Dans le code, les valeurs textuelles sont entourées de guillemets. Cela est utile pour gérer les valeurs contenant des virgules, ce qui est important pour les fichiers CSV.
• Gestion des erreurs :
  Vous pouvez ajouter une gestion d’erreurs (par exemple, On Error GoTo ErrorHandler) pour gérer les erreurs potentielles, comme un chemin de fichier invalide ou des problèmes d’autorisation.

Conclusion :
Ce script VBA permet d’exporter des données d’Excel vers un fichier CSV de manière robuste. Il inclut une interaction avec l’utilisateur via la boîte de dialogue « Enregistrer sous », une prévention de l’écrasement de fichiers, et une exportation correcte des données au format CSV. Vous pouvez le personnaliser en fonction de vos besoins, comme sélectionner des plages spécifiques ou ajouter des en-têtes.