Bonjour,
on me demande de créer une marco afin de pouvoir vérifier l'existence de fichier pdf dans des dossiers présent sous le réseau.
j'ai réussi à faire une macro qui concatène le chemin vers les dossiers mais le soucis ma macro affiche uniquement les fichier existant en écrivant 'existe' mais je n'arrive pas à ajouter une boucle pour les non existant.
et aussi je souhaiterai qu'elle puisse me dire avant de trouver le fichier dans le dossier si le dossier existe bien ou pas.
une partie de mon tableau:



le code ci-dessous.
Merci pour votre aide.
"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
sub Existence()
'Test Existance fichier dans dossier Plan Cible
 
Dim j As Integer
Dim i As Integer
Dim Rep As String, Fichier As String, Chemin As String
Dim EXT As String
EXT = "pdf"
j = 2
i = 2
 
Do While Sheets("Feuil2").Range("A" & j) <> ""
 Rep = Sheets("Feuil2").Range("K" & i)
   Fichier = Dir(Rep)
 Do While Fichier <> ""
    If Right(Fichier, 3) = EXT Then
         Sheets("Feuil2").Range("L" & i) = "Le dossier le DT existent"
      End If
   Fichier = Dir
 
  Loop
 j = j + 1
 i = i + 1
 
Loop
end sub
Merci infiniment pour votre aide!!!