Macro- vérification existence d'un fichier

Version imprimable

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:

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!!!

Salut, Commence par baliser ton code STP

Qqch comme ceci, à adapter à ton contexte, pour un dossier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim sCheminPdf As String
Dim FSO As Object
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    sCheminPdf = ThisWorkbook.Path & "\" & .....
 
    If Not FSO.FolderExists(sCheminPdf) Then
        FSO.CreateFolder (sCheminPdf)
        .....
    End If
 
    Set FSO = Nothing

Pour un fichier :

Code:

1
2
3
4
5
6
7
Dim sCheminPdf As String
Dim sNomFichier As String
Dim FSO As Object
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.fileExists(sCheminPdf & "\" & sNomFichier) = True Then .....
    Set FSO = Nothing

Si tu crains les doublons de fichiers voir ici

Il y a aussi ceci à consulter : Manipulation des fichiers en VBA

Bonsoir Aliayus, Kiki, bonsoir le forum,

J'avais commencé à bosser sur ton problème mais j'ai dû m'interrompre... Je t'envoie cette proposition avec le code commenté ci-dessous :

Code:

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
27
28
29
30
31
32
33
34
35
Sub Existence()
Dim SF As Object 'déclare la variable SF (Système de Fichiers)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim I As Integer 'déclare la variable I (Incrément de ligne)
Dim TEST As Boolean 'déclare la variable TEST
Dim DT As Object 'déclare la variable DT (Dossier de Travail)
Dim EF As Object 'déclare la variable EF (Ensemble de Fichiers)
Dim F As Object 'déclare la variable F (Fichier)
 
Set SF = CreateObject("Scripting.FileSystemObject") 'définit la système de fichier SF
Set O = Sheets("Feuil2") 'définit l'onglet O
TC = O.Range("A1").CurrentRegion 'définit le tableau de cellules TC
For I = 2 To UBound(TC, 1) 'boucle 1 : sur toutes les lignes I du tableau de cellules TC
    TEST = False 'initialise la variable TEST
    On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
    DT = SF.GetFolder(TC(I, 11)) 'définit le dossier  de travail DT par rapport à la cellule colonne K (génère une erreur si le dossier n'existe pas)
    If Err <> 0 Then 'condition : si une erreur a été générée
        Err = 0 'annule l'erreur
        GoTo Suite 'va à l'étiquette "Suite"
    End If 'fin de la condition
    On Error GoTo 0 'annule la gestion des erreurs
    EF = DT.Files 'définit l'ensemble des fichiers EF du dossier de travail DT
    For Each F In EF 'boucle 2 : sur tous les fichiers F de l'ensemble des fichier EF
        If UCase(Right(F.Name, 3)) = "PDF" Then 'condition : si l'extension du fichier est "pdf" (ou "PDF")
            TEST = True 'définit la variable TEST
            O.Cells(I, 12).Value = "Le dossier le DT existent" 'definit le texte de la cellule ligne I colonne 12 (=L)
            Exit For 'sort de la boucle 2
        End If 'fin de la condition
    Next F 'prochain fichier de la boucle 2
    'si test est faux, 'definit le texte de la cellule ligne I colonne 12 (=L)
    If TEST = False Then O.Cells(I, 12).Value = "Aucun fichier PDF dans ce dossier !"
Suite: 'étiquette
Next I 'prochaine ligne de la boucle 1
End Sub

20/03/2015, 09h54
Aliayus87

Bonjour Tautheme,

Merci d'avoir pris la peine de me réponde.
Je viens de tester ton code mais ça ne marche pas.
Je souhaite accéder au contenu du dossier mais est ce que tu penses que ce soit possible sans la fonction "Dir"
dans l'attente de ton retour.

Merci de par avance
20/03/2015, 11h59
Marc-L

Bonjour, bonjour !

Pour vérifier si un fichier existe ou pas, une instruction suffit grâce justement à cette fonction Dir, soit dit en passant …

__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo
20/03/2015, 12h16
Thautheme

Bonjour le fi, bonjour le forum,

Citation:

Envoyé par Aliayus87

Bonjour Tautheme,

Merci d'avoir pris la peine de me réponde.
Je viens de tester ton code mais ça ne marche pas.
Je souhaite accéder au contenu du dossier mais est ce que tu penses que ce soit possible sans la fonction "Dir"
dans l'attente de ton retour.

Merci de par avance

Pourrais-tu au moins dire ce qui ne va pas ! Parce que ça ne marche pas, ce n'est pas très explicite... Tu veux dire que ça plante ou bien que le résultat obtenu n'est pas bon ?
Sinon, il est vrai que je n'aime pas utiliser DIR et le lui prèfère le Système de Fichier. Mais ce n'est qu'une de mes horribles manies d'autodidacte et Marc ne me contredira pas.
Je pense qu'un petit fichier exemple serait le bienvenu. Montrant ce que tu as avant la macro et ce que tu désires obtenir après le traitement par celle-ci...
20/03/2015, 12h28
Marc-L

Exemple d'une liste de fichiers *.xl* présents sur l'arborescence complète d'un disque dur local :

• via Dir : moins de 20 secondes …

• via FSO : 2 minutes 15 secondes ‼

En réseau la fonction Dir peut s'avérer capricieuse et FSO est plus facile pour les débutants …

Mais pour juste tester l'existence d'un fichier même en réseau, je commencerais par Dir car là c'est vraiment simple !

__________________________________________________________________________________________________
La meilleure façon de ne pas avancer est de suivre une idée fixe. (Jacques Prévert)
20/03/2015, 12h41
Invité

Bonjour Aliayus87; Marc; Thautheme;kiki29 et tous les disciples du forum

Oui je confirme, à contre cœur, les allégations fallacieusement de Marc! j'ai perdu contre lui à une compétition de performance entre FSO et le DIR, mais ma vengeance sera terrible :massacre:

le Dir = ~0.20 Fso = 3.45 pour le test

Citation:

Envoyé par Marc-L

Exemple d'une liste de fichiers *.xl* présents sur l'arborescence complète d'un disque dur local :

• via Dir : moins de 20 secondes …

• via FSO : 2 minutes 15 secondes ‼

En réseau la fonction Dir peut s'avérer capricieuse et FSO est plus facile pour les débutants …

Mais pour juste tester l'existence d'un fichier même en réseau, je commencerais par Dir car là c'est vraiment simple !

__________________________________________________________________________________________________
La meilleure façon de ne pas avancer est de suivre une idée fixe. (Jacques Prévert)
20/03/2015, 12h50
Marc-L

8-)

Ce n'était pas vraiment une compétition (voir Utilisation de la Fonction DIR dans une double boucle)
mais je voulais juste rappeler l'existant d'Excel / VBA s'avère souvent plus efficace qu'un procédé externe !
20/03/2015, 13h08
kiki29

Salut, puisse que l'on en est là :
Fichiers *.* sur c
2 passes par méthode, redémarrage après fin de chaque méthode ( effet du cache )
Affichage du décompte nb dossiers/fichiers dans la statusbar pour voir la progression.

FSO 173 s / 54 s
DIR 169 s / 24 s
APIs 134 s / 14 s

Bonsoir le fil, bonsoir le forum,

Peut-être comme ça alors...

Code:

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
27
28
Sub Existence()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim I As Integer 'déclare la variable I (Incrément de ligne)
Dim REP As String 'déclare la variable REP (REPertoire)
Dim Fichier As String 'déclare la variable Fichier
 
Set O = Sheets("Feuil2") 'définit l'onglet O
TC = O.Range("A1").CurrentRegion 'définit le tableau de cellules TC (à adapter si il existe des lignes ou colonnes vides)
For I = 2 To UBound(TC, 1) 'boucle 1 : sur toutes les lignes I du tableau de cellules TC
    REP = TC(I, 11) 'définit le répertoire REP par rapport à la cellule ligne I colonne K
    On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
    ChDir REP 'change le répertoire courant (génère une erreur si le repertoire n'existe pas)
    If Err <> 0 Then 'condition : si une erreur a été générée
        Err = 0 'annule l'erreur
        O.Cells(I, 12).Value = "Dossier inexistant!" 'renvoie ce texte dans la cellule Ligne I colonne 12 (=L)
        GoTo Suite 'va à l'étiquette "Suite"
    End If 'fin de la condition
    On Error GoTo 0 'annule la gestion des erreurs
    Fichier = Dir(REP & "\*.pdf") 'définit la variable Fichier
    If Fichier = "" Then 'condition : si fichier est vide
        O.Cells(I, 12).Value = "Aucun fichier PDF dans ce dossier !" 'renvoie ce texte dans la cellule Ligne I colonne 12 (=L)
    Else 'sinon
        O.Cells(I, 12).Value = "Le dossier le DT existent" 'renvoie ce texte dans la cellule Ligne I colonne 12 (=L)
    End If 'fin de la condition
Suite: 'étiquette
Next I 'prochaine ligne de la boucle
End Sub

J'ai sorti mon sablier et il me semble, en effet, qu'il y a moins de grain de sable qu'avec la première macro...