Excel XP: Boite de dialogue Enregsitrer sous ...

[webcyril]

Hello,

Sous Excel 2002, je cherche a afficher la boite de dialogue 'Enregistrer sous ...' pour enregistrer un fichier dans un répertoire donné que l'utilisateur peut changer !
Sous NT4, je n'ai pas de soucis mais sous XP, le code ci-dessous ne me change pas le répertoire ???
nb: le répertoire c:\local\msc\etudes\edit existe !

Voici mon code:

Private Sub CommandButton1_Click()
Dim wrep As Variant
Dim wext As String

Dim wrepertoire As String

wrepertoire = "c:\local\msc\etudes\edit"
wext = "toto.xls"

ChDrive Mid(wrepertoire, 1, 3)
ChDir (wrepertoire)

wrep = Application.Dialogs(xlDialogSaveAs).Show(wext)
MsgBox wrep
End Sub

Merci de votre aide ...
webcyril

 

[stef]

hello!

oohhhh la pas si compliqué siouplai

wrep=Application.GetOpenFileName (.............) doit faire l'affaire.

ca marche ????

 

[webcyril]

C'est enregsitrer sous que je veux et pas ouvrir !!

 

[webcyril]

En cherchant un peu, cette fonction correspond à mon attente ...

Si vous avez d'autre idée ??


Function PREnregistrer_Sous_XLS(wrepertoire As String, wext As String) As Variant
Dim wrep As Variant

ChDrive Mid(wrepertoire, 1, 3)
ChDir (wrepertoire)

On Error GoTo Trait_Err
wrep = Application.GetSaveAsFilename(wrepertoire & "\" & wext, _
"Classeur Microsoft Excel (*.xls),*.xls")
If wrep <> False Then
ActiveWorkbook.SaveAs wrep
End If

PREnregistrer_Sous_XLS = wrep
Exit Function
Trait_Err:
PREnregistrer_Sous_XLS = False
End Function