Discussion :

[Menalm11]

Bonjour le forum,

J'ai besoin de votre aide vraiment

J'ai un fichier Excel qui contient des numéros uniques, ces numéros constituent la première partie des noms des dossiers dans un répertoire.

Par exemple dans le fichier Excel on a la numéro "123", on trouve dans le répertoire un dossier nommé "123-XXX".

Dans tous les dossiers on a un sous dossier nommé "sécurité". Souvent dans le sous dossier "sécurité" on a des autres sous dossiers souvent non. Mon objectif c'est de vérifier que si parmi les sous dossiers du sous dossier "sécurité", il y 'a un un sous dossier nommé "Amiante", si oui s'assurer qu'il n'est pas vide.

Est ce que quelqu'un peut m'aider sur le macro

J'ai cette macro mais ne marche pas:

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
Sub VerifierDosAmiante()
Dim dossier As String, chemin As String, num As String, pasvidefic As String
Dim dossier1 As String, num1 As Range, ok As Range, dl As Long
chemin = "C:\Users\fgp\DosTest\" 'On définit le chemin du fichier
dl = Sheets("GE S").Cells(Rows.Count, 1).End(xlUp).Row
Set num1 = Sheets("GE S").Range("A2")
dossier1 = "\Securite\Amiante\"
For i = 2 To dl
num = num1.Value 'on définit le numéro d'immobilisation contenu dans le fichier
 
    fichier = Dir(chemin & num & "*" & dossier1, vbDirectory Or vbHidden) 'cherche le fichier dans le chemin correspondant
    Do While fichier <> ""
    If fichier <> "." And fichier <> ".." Then Exit Do
    fichier = Dir
 Loop
 pasvidefic = Dir(fichier, vbNormal Or vbHidden)
 If fichier & pasvidefic = "" Then
   Sheets("GE S").Range("D" & i) = "Not OK"
 Else
   Sheets("GE S").Range("D" & i) = "OK"
 End If
Set num1 = num1.Offset(1, 0) ' on passe au numéro de fichier suivant
num1.Select
Next
End Sub

Merci d'avance.

[EricDgn]

Bonjour,

A tester (non vérifié):

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
Option Explicit
 
Sub VerifierDosAmiante()
    Dim ChDoss As String, ChAmiante As String, dl As Long
    ThisWorkbook.Sheets("GE S").Select
    dl = Cells(Rows.Count, 1).End(xlUp).Row                 '--- n° dernière ligne
    For i = 2 To dl                                         '--- n° ligne
        Range("A" & i).Select
        ChDoss = "C:\Users\fgp\DosTest\" & ActiveCell.Value & "*"
        Range("D" & i) = "Not OK"
        Do While ChDoss <> ""
            ChAmiante = ChDoss & "\Securite\Amiante"
            Debug.Print ChAmiante
            If Dir(ChAmiante, vbDirectory) = "" Then
                '--- sous-dossier Amiante non trouvé
                ChDoss = Dir
            Else
                '--- sous-dossier Amiante trouvé
                If Dir(ChAmiante & "\", vbNormal) <> "" Then
                    '--- au moins 1 fichier dans sous-dossier Amiante
                    Range("D" & i) = "OK"
                    Exit Do
                End If
            End If
        Loop
    Next
End Sub

Cordialement.