Bonjour,

en m'inspirant de diverses sources, j'arrive à partir d'un bouton dans un formulaire à ouvrir une fenêtre 'Enregistrer sous ...'.
Par contre, je n'arrive pas à récupérer le chemin indiqué par l'utilisateur pour exporter ses résultats.
J'ai fait le code suivant :

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
 
Private Sub Export_Click()
 
  Dim MonSQL As String
Dim oDb As DAO.Database
Dim oQdf As DAO.Recordset
Dim strQry As String
Dim MonChemin As String
 
 
strQry = "Temp_" & Int(Timer * 100)
 
MonSQL = Me.lstResults.RowSource
Set oDb = CurrentDb
 
Set odqf = oDb.CreateQueryDef(strQry, MonSQL)
 
MsgBox EnregistrerUnFichier(Me.Hwnd, "Enregistrer sous", "ma_Selection.txt", "C:\Mes documents")
 
 
MonChemin = Me.Hwnd
DoCmd.TransferText acExportDelim, , strQry, MonChemin, True
 
 
oDb.QueryDefs.Delete strQry
 
End Sub
De ce que j'ai compris, c'est le Hwnd qui porte le chemin. Comment le récupérer car je n'arrive pas à créer le fichier à l'endroit indiqué par l'utilisateur ?

Merci pour votre aide