Discussion :

[Stéphane Olivier BERNARD]

Bonjour,

Je cherche dans le cadre d'un projet de GED à réaliser une boite de dialogue me permettant d'aller récupérer des fichiers de types "doc","pdf","vsd" et autres afin de les référencer dans une base access 2003.

J'ai trouvé dans la FAQ une boite de dialogue permettant de le faire:
http://access.developpez.com/faq/?pa...#AffBoitDialog

Cependant, en utilisant cette boite on ne peux spécifier qu'un seul type de fichier à la fois "doc" ou "pdf" ou "xls"... et sinon la recherche porte sur tous les types de fichiers

Est ce que quelqu'un aurait une idées pour changer le:
"Fichier Word", "doc"
en un {"Fichier Word";"Fichier pdf";"Fichier visio"}, {"doc";"pdf";"vsd"}

Enfin quelque chose dans le genre...

[helas]

Pour une recherche séparée des types de fichiers

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
 
 Dim fd As Office.FileDialog
 
 Set fd = Application.FileDialog(msoFileDialogOpen)
 
With fd
    With .Filters
     .Clear
     .Add "Fichiers Word", "*.doc"
     .Add "Fichiers pdf", "*.pdf"
     .Add "Fichiers visio", "*.vsd"
    End With
    .AllowMultiSelect = True
    .Show
End With

Pour une recherche communes des types de fichiers

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Dim fd As Office.FileDialog
 
 Set fd = Application.FileDialog(msoFileDialogOpen)
 
With fd
    With .Filters
     .Clear
     .Add "Fichiers Word;Fichiers pdf;Fichiers vsd", "*.doc;*.pdf;*.vsd"
 
    End With
    .AllowMultiSelect = True
    .Show
End With

reference : Microsoft Office xx.x Object Library

[Stéphane Olivier BERNARD]

Bonjour Helas,

J'avais vu les référrences à "Microsoft Common Dialog Control" dans la FAQ mais je n'avais pas vu la possibilité d'utiliser Office.FileDialog...

J'ai ajouté la référence, j'arrive à selectionner les fichiers que je souhaite mais j'ai encore un petit souci...

Comment lire la valeur de la sélection réalisée ?

J'ai essayé fd.fileName, fd.value mais bon ça doit être autre chose...

Peux tu me dire comment obtenir le résultat de la sélection opérée STP...

D'avance merci pour cette prompte réponse.

[helas]

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
 
Dim fd As Office.FileDialog, v As Variant
 
 Set fd = Application.FileDialog(msoFileDialogOpen)
 
 With fd
 
  With .Filters
   .Clear
   .Add "Word;Pdf;Visio", "*.doc;*.pdf;*.vsd"
  End With
  .Show
 End With
 
 
 For Each v In fd.SelectedItems
  MsgBox ("Fichier " & v & " sélectionné")
 Next v

ou stocker les fichiers dans une table

Code :

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

1
2
3
4
5
6
7
8
 
 Set rst = CurrentDB.OpenRecordset("TableFichiers")
 For Each v In fd.SelectedItems
  rst.AddNew
  rst!fichier = v
  rst.Update
 Next v
 rst.Close

[Stéphane Olivier BERNARD]

Merci à toi helas !