GetSaveAsFilename aide requise

Bonjour Philippe,

ci-dessous un exemple d'utilisation de la fonction intégrée.

On est dans un userform. On clique su le boutton "Command1" (un
'parcourir'), pour stocker le path d'un fichier dans le textbox "TMet". Je
t'ai laissé l'action chdrive permettant de choisir par défaut le dossier à
ouvrir.

Bon courage,

Poulpor


Private Sub CommandButton1_Click()
On Error Resume Next

If Not IsNull(Me.TMet.Text) Then
ChDrive "Q:"
ChDir FileFolder(Me.TMet.Text)
Else
ChDrive "C:"
End If

toto = Application.GetOpenFilename("Tous (*.*), *.*")
If toto = False Then
Exit Sub
Else
Me.TMet.Text = toto
End If

End Sub

Bonsoir,

Sur la petite routine ci-dessous (que je lance depuis un menu personalisé),
je n'obtiens rien :
que je garde le nom du fichier, ou que je le change,
quand je clique "enregistrer" sur la boîte de dialogue, elle se ferme comme
si tout allait bien, mais rien n'est enregistré.

Je comprends pas ce que j'ai pas compris !
Merci de vos éclaircissements.
Philippe

Sub sauvRecuTresIncomp()
chemin = "U:Enquête 2006Fichiers reçus très incomplets"
ChDir (chemin)
NomFichier = ActiveWorkbook.Name
Application.GetSaveAsFilename (NomFichier)
End Sub