XL 2010 nb si dans dossier et fichier fermé

[titooooo]

bonjour le forum

je rencontre un ptit souci afin de faire qq calculs

je dispose de plusieurs dossiers Dans chacun il existe des plannings

je veux que excel cherche dans le dossier choisi dans la cellule C2

je veux que excel cherche dans le dossier déjà choisie en C2 et si je choisi 38 dans la cellule C3 de recherche de fichier qu excel cherche le fichier qui contient 38 dans le titre exemple trouver un fichier qui s'appelle 38.xlsx ou planning 38,.xlsx l'essentiel c'est que le terme 38 soit trouvé

une fois le fichier trouvé faire la formule nb.si pour trouver le nb de régime qui se trouve toujours dans la colonne D

d'avance 1000 merci

 

[Hieu]

Salut,

Ci-joint la macro utile:

Sub mlkm()
Set WF = WorksheetFunction

fichier = ThisWorkbook.Name
feuille = ActiveSheet.Name
Set O = Workbooks(fichier).Sheets(feuille)

chemin = ThisWorkbook.Path & "\" & Range("c2") & "\"
fic = Dir(chemin & "*" & Range("c3") & "*")
Workbooks.Open (chemin & fic)

sh = ActiveSheet.Name
Set P = Workbooks(fic).Sheets(sh)

For i = 1 To 9
    O.Range("c8").Offset(i, 0) = WF.CountIf(P.Range("d:d"), O.Range("b8").Offset(i, 0))
Next i

Workbooks(fic).Close False
End Sub