Discussion :

[Manard82]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Valtrase]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Manard82]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Valtrase]

Re,
Vous avez du lire entre les lignes. 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dir ("C:\toto",vbDirectory)

[Manard82]

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