Recherche un fichier dans un repertoire en utilisant un cellule Excel

Bonsoir à tous,

dans un tableau Excel en A2 est noté OS1234

je voudrais rechercher ce nom qui est en A2 si il existe déjà en tant que nom de fichier PDF ou EXCEL dans un repertoire x

si le fichier est trouvé dans ce repertoire soit on renvoie dans une autre cellule par exemple A3 "doublon" ou la cellule en rouge

ou si le fichier n'est pas trouvé alors A3 "à Faire" ou en Vert

j'espère avoir été assez clair

je vous remercie par avance de votre aide

cordialement François

Bonjour le cuillier

Voici un code qui devrait fonctionner

Sub TestFichier()
  Dim sPath As String, sNomFic As String, sFic As String
  ' chemin initial
  sPath = "C:\X\"
  ' Vérifier qu'on à bien l'antislash de fin
  If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
  ' Contenu du nom du fichier
  sNomFic = Sheets("Feuil1").Range("A2")
  ' Vérifier l'existence d'un fichier
  sFic = Dir(sPath & sNomFic & "*")
  ' Si non vide
  If sFic <> "" Then
    Sheets("Feuil1").Range("A3") = "Doublon"
  Else
    Sheets("Feuil1").Range("A3") = "A Faire"
  End If
End Sub

A+

Bonjour BrunoM45,

merci pour ce code, que je viens d'essayer et qui fonctionne parfaitement,

mais j'ai oublié de dire que dans la cellule A2 exemple( P220434762-01) il n'y aura qu'une partie du nom du fichier

le nom dans le répertoire a chercher serait pour cette exemple (Marque - P220434762-01 - Client Final - Revendeur_)

dans mon repertoire le nom du fichier s'articule tjrs de la même façon( Marque - N° de Cotation - Client Final (si j'en ai un) - Revendeur_)

et donc le code ne trouve pas puisque ce n'est pas exactement le même nom :-(

as tu une idée pour que cela puisse fonctionner

merci D'avance pour ton aide

cordialement

François

Re,

Merci d'être plus explicite la prochaine fois, je n'ai pas pour habitude de redonner modifié un code fonctionnel

Il suffit d'entourer la partie à rechercher d'étoiles, ce qui donnera : "*P220434762-01*"

Sub TestFichier()
  Dim sPath As String, sNomFic As String, sFic As String
  ' chemin initial
  sPath = "C:\X\"
  ' Vérifier qu'on à bien l'antislash de fin
  If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
  ' Contenu du nom du fichier
  sNomFic = Sheets("Feuil1").Range("A2")
  ' Vérifier l'existence d'un fichier
  sFic = Dir(sPath & "*" & sNomFic & "*")
  ' Si non vide
  If sFic <> "" Then
    Sheets("Feuil1").Range("A3") = "Doublon"
  Else
    Sheets("Feuil1").Range("A3") = "A Faire"
  End If
End Sub

Cela devrait fonctionner

A+

merci pour votre aide cela marche parfaitement

cordialement

François