Validation d'un chemin correct sous Excel Pro 2021

Bonjour,

Je viens de créer une macro Excel pour écrire et enregistrer une macro dans un format texte interprétable par ImageJ (logiciel de traitements photos) où les utilisateurs doivent renseigner divers chemins sur leurs disques de stockage, dont un premier qui indique le dossier des photos à traiter, puis un deuxième chemin où seront stockés les photos une fois le traitement réalisé.

En amont du lancement de la macro Excel, je désire vérifier la validité des deux chemins renseignés avec ces lignes de code. Par exemple, le chemin d'enregistrement est renseigné dans la cellule H4 de la feuille Choix

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim fDir$   Sheets("Choix").Range("H4").Value = fDir   If Not (Len(Dir(fDir)) > 0) Then   MsgBox "Le chemin des photos traitées est incorrect"   Exit Sub   End If

---

Dans le dossier des photos à traiter avec présence de fichiers, ces mêmes lignes de code alertent avec le message si le chemin renseigné n'aboutit pas (erreur de saisie) et ne renvoient pas de message si le chemin est correct.

Par contre ce n'est pas le cas pour le dossier d'enregistrement. Quand celui-ci ne contient aucun fichier, le message d'erreur sort quand bien même le chemin soit correct, par contre s'il y a présence d'un fichier dans le dossier, le chemin est validé.

Existe t-il une autre façon de contrôler qu'un chemin est valide quand le dossier cible est vide ?, sachant que les noms de ces dossiers sont différents suivant les organisations de stockage des utilisateurs. Par exemple la syntaxe des chemins ressemble à cette forme : D:\Traitements\traites\

Avec mes remerciements

Bernard

Salut,
C'est le contraire que tu dois faire..

Code:

---

1 2 3 4 5 6 7

Dim fDir As String fDir = ThisWorkbook.Worksheets.Item("Choix").Range("H4").Value   If Dir(fDir, vbNormal) = vbNullString Then ThisWorkbook.Worksheets.Item("Choix").Range("H4").Select MsgBox "Le chemin des photos traitées est incorrect" End If

---

Je t'invite à lire la documentation de Microsoft sur la fonction Dir : Fonction Dir (Visual Basic pour Applications) | Microsoft Learn

Bonjour Valtrase,

Je te remercie de ta réponse, je viens de tester les lignes de code que tu me proposes dans cette macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test()   Dim fDir As String fDir = ThisWorkbook.Worksheets.Item("Choix").Range("H4").Value   If Dir(fDir, vbNormal) = vbNullString Then ThisWorkbook.Worksheets.Item("Choix").Range("H4").Select MsgBox "Le chemin des photos traitées est incorrect" End If   End Sub

---

Quand je la lance, j'ai le message d'erreur qui sort alors que le chemin est correct, le dossier cible est vide

J'ai regardé la page Microsoft indiquée en lien, en remplaçant vbNormal par vbDirectory le test de la présence d'un chemin correct fonctionne avec un dossier cible vide

Bernard

Re,
Vous avez du lire entre les lignes. :D désolé pour la pique...
Edit: il est vrai que j'ai repris votre code et qu'il était question de répertoire.

on ne teste pas la présence d'un fichier dans un répertoire de la même façon que l'on teste l'existence d'un répertoire lui même.
Si l'on veux tester la presence d'un fichier c'est :

Code:

---

Dir ("C:\toto\toto.png",vbNormal)

---

et si l'on veux tester la présence d'un répertoire c'est :

Code:

---

Dir ("C:\toto",vbDirectory)

---

Bonjour Valtrase,

Après ma première réponse, en reprenant les attributs de ce code, je me suis effectivement rendu compte qu'il y avait vbDirectory qui validait ce chemin sans fichier cible, j'ai modifié ma réponse trois minutes avant la tienne :).

Encore merci et bon week-end

Bernard