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.