Discussion :

[jeje22]

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

[helas]

Bonjour,
Cela serait peut-être plus simple avec FileDialog (voir Aide)

[Tofalu]

De ce que j'ai compris, c'est le Hwnd qui porte le chemin.

Non, la fonction Enregistrer sous retourne le chemin. Stocke son resultat dans une variable au lieu de l'afficher.