Comment vérifier si un dossier existe et, s’il n’existe pas, le créer ?
Dans de nombreux flux de travail bureautiques, il est souvent nécessaire de vérifier l’existence d’un dossier spécifique avant d’enregistrer des fichiers ou d’organiser des données via Excel. Effectuer cette vérification manuellement peut vite devenir chronophage, surtout lorsqu’on gère un grand nombre de dossiers ou qu’on met en place des processus automatisés. Être capable de confirmer automatiquement la présence d’un dossier — et de le créer si nécessaire — permet non seulement de rationaliser la gestion des fichiers, mais aussi d’éviter des erreurs inattendues lors de l’exportation de données ou du traitement par lots.
Ce tutoriel vous guidera pas à pas dans les méthodes pratiques suivantes :
Vérifier si un dossier existe dans un Chemin du fichier spécifique à l’aide d’un code VBA
Créer le dossier s’il n’existe pas dans un Chemin du fichier spécifique à l’aide d’un code VBA
Vérifier si un dossier existe dans un Chemin du fichier spécifique à l’aide d’un code VBA
Une exigence courante consiste à vérifier si un dossier existe déjà dans un répertoire donné, notamment avant d’exporter un rapport, d’enregistrer des pièces jointes ou de préparer des répertoires pour un traitement par lots. Excel ne propose pas nativement de fonction permettant de vérifier directement depuis une feuille de calcul l’existence d’un dossier, mais grâce à une macro VBA, vous pouvez détecter rapidement la présence d’un dossier à n’importe quel emplacement spécifié.
Cette méthode est particulièrement adaptée lorsque vous souhaitez simplement vérifier l’existence d’un dossier sans modifier votre système de fichiers. Le code VBA permet d’effectuer cette vérification de manière simple et d’obtenir des résultats immédiats.
Étapes opératoires :
1. Appuyez simultanément sur les touches ALT+F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module :
Code VBA : Vérifier si un dossier existe dans un Chemin du fichier spécifique :
Sub Test_Folder_Exist_With_Dir()
'Updateby Extendoffice
Dim sFolderPath As String
sFolderPath = "C:\Users\DT168\Desktop\Test folder"
If Right(sFolderPath, 1) <> "\" Then
sFolderPath = sFolderPath & "\"
End If
If Dir(sFolderPath, vbDirectory) <> vbNullString Then
MsgBox "Folder exist", vbInformation, "Kutools for Excel"
Else
MsgBox "Folder doesn't exist", vbInformation, "Kutools for Excel"
End If
End Sub
Remarque : Dans le code ci-dessus, vous devez modifier le chemin du fichier et le nom C:\Users\DT168\Desktop\Test folder afin qu’ils correspondent au répertoire que vous souhaitez vérifier. Assurez-vous que le chemin est saisi correctement et qu’il inclut l’adresse complète du dossier.
3. Une fois le code saisi, appuyez sur F5 pour exécuter la macro. Le résultat s’affichera dans une boîte de dialogue indiquant si le dossier spécifié existe ou non. Par exemple :
Cette approche s’avère particulièrement utile pour effectuer des vérifications préalables avant d’exécuter des opérations sur les fichiers ou des exports de données. Toutefois, elle ne crée aucun dossier ; utilisez-la donc uniquement lorsque vous avez besoin d’une étape de détection sans aucune modification des fichiers ou répertoires.
Si vous devez vérifier régulièrement différents chemins de fichiers, envisagez de modifier le code ou de permettre à l’utilisateur de saisir dynamiquement le chemin du fichier pour plus de flexibilité. Vérifiez toujours soigneusement l’orthographe du chemin et assurez-vous de disposer des autorisations appropriées pour accéder au répertoire, afin d’éviter les erreurs d’exécution.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Créer le dossier s’il n’existe pas dans un Chemin du fichier spécifique à l’aide d’un code VBA
Parfois, vous souhaitez qu’Excel non seulement vérifie l’existence d’un dossier, mais le crée automatiquement s’il n’existe pas, éliminant ainsi toute intervention manuelle. Cette solution s’avère idéale pour préparer des dossiers destinés à une exportation automatisée de fichiers, puisqu’elle assure un flux de travail ininterrompu et minimise les erreurs liées à l’absence de répertoires.
Cette solution est idéale lorsque vous souhaitez que vos macros ou vos tâches d’exportation de données s’exécutent sans accroc, quel que soit l’état initial de votre structure de dossiers. Elle garantit que tous les dossiers requis sont bien en place avant le lancement des opérations suivantes.
Étapes opératoires :
1. Maintenez enfoncées les touches ALT+F11pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion>Module, puis collez le code suivant dans la fenêtre Module:
Code VBA : Créer un dossier s’il n’existe pas dans un Chemin du fichier :
Sub MakeMyFolder()
'Updateby Extendoffice
Dim fdObj As Object
Application.ScreenUpdating = False
Set fdObj = CreateObject("Scripting.FileSystemObject")
If fdObj.FolderExists("C:\Users\DT168\Desktop\Test folder") Then
MsgBox "Found it.", vbInformation, "Kutools for Excel"
Else
fdObj.CreateFolder ("C:\Users\DT168\Desktop\Test folder")
MsgBox "It has been created.", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
Remarque : Vous devez remplacer le chemin du fichier et le nom C:\Users\DT168\Desktop\Test folder dans le code par le répertoire réel que vous souhaitez créer. Vérifiez attentivement l’exactitude du chemin et choisissez un emplacement où vous disposez des droits d’écriture afin d’éviter toute erreur système.
3. Une fois le code collé, appuyez sur F5 pour l’exécuter :
(1.) Si le dossier existe déjà, une boîte de dialogue vous en informera, comme illustré ci-dessous :
(2.) Si le dossier n’existe pas, la macro créera automatiquement le nouveau dossier dans le chemin spécifié. Une autre boîte de dialogue confirmera sa création, comme illustré ci-dessous :
Cette opération simplifiée est idéale pour les tâches répétitives d’exportation ou de sauvegarde, où l’absence de dossiers pourrait autrement entraîner des erreurs ou perturber votre flux de travail.
Veuillez noter : VBA peut signaler des erreurs si vous tentez de créer un dossier dans un répertoire parent protégé ou inexistant. En cas d’erreur, vérifiez attentivement votre chemin d’accès et vos autorisations utilisateur.
Conseils de précaution et dépannage courant :
- Vérifiez toujours deux fois le format du chemin de fichier dans vos scripts VBA. Les chemins doivent être exacts et complets, avec des barres obliques inversées ()
\) pour séparer chaque niveau de répertoire. - Assurez-vous de disposer des autorisations requises pour le répertoire : sans accès en écriture, le code VBA risque d’échouer lors de la création de dossiers.
- Si vous exécutez le code sur différents ordinateurs, gardez à l’esprit que le chemin utilisateur de la structure du dossier (par exemple, « C:\Users\DT168 ») variera ; veillez donc à l’adapter en conséquence.
- Pour VBA, envisagez d’intégrer des boîtes de dialogue permettant aux utilisateurs de saisir eux-mêmes les chemins : une solution qui rendra votre macro plus flexible et conviviale.
- Si vous rencontrez des erreurs telles que « Chemin introuvable » ou « Accès refusé », assurez-vous que le répertoire parent existe et qu’il est accessible.
- Il est fortement recommandé de sauvegarder vos données essentielles et de tester la procédure VBA sur des dossiers exemples avant de l’appliquer à vos répertoires de production.
En adaptant ces approches à vos besoins spécifiques et à votre environnement Excel, vous gérez efficacement la vérification et la création de dossiers, qu’il s’agisse de macros simples ou d’autres méthodes de gestion de fichiers. Vous automatisez ainsi les tâches répétitives, évitez les échecs d’exportation et garantissez un fonctionnement plus fluide de vos flux de travail quotidiens sous Excel.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels