Discussion :

[moilou2]

Bonjour, je voudrais savoir comment fair pour explorer le contenu d'un dossier, depuis un clic sur un bouton.

C'est à dire avoir un aperçu visuell de ce qui ce trouve dans un dossier et pouvoir ensuite choisir le fichier vers lequel on veut naviguer.

[curt]

Bonjour Moilou2,

il existe un excelent tutoriel qui aborde (entre autre) ta demande.
Le lien est là :

http://warin.developpez.com/access/dao/?page=partie_3"

Bonne soirée.
Curt

[Invité]

Bonjour

Bonjour Moilou2,

il existe un excelent tutoriel qui aborde (entre autre) ta demande.
Le lien est là :

http://warin.developpez.com/access/dao/?page=partie_3"

Bonne soirée.
Curt

Je ne vois pas en quoi cela répond à la question, ou j'ai manqué quelque chose.

@moilou :

Peux-tu détailler un peu plus ce que tu veux faire, et le but, il y a plusieurs moyens d'ouvrir une boite de dialogue de sélection de fichiers.

Est-ce pour sélectionner un fichier Excel et en récupérer le nom pour faire un traitement dessus ?
Est-ce autre chose comme visualiser l'explorateur Windows, en utilisant un TreeView ?

Donc un peu plus d'informations, merci.

Philippe

[moilou2]

L'objectif est très simple enfin je pense,

je souhaite cliquer sur un label dans un formulaire et pouvoir arriver dans un dossier et pouvoir ensuite cliquer sur le fichier que je veux dans le dossier.

Il peut s'agir d'un word, d'un Excel, d'un PDF...

[Invité]

Bonjour

Comme toujours, un peu de recherche : http://access.developpez.com/faq/?pa...#AffBoitDialog

Sinon, en faisant des recherches sur FileDialog dans l'aide Access et sur le forum.

Philippe

[moilou2]

Re, bon alors j'ai regardé le lien que tu m'a envoyé, et je me suis penché plus particulièrement sur, le lien suivant:

http://access.developpez.com/faq/?pa...ep#contenu_rep

Adapté à mon code, sa me donne le résultat suivant:

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
17
18
Private Sub ImgDossier_Click()
 
Dim rep As String
'obtient le premier fichier ou répertoire qui est dans "x:\"
rep = Dir("X:\Maintenance\Public\Alain", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep <> "")
    'teste si c'est un fichier ou un répertoire
    If (GetAttr("x:\" & rep) And vbDirectory) = vbDirectory Then
        MsgBox "Répertoire " & rep
    Else
        MsgBox "Fichier " & rep
    End If
    'passe à l'élément suivant
    rep = Dir
Loop
 
End Sub

Mais arrivé à:

Code :

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

If (GetAttr("x:\" & rep) And vbDirectory) = vbDirectory Then

J'ai le message d'erreur suivant qui s'affiche:

Erreur d'execution 53
Fichier Introuvable