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

olic95 · 1 Décembre 2006

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 · 1 Décembre 2006

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 · 1 Décembre 2006

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 · 1 Décembre 2006

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

Salut à tous,

Essaie avec :

Code:

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

Bon courage

olic95 · 1 Décembre 2006

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.

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

olic95

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

olic95

XLDnaute Junior

Jam

XLDnaute Accro

olic95

XLDnaute Junior

Discussions similaires