Excel XP: Boite de dialogue Enregsitrer sous ...

  • Initiateur de la discussion Initiateur de la discussion webcyril
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

W

webcyril

Guest
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
20
Affichages
3 K
Retour