Discussion :

[Aliayus87]

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

[kiki29]

Salut, Commence par baliser ton code STP

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thautheme]

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 :

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

[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

[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

[Thautheme]

Bonjour le fi, bonjour le forum,

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

[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)