Dir pour tester la présence d'un répertoire

[olic95]

Bonjour le forum,

J'ai un répertoire toto sur mon disque C -> C:\TOTO

Dans une macro, je renseigne une variable REP en faisant

REPERTOIRE = Thisworkbook.Path
REP = DIR(REPERTOIRE & "\")

Et bien REP = "" alors que TOTO existe !!! J'ai essayé sans le & "\", j'obtiens le même résultat.

Je ne vois pas d'erreur dans ma formule, et REPERTOIRE prend bien la valeur C:\TOTO

D'avance merci.

Olivier.

 

[Pierrot93]

Re : Dir pour tester la présence d'un répertoire

Bonjour Olivier

En principe "Dir" devrait te renvoyer le 1er fichier contenue dans "C:\TOTO", existe t il des fichiers dans ce répertoire ?

bon après midi
@+

 

[olic95]

Re : Dir pour tester la présence d'un répertoire

Bonjour Pierrot,

L'aide VBA dit

Renvoie une valeur de type String représentant le nom d'un fichier, d'un répertoire ou d'un dossier correspondant à une chaîne de recherche, à un attribut de fichier ou au nom de volume d'un lecteur.

puis

Cet argument peut préciser le répertoire ou dossier et le lecteur. Une chaîne de longueur nulle est renvoyée si l'argument pathname est introuvable.

Oui, il y a un fichier dans mon répertoire. Mais moi je cherche à tester la présence du répertoire en lui même et non de fichiers dans ce répertoire !

 

[Jam]

Re : Dir pour tester la présence d'un répertoire

Salut à tous,

Essaie avec :

REPERTOIRE= Thisworkbook.Path
REP = Dir(REPERTOIRE, vbDirectory)
If REP<> "" Then
    MsgBox "Ce répertoire existe déjà.", vbCritical
End If

Bon courage

 

[olic95]

Re : Dir pour tester la présence d'un répertoire

Salut Jam,

Ca m'a l'air impeccable, oui. Je teste plus loin dans la macro et je te tiens au courant.

Merci à vous deux.

Olivier.