Chemin par defaut ds enregistrer sous

Antoine · 28 Octobre 2005

Bonjour cher forum...

Comment ca va?

Je bute juste sur un pti truc..

Je n arrive pas a afficher le chemin que j ai definit ds ma macro lors de l ouverture de la boite de dialogue de ' Enregistrer sous'.

j ecris

Sub
ChDir 'D:\\mes docs\\Portable' 'definit le chemin par defaut qui apparait dans la boite de dialogue qui s ouvre'
Application.Dialogs(xlDialogSaveAs).Show 'baby'

End sub

Merci de votre aide

Antoine

P.s.: j ai joint un fichier au cas ou
[file name=Classeur1_20051028122003.zip size=9487]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051028122003.zip[/file]

Nikolaï · 28 Octobre 2005

Bonjour Antoine

Ton code ne marches pas car il faut tu mettre un variable sinon tu ne connaitra pas la réponse des personnes qui utiliseront cette fonction.

Filename = Application.Dialogs(xlDialogOpen).Show('baby')

Cela devrait marcher !!!
Christophe

Antoine · 28 Octobre 2005

Merci Niko
mais ca ne marche pas

C est toujours le chemin par defaut qui s affiche est pa celui que je veux imposer..

j arrive pas a activer ce chdir comme il fo...

Antoine

myDearFriend! · 28 Octobre 2005

Bonsoir Antoine, Nikolaï,

Si le lecteur courant n'est pas le lecteur D, il convient également de modifier ce lecteur courant par ChDrive 'D' ...
Pour ma part, je m'affranchis de ce problème en utilisant la méthode GetSaveAsFilename au lieu d'utiliser l'objet Dialogs.

Ci-dessous, peut-être donc une autre façon de faire :

Sub Grave()
Dim FichierCible As Variant
Dim Chemin As String
      Chemin = IIf(Worksheets('Feuil1').Range('A1') = 'OK', 'D:\mes docs\Portable\baby', 'common')

      FichierCible = Application.GetSaveAsFilename(InitialFileName:=Chemin, _
                              FileFilter:='Classeur Excel (*.xls), *.xls', _
                              Title:='Enregistrez votre document...')

      If FichierCible <> False Then
            ThisWorkbook.SaveAs Filename:=Chemin
            MsgBox 'Fichier sauvegardé sous : ' & FichierCible
      Else
            MsgBox 'Sauvegarde annulée !'
      End If
End Sub

Cordialement,

Message édité par: myDearFriend!, à: 28/10/2005 21:52

Chemin par defaut ds enregistrer sous

Antoine

Guest

Pièces jointes

Nikolaï

XLDnaute Nouveau

Antoine

Guest

myDearFriend!

XLDnaute Barbatruc

Discussions similaires