Discussion :

[imaril]

Bonjour le fofo,

Bon, mon titre n'est pas clair, mais je vais expliciter ^^
En gros, je souhaite faire une base de données grâce à excel et pour faire différentes tables et sous tables, je vais organiser ma base de la manière suivante :
1ère catégorie : un dossier
1ère sous catégorie un fichier excel dans ce dossier
2eme sous catégorie : une feuille dans ce fichier excel

et tout ca dans un dossier nommé base... je sais c'est un peu tordu mais c'est tout ce que j'ai trouvé ^^ (si vous avez d'autres idées n'hésitez pas)

Donc pour parcourir cette base et faire une interface, je souhaiterais récupérer dans différentes cellules d'un fichier excel extérieur les noms de chacun des fichiers/dossiers des catégories et sous catégories. En gros faire un dir mais en sauvegardant chacun des trucs... et je ne sais pas du tout dans quelle direction partir

j'espère avoir été assez clair et pas trop confus

merci

=)

[imaril]

bon en fait j'ai trouvé" ma réponse dans l'aide excel je la donne si ca interesse quelqu'un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
' Affiche les noms dans C:\ représentant des dossiers.
MyPath = "R:\CMM\Raphael\Base devis\"    ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory)    ' Extrait la première entrée.
Do While MyName <> ""    ' Commence la boucle.
    ' Ignore le dossier courant et le dossier
    ' contenant le dossier courant.
    If MyName <> "." And MyName <> ".." Then
        ' Utilise une comparaison au niveau du bit pour
        ' vérifier que MyName est un dossier.
        If (GetAttr(MyPath & MyName) _
            And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Affiche l'entrée uniquement si elle
        End If    ' représente un dossier.
    End If
    MyName = Dir    ' Extrait l'entrée suivante.
Loop