Bonjour à tous,

J'essaie d'ouvrir une boite de dialogue pour sélectionner le nom et le chemin d'un fichier excel que je vais ouvrir ensuite. Un peu comme la fonction "Application.GetOpenFilename" de excel. Mais je n'arrive pas à faire ça dans Access.

J'ai essayé la solution du la FAQ-Access ici : https://access.developpez.com/faq/?p...#AffBoitDialog
Alors déjà ce code n'est plus compatible avec office 64bits, j'ai donc du modifier une peu le code pour que ça marche, j'espère que ça n'a rien cassé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Private Declare PtrSafe Sub PathStripPath Lib "shlwapi.dll" Alias "PathStripPathA" (ByVal pszPath As String)
Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongPtr
Mais ça ne marche pas, il ne se passe rien ou ça m'affiche une fenêtre vide.

J'ai également essayé avec le file scripting object mais pareil rien ne se passe.

Voilà mon code :
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
Private Sub cbImporter_Click()   
 
    'Ouverture de la boite de dialogue de sélection
    Dim sFileName As String
'    sFileName = Application.GetOpenFilename(FiltreDeFichier)
'    MsgBox OuvrirUnFichier(Application.hWndAccessApp, "Parcourir", 1, "Fichier Excel", "xls")
 
    Dim fDialog
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
 
    If sFileName <> False Then
        Call Import_NC(sFileName)
    End If
 
End Sub
Auriez-vous une solution pour faire apparaitre cette boite de dialogue ?