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**
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.