Comment Vérifier Si Un Dossier Existe Dans Excel?

Bonjour,
J’aimerais pouvoir verifier via excel si un dossier commencant par “…” existe dans un autre dossier.
Pourriez vous m’aider ?
Merci !

Bonjour,

Il existe plusieurs façons de tester l’existence d’un fichier. Cela dépend de plusieurs paramètres, le répertoire de recherche est-il variable le nom du fichier varie-t-il également ?
Voici deux liens vers des codes possibles :
https://excel-malin.com/codes-sources-vba/vba-verifier-si-le-fichier-existe/
https://www.developpez.net/forums/d1546043/logiciels/microsoft-office/excel/macros-vba-excel/test-existence-fichier-dossier/
ou encore
https://www.mediaforma.com/vba-excel-tester-fichier-existe/

Bonjour,

Donc la tout fonctionne si le dossier s’appelle seulement AD193 mais si il s’appelle AD193_TRUC ca ne marche pas. Pourrais tu m’aider ?

Merci d’avance !

Louis

test.xlsm (14.9 KB)

Bonjour,

Il faut tester la valeur des 5 premiers caractères à gauche du nom de sous-répertoire. Par exemple :
**Sub TEST_RÉPERTOIRE()
Dim fso As Object, Dossier As Object
Dim sousRep As Object, Flder As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set Dossier = fso.GetFolder(Courant)

Courant = ThisWorkbook.Path 'RÉPERTOIRE DE RECHERCHE = RÉPERTOIRE DI FICHIERS EXCEL ACTIF
Répertoire = “AD193” 'OU Répertoire = sheets(“Book1”).range(B2").value
Drapeau = 0 'RESTE À 0 SI PAS DE SOUS-RÉPERTOIRE TROUVÉ SINON PASSE À 1

For Each Flder In Dossier.subfolders
    If Left(Flder.Name, 5) = Répertoire Then 'TESTE LES 5 PERMIERS CARACTÈRES DES NOMS DE SOUS RÉPERTOIRES
        Drapeau = 1
        MsgBox "Existe"
    End If
Exit Sub
Next

If Drapeau = 0 Then
' SI PAS DE CORRESPONDANCE TROUVÉE TRAITEMENT (CRÉER LE SOUS-RÉPERTOIRE)
End If

End Sub**

Bonjour,

merci mais ca ne marche pas et ca me met ce qu’il y a en piece jointe.

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.