XL 2010 Vérifier l'existence d'un fichier dans un dossier

[toto47]

Bonjour,

Je souhaite vérifier si l'information (un fichier) existe dans un dossier

Sachant que:
-le nom de mon fichier est dans une cellule
-la source (adresse de type C:\Users\tclazer\Desktop\Dossier sur le Bureau) de mon dossier est dans une autre cellule

Je souhaite aussi après la vérification si le fichier existe" ne rien faire" et si le fichier n'existe pas "l'afficher dans une cellule".

Merci d'avance pour votre aide

 

[sylvanu]

Bonjour Toto,
Un exemple en PJ. J'ai mis deux solutions, une par macro, une par fonction. Tout dépend de votre contexte.
( j'écris Fichier existe pour vérifier que la macro marche. Mettre ="" si on ne veut pas de réponse quand le fichier existe )

 

[toto47]

Merci pour la réponse rapide
Je joins ce ce que j'ai faits jusqu’à présent si cela peut aider

 

[toto47]

Bonjour,
J'ai résolu mon problème,

Sub RechercheFichiers()

'variable
Dim Dossier_cherché$, Fichier_cherché$



Range("B8").Activate
Do Until ActiveCell = ""
Dossier_cherché = ActiveCell
Fichier_cherché = ActiveCell.Offset(0, 1)
If (Dir(Dossier_cherché & "\" & Fichier_cherché) = "") Then
ActiveCell.Offset(0, 4).FormulaR1C1 = "N'existe pas"
Else
ActiveCell.Offset(0, 4).FormulaR1C1 = ""
End If
ActiveCell.Offset(1, 0).Activate
Loop
End Sub