Discussion :

[ViKtOr]

bonjour à tous

je travail avec access97 et j'aurai besoin d'un peu d'aide.

je voudrai créer un menu déroulant qui liste des fichiers word et excel et en cliquant sur un bouton, ouvrir le document sélectionné

le but de cette manip, est de permettre à un n'importe quel utilisateur de rajouter un nouveau document word/excel dans un fichier spécifique, et suite a ce rajout de retrouver le fichier dans le menu déroulant.

merci d'avance

[Muhad'hib]

Salut ViKtOr,

D'abord, bienvenu sur le forum.

Tu devrais faire des recherches sur le site, il y a des tuto et des code source qui t'indiquerons comment rechercher la liste des fichiers .doc et .xls d'un rep. D'autres t'indiquerons comment ouvrir un tel fichier depuis Access.

Bon courage.

Tu peux commencer par ces liens :

http://access.developpez.com/sources...ercheRecursive

http://access.developpez.com/faq/?pa...#AffBoitDialog

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

http://access.developpez.com/faq/?page=Office

[ViKtOr]

merci pour la réponse, je vais regarde les liens

[ViKtOr]

tes liens sont interressants, cependant je ne voit pas comment afficher la liste des fichiers .doc .xls de mon repertoire dans un menu déroulant

[Muhad'hib]

Il faut s'en inspirer. Par exemple tu peux mettre ce code dans l'évenement Load de ton form :

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
19
20
21
22
23
24
25
26
27
 
Option Compare Database
Option Explicit
 
Const Chemin As String = "c:\"
 
 
Private Sub Form_Load()
Dim Nom As String
 
Me.tb_rep = Chemin
Me.lb_fichiers.RowSourceType = "Value List"
Me.lb_fichiers.RowSource = ""
Nom = Dir(Chemin)
 
Do Until Nom & "" = ""
    If Len(Nom) > 3 Then
 
        If Right(Nom, 3) = "xls" Or Right(Nom, 3) = "doc" Then
            Me.lb_fichiers.RowSource = Chemin & Nom & "; " & Me.lb_fichiers.RowSource
        End If
    End If
    Nom = Dir
Loop
Me.lb_fichiers.RowSource = Left(Me.lb_fichiers.RowSource, Len(Me.lb_fichiers.RowSource) - 2)
 
End Sub

Pour plus d'info fais un F1 sur Dir

En t'inspirant des tuto tu dois pouvoir créer le code de l'évenement doubleclique de ta zone de liste

A+

[ViKtOr]

merci pour ton aide

je vais essayer de créer mon idée et je vous tiens o courant