Discussion :

[Gabout]

Bonjour,

J'utilise... ou plutôt j’essaie d'utiliser le code de la FAQ permettant de sélectionner un répertoire.
Malheureusement, j'essuie un plantage systématique d'Access à l'exécution.

Je suis sur une architecture 64 bits. J'ai donc ajouté PtrSafe aux déclarations.

Avez-vous une idée ?

[Gabout]

Las de chercher ou de n'avoir reçu de conseil, je suis passé par un objet FileDialog :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim oFd As Office.FileDialog
'créer un objet FileDialog
Set oFd = Application.FileDialog(msoFileDialogFolderPicker)
'titre de la boîte
oFd.Title = "Sélectionnez un dossier "
'afficher la boîte et traiter le résultat
If oFd.Show() Then
  MsgBox "Vous avez sélectionné le dossier : " _
      & vbCrLf & oFd.SelectedItems(1), vbInformation
End If
Set oFd = Nothing

... et cela fonctionne !