XL 2010 nb si dans dossier et fichier fermé

titooooo · 21 Septembre 2016

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 · 21 Septembre 2016

Salut,

Ci-joint la macro utile:

VB:

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

XL 2010 nb si dans dossier et fichier fermé

titooooo

XLDnaute Occasionnel

Pièces jointes

Hieu

XLDnaute Impliqué

Pièces jointes

Discussions similaires