Re : VBA - vérifier existence répertoire
Bonjour,
§ Macro 2 : vérifier la présence d’un fichier dans un répertoire
Sub TesterFichiers()
mois = Sheets("param").Range("D10").Value ‘lire le mois de vérification
Sheets("Fichiers_CC").Activate
rep = Range("b2").Value & mois & "\" 'b2 : adresse physique répertoire
Sheets("regate").Select
Range("E2:E1000").Clear 'mettre à 0 les cellules
Range("D2").Activate
regate = ActiveCell.Value 'récupérer code régate en mémoire
Do While ActiveCell.Value <> "" 'boucler tant que D2 est non-vide
fichier = "cc-" & regate & ".xls" 'nom fichier en utilisant code régate présent dans ce nom
Test = rep & fichier 'associer répertoire et fichier
If Dir(Test) <> "" Then 'si un fichier est trouvé
ActiveCell.Offset(0, 1).Value = "Présent" 'alors le mettre comme présent
Else
ActiveCell.Offset(0, 1).Value = "Absent" 'sinon l'afficher en tant qu'absent
End If
ActiveCell.Offset(1, 0).Activate
regate = ActiveCell.Value
Loop
Range("a1").Activate
End Sub
EDIT : oups j'avais mal lu le problème..