VBA rechercher un mot dans le titre d'un fichier

Bonjour,

Quel est code vba pour savoir si dans le titre d'un fichier Excel j'ai "COLZA", "BLE", "ORGE" ou "TRITICALE"?

Merci d'avance

Bonne journée

Agrimaman

Bonjour Agrimaman

Si le mot à rechercher est "mot" dans "toto.xls", appeler ChercherTitre

Sub ChercherTitre()
Call FindWordInWorkbook("c:\..\toto.xls", "mot")
End Sub
Sub FindWordInWorkbook(sWbPath As String, sFind As String, Optional sSheetName As String)
Dim wb As Workbook
Dim sh As Worksheet
Dim nbcol
Workbooks.Open sWbPath
Set wb = ActiveWorkbook
Dim b As Boolean
b = IsMissing(sSheetName) Or sSheetName = ""
If b = True Then
  Set sh = wb.Sheets(1)
Else
  If sSheetName <> "" Then
  Set sh = wb.Sheets(sSheetName)
  Else
    wb.Close saveChanges:=True
    Exit Sub
  End If
End If
Dim cell As Range
Dim sTitle
For Each cell In Range(Cells(1, 1), Cells(1, nbcol))
   sTitle = sTitle & ";" & cell.Value

Next
If InStr(1, sTitle, sFind) Then MsgBox sFind & " Trouvé" Else MsgBox sFind & " non trouvé"
wb.Close saveChanges:=False
End Sub

Merci beaucoup ça marche.

Agrimaman