Chemin par defaut ds enregistrer sous

[Antoine]

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ï]

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]

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!]

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