Re : rechercher dans un autre dossier un fichier et l'ouvrir
Bonjour,
Si le code ci-après peut t'aider, il listes les fichiers ".xl__" d'un sous-répertoire du programme et teste le contenu du nom du fichier.
ensuite il faut exploiter les résultats de Fic au lieu de Debug.Print Fic
Salutations
Robert ( un autre ...)
----------------------------------------------------------------------------
Sub ListeFichiers()
'Liste des fichiers Excel d'un répertoire
Dim T, Rep, RepSec, Fic As Variant
' sous-répertoire du programme actif pour le recherche
RepSec = "MarcylEtoile\DGIndust\Batiment T5\Documentation T5 applicable\T5-ORG\5_Modèles\"
Rep = ThisWorkbook.Path & RepSec ' Définit le répertoire.
Fic = Dir(Rep & "*.xl*") ' Extrait la première entrée.
Do While Fic <> "" ' Commence la boucle.
' extentions possibles (.xls, .xlm,.xlt,.xlsx,.xlsm,...)
Extension = StrReverse(Left(StrReverse(Fic), InStr(StrReverse(Fic), ".")))
If Left(Extension, 3) = ".xl" Then
' Affiche uniquement les fichiers Excel AVEC extensions
If InStr(1, Dir, "073") > 0 Then
' autres recherches
' T = Left(Dir, 13) ' ou bien len("T5-ORG-50-073")
' If InStr(1, T, "-073") > 0 Then
' If InStr(1, T, "-07") > 0 Then
' .....
' endif
Debug.Print Fic
' ou sans l'extension .xl__
' Debug.Print Replace(Fic, Extension, "")
End If
End If
Fic = Dir ' Extrait l'entrée suivante.
Loop
End Sub