Excel Macro pour rechercher des fichiers basés sur un mot-clé et renvoyer vrai si présent

Question

Quelqu'un peut-il m'aider avec une macro VBA Excel pour rechercher des fichiers dans différents répertoires fournis dans la colonne B, basé sur les mots clés donnés dans la colonne A et retour " Présenter le fichier "/" Fichier non présent » dans la colonne C.

Exemple

mots-clés | FolderPath | Résultat

1234 | E: \ Documents \ ABC

Apple | F: \

Fichier2 | E: \ Documents \ Test \

Je suis nouveau à exceller Macros. Sil te plait aide moi!

Merci d'avance!

Answer 1

pour cette solution:

Sub IsItThere() 
    Dim KeyWd As String 
    Dim Pathh As String, fName As String 
    Dim N As Long, J As Long 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    For J = 1 To N 
     KeyWd = Cells(J, 1).Value 
     Pathh = Cells(J, 2).Value 
     If Right(Pathh, 1) = "\" Then 
      Pathh = Mid(Pathh, 1, Len(Pathh) - 1) 
     End If 
     Set objShell = CreateObject("Shell.Application") 
     Set objFolder = objShell.Namespace((Pathh)) 

     For Each strFileName In objFolder.Items 
      fName = objFolder.GetDetailsOf(strFileName, 0) 
      If InStr(1, fName, KeyWd) > 0 Then 
       Cells(J, 3).Value = "File Present" 
       GoTo NextRecord 
      End If 
     Next 
     Cells(J, 3).Value = "File Not Present" 
NextRecord: 
     Set objFolder = Nothing 
     Set objShell = Nothing 
    Next J 
End Sub