Discussion :

[Superpat9999]

Bonjour,
Je souhaite juste sélectionner, dans une boîte de dialogue le fichier en cours, ou un autre.
Si je sélectionne le fichier en cours, j'ai l'erreur :

Je ne souhaite pas le lancer, juste récupérer le nom. Ce qui fonctionne parfaitement pour tout autre fichier.
Y a-t-il un moyen de contourner ce problème ?

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
Private Sub cmbSourceFile_Click()
   Dim oFD As FileDialog
 
'    msoFileDialogFilePicker : 3 ;
'    msoFileDialogFolderPicker : 4 ;
'    msoFileDialogOpen: 1 ;
'    msoFileDialogSaveAs : 2.
 
   Set oFD = Application.FileDialog(3)
 
   With oFD
      With .Filters
          .Clear
          .Add "Fichiers Access", "*.accdb", 1
          .Add "Tous", "*.*", 2
      End With
      .InitialFileName = "H:\Crête\Travail\"
      .Title = "Sélectionnez un fichier"
      .ButtonName = "Sélectionner"
      If .Show Then
On Error Resume Next
         'MsgBox .SelectedItems(1)
         tbxSourceFileName.Value = oFD.SelectedItems(1)
      End If
   End With
End Sub

Merci de votre aide.

[tee_grandbois]

bonjour,
le problème vient d'ailleurs car il est tout à fait possible de sélectionner la base en cours depuis FileDialog.
Le message d'erreur peut faire penser à une base ouverte en mode exclusif, ce qui, dans ce cas, empêche sa sélection

PS: je rappelle que ce sous-forum est dédié aux questions concernant les Macros Access et non au code VBA ...

[Superpat9999]

Désolé,
Je ferme et je reprends la discussion dans le forum IHM.

[hyperion13]

Salut
Pas IHM mais plus tôt ici