Discussion :

[lbar012001]

bonjour
je souhaite pouvoir, sur clic d'un bouton enregistrer sous un état dans un lieu à choisir par l'utilisateur
j'ai les fonctions suivantes qui marchent bien et répondent à ma demande

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
 
Function findpath()
 
Dim dlgopen As Object
 
Set dlgopen = Application.FileDialog(msoFileDialogSaveAs)
 
With dlgopen
    .AllowMultiSelect = False
    If .Show = -1 Then
        findpath = .SelectedItems(1)
    Else
        findpath = "Aborted"
    End If
End With
 
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub bSave_Click()
 
filename = findpath
 
If filename = "Aborted" Then
    info = MsgBox("Operation aborted by user", vbCritical, "Save copy")
    DoCmd.SetWarnings True
    Exit Sub
End If
 
DoCmd.OutputTo acReport, "DISPLAY_ORDO", "SnapshotFormat(*.snp)", filename, False, "", 0
 
End Sub

maintenant je souhaite pouvoir, dans la zone "nom de fichier" de la boite qui va s'ouvrir mettre une valeur par défaut, récupérée dans mon appli, afin d'avoir un nom de fichier par défaut (qui reste modifiable) et non une zone vierge

savez vous comment faire ?

merci
laurent

[Jack78960]

salut, regarde l'aide à :

FileDialog.InitialFileName, propriété

[lbar012001]

salut et merci de ton conseil
j'ai essayé avec le initialfilename, j'y arrive pas
j'ai essayé en affectant directement ma variable filename, marche pas non plus
ma zone de nom de fichier rest vierge dans la boite, de même que le format
...

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
Dim dlgopen As Object
 
Set dlgopen = Application.FileDialog(msoFileDialogSaveAs)
 
With dlgopen
    .AllowMultiSelect = False
    '.InitialFileName = "titi"
 
    If .Show = -1 Then
        filename = "toto"
    Else
        filename = "Aborted"
    End If
End With
 
If filename = "Aborted" Then
    info = MsgBox("Operation aborted by user", vbCritical, "Save copy")
    Exit Sub
End If
 
DoCmd.OutputTo acReport, "DISPLAY_ORDO", "SnapshotFormat(*.snp)", filename, False, "", 0

[lbar012001]

autant pour moi ça marche maintenent
merci pour ton aide
laurent