Vbdirectory

If vbDirectory = 16 Then '16 = dossier ou fichier !!!!!!!!!!

Bonjour.
Dans l'aide VBA, vbDirectory = 16 désigne les dossiers, ou répertoires, pas
les fichiers.
Cordialement.
Daniel

Exemple : Lister tous les fichiers excel du répertoire c:

'-----------------------------
Sub Voir()

Dim Tableau()
Dim Chemin As String
Chemin = "c:"

x = Dir(Chemin & "*.xls")

Do While Len(x) > 0
ReDim Preserve Tableau(Compteur)
Tableau(Compteur) = x
Compteur = Compteur + 1
x = Dir()
Loop
Range("A1").Resize(UBound(Tableau) + 1) = _
Application.Transpose(Tableau)

End Sub
'-----------------------------



"Georges Schell" <gs@schell--audit.com> a écrit dans le message de news:
C1A2DB60.605E1%gs@schell--audit.com...
Bonjour,

Je bute sur un problème que je ne sais pas résoudre :

Je récupère la liste des dossiers et fichiers compris sur un endroit
précis d'un disque dur comme ceci :

Do While (Len(TITRE) > 0) 'LEN = NBCAR
ReDim Tableau(Compteur)
Tableau(Compteur - 1) = TITRE
If vbDirectory = 16 Then '16 = dossier ou fichier !!!!!!!!!!
MsgBox "Dossier"
End If
chemin_fichier = chemincomplet
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
chemincomplet & TITRE
'LigneCompteur = Compteur + 1
ActiveCell.Value = Tableau(Compteur - 1)
ActiveCell.Offset(1, 0).Range("A1").Select
' Compteur = Compteur + 1
TITRE = Dir()
Loop

vbdirectory renvoie à la fois des fichiers et des dossiers (code16) :
comment séparer les dossiers des fichiers ?

Merci de vos lumières et bien amicalement,

Georges

Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !