VBA - vérifier existence répertoire

[FoLKeN]

Bonjour à tous !

Je souhaiterais savoir comment on fait pour vérifier, dans une macro vba, l'existence d'un répertoire ou d'un fichier (avant d'y accéder ou de l'ouvrir). Comme ca s'il n'existe pas, traiter l'erreur comme il le faut.

Merci d'avance 🙂

 

[MJ13]

Re : VBA - vérifier existence répertoire

Bonjour Folken.

Dans un premier temps regardes en bas les discussions similaires.

 

[nat54]

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

 

[FoLKeN]

Re : VBA - vérifier existence répertoire

Ahah merci pour toute cette macro ^^,

Je venais de faire un tour sur les sujets similaires comme l'a suggéré MJ13 et j'ai utilisé ça au final:

Function FileExists(FileName As String) As Boolean
FileExists = Dir(FileName) <> ""
End Function

Tu utilises la même chose nat54, et en effet ca a l'air de bien fonctionner 🙂
Merci à vous 2!