Automatiser les tâches de manipulation de fichiers, Excel VBA

Automatiser les tâches de manipulation de fichiers, Excel VBA

Pour automatiser des tâches de manipulation de fichiers dans Excel à l’aide de VBA, vous pouvez utiliser différentes fonctions de VBA pour ouvrir, fermer, déplacer, copier, ou renommer des fichiers et des dossiers. Voici un exemple détaillé d’un code VBA qui automatise plusieurs tâches courantes liées aux fichiers, avec des explications pour chaque étape.

Objectifs du code

• Ouvrir un fichier Excel.
• Sauvegarder un fichier Excel sous un autre nom.
• Copier un fichier d’un répertoire à un autre.
• Renommer un fichier.
• Supprimer un fichier.

Étape 1 : Ouvrir un fichier Excel à l’aide de VBA

Sub OuvrirFichier()
    ' Déclarez la variable pour le chemin du fichier
    Dim cheminFichier As String
    cheminFichier = "C:\Chemin\Vers\Votre\Fichier.xlsx"
    ' Ouvrir le fichier Excel spécifié
    Workbooks.Open cheminFichier
    MsgBox "Le fichier a été ouvert avec succès!"
End Sub

Explication :

• Workbooks.Open permet d’ouvrir un fichier Excel situé à l’emplacement spécifié dans la variable cheminFichier.
• MsgBox affiche un message une fois le fichier ouvert.

Étape 2 : Sauvegarder un fichier Excel sous un autre nom

Sub SauvegarderSousAutreNom()
    ' Déclarez la variable pour le nouveau chemin
    Dim cheminNouveauFichier As String
    cheminNouveauFichier = "C:\Chemin\Vers\NouveauFichier.xlsx"
    ' Sauvegarder le fichier actuel sous un autre nom
    ThisWorkbook.SaveAs cheminNouveauFichier
    MsgBox "Le fichier a été sauvegardé sous un autre nom avec succès!"
End Sub

Explication :

• ThisWorkbook.SaveAs permet de sauvegarder le fichier actuellement ouvert (celui qui contient le code VBA) sous un nouveau nom et un nouvel emplacement.

Étape 3 : Copier un fichier d’un répertoire à un autre

Sub CopierFichier()
    ' Déclarez les variables pour le chemin source et destination
    Dim cheminSource As String
    Dim cheminDestination As String
    cheminSource = "C:\Chemin\Vers\FichierOriginal.xlsx"
    cheminDestination = "C:\Chemin\Vers\NouveauDossier\FichierCopie.xlsx"
    ' Utilisez la fonction FileCopy pour copier le fichier
    FileCopy cheminSource, cheminDestination
    MsgBox "Le fichier a été copié avec succès!"
End Sub

Explication :

• FileCopy copie un fichier de cheminSource vers cheminDestination. Le fichier original reste inchangé, et une copie est créée à l’emplacement spécifié.

Étape 4 : Renommer un fichier

Sub RenommerFichier()
    ' Déclarez les variables pour les chemins source et le nouveau nom
    Dim cheminFichier As String
    Dim nouveauNom As String
    cheminFichier = "C:\Chemin\Vers\FichierOriginal.xlsx"
    nouveauNom = "C:\Chemin\Vers\FichierRenomme.xlsx"
    ' Utilisez la fonction Name pour renommer le fichier
    Name cheminFichier As nouveauNom
    MsgBox "Le fichier a été renommé avec succès!"
End Sub

Explication :

• Name est une fonction qui permet de renommer un fichier. Elle prend en entrée le chemin du fichier existant (cheminFichier) et le nouveau nom (nouveauNom).

Étape 5 : Supprimer un fichier

Sub SupprimerFichier()
    ' Déclarez la variable pour le chemin du fichier à supprimer
    Dim cheminFichier As String
    cheminFichier = "C:\Chemin\Vers\FichierADeleting.xlsx"
    ' Utilisez la fonction Kill pour supprimer le fichier
    Kill cheminFichier
    MsgBox "Le fichier a été supprimé avec succès!"
End Sub

Explication :

• Kill permet de supprimer un fichier à l’emplacement spécifié. Assurez-vous que le fichier n’est pas ouvert avant de le supprimer.

Utiliser ces fonctions dans une même procédure

Vous pouvez combiner toutes ces étapes dans une seule procédure si vous souhaitez automatiser un flux de travail complet. Voici un exemple où toutes les étapes sont utilisées dans une séquence logique :

Sub AutomatiserTachesFichiers()
    ' Variables de chemins
    Dim cheminFichierOuvrir As String
    Dim cheminFichierSauvegarder As String
    Dim cheminFichierCopie As String
    Dim cheminFichierRenommer As String
    Dim cheminFichierSupprimer As String
    ' Assignation des chemins
    cheminFichierOuvrir = "C:\Chemin\Vers\FichierOriginal.xlsx"
    cheminFichierSauvegarder = "C:\Chemin\Vers\FichierSauvegarde.xlsx"
    cheminFichierCopie = "C:\Chemin\Vers\CopieFichier.xlsx"
    cheminFichierRenommer = "C:\Chemin\Vers\FichierRenomme.xlsx"
    cheminFichierSupprimer = "C:\Chemin\Vers\FichierASupprimer.xlsx"
    ' Ouvrir le fichier
    Workbooks.Open cheminFichierOuvrir
    MsgBox "Fichier ouvert!"
    ' Sauvegarder sous un autre nom
    ThisWorkbook.SaveAs cheminFichierSauvegarder
    MsgBox "Fichier sauvegardé!"
    ' Copier le fichier
    FileCopy cheminFichierOuvrir, cheminFichierCopie
    MsgBox "Fichier copié!"
    ' Renommer le fichier
    Name cheminFichierOuvrir As cheminFichierRenommer
    MsgBox "Fichier renommé!"
    ' Supprimer un fichier
    Kill cheminFichierSupprimer
    MsgBox "Fichier supprimé!"
End Sub

Explication de la procédure :

• La procédure AutomatiserTachesFichiers exécute les cinq actions dans un ordre précis : ouvrir un fichier, le sauvegarder sous un nouveau nom, le copier, le renommer et enfin le supprimer.
• Des MsgBox sont utilisés pour indiquer que chaque étape a été effectuée avec succès.

Remarques :

1. Sécurité des fichiers : Assurez-vous de vérifier que le fichier à supprimer ou à renommer n’est pas ouvert ou en cours d’utilisation par un autre programme.
2. Gestion des erreurs : En cas d’erreur (fichier introuvable, manque de permissions, etc.), il est recommandé d’ajouter des instructions On Error pour gérer les exceptions de manière élégante.

Conclusion

Ce code VBA vous permet d’automatiser des tâches de manipulation de fichiers dans Excel, ce qui peut être très utile pour gagner du temps et éviter les erreurs humaines dans des tâches répétitives de gestion de fichiers. Vous pouvez étendre ces exemples pour inclure d’autres fonctionnalités comme l’archivage, la création de dossiers, etc.