Nom de dossier incomplet

Bonjour,

Chercher en VBA si un dossier existe n'est pas trop difficile , mais chercher un dossier où l'on connait le début de son nom mais pas la fin n'est finalement pas si facile.

Voici ce que je fais pour trouver si un dossier existe :

If Dir(DossierPhotos , vbDirectory) <> vbNullString Then etc....

La logique voudrait que je fasse comme ceci mais ça ne marche pas

mondossier est ce fameux dossier que je connais le début mais pas la fin

If Dir(DossierPhotos & Application.PathSeparator & mondossier & "*", vbDirectory) <> vbNullString Then

Auriez vous une solution ?

Merci pour votre aide ..

Bonsoir

un exemple tiré d'un code que je fais tourner.... une partie du nom du dossier se trouve dans une cellule... mais je te laisse adapter...

schemin = Environ("USERPROFILE") & "\Dropbox\"
dossier = Dir(schemin & "*" & sh.Cells(lg, "F").Value & "*", vbDirectory)
If dossier <> "" Then 'le dossier existe déjà

Fred

Merci pour ton aide

Marche pas mieux Faut dire que j'ai oublié de préciser que je test sur MAC

Ahhh

Et bah je ne sais pas... désolé

Regarde le site internet de rondebruin peut être..

https://www.rondebruin.nl

Fred

Il faut dire que la gestion des fichiers et dossiers en Vba entre mac (base linux) et Windows... sont vraiment différents...

Fred

Je n'arrive as à trouver de solution, quelqu'un pourrait m'aider pour un MAC ????

Merci

Bon j'ai fais une petite alternative à améliorer

En gros il affiche en AA les dossiers d'un répertoire donné . et ensuite on lui demande de chercher "D5588*"

Et ça marche

Sub TesteSiDossierExiste()
monrepprinc = "/Users/eric/Desktop/Divers/"
  mesrepssub = Dir(monrepprinc, vbDirectory)
  Do While mesrepssub <> ""
    If mesrepssub <> "." And mesrepssub <> ".." Then
       If (GetAttr(monrepprinc & mesrepssub) And vbDirectory) = vbDirectory Then
         a = a + 1
      Range("A" & a).Value = mesrepssub
       End If
    End If
    mesrepssub = Dir
  Loop

numero = "D5588*"
Set celluletrouvee = Range("A1:A20").Find(numero, lookat:=xlWhole)

If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If
End Sub