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

toto47 · 2 Mars 2020

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 · 2 Mars 2020

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 · 2 Mars 2020

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

toto47 · 4 Mars 2020

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

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

toto47

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

toto47

XLDnaute Nouveau

Pièces jointes

toto47

XLDnaute Nouveau

Discussions similaires