Chemin par defaut ds enregistrer sous

A

Antoine

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

Pièces jointes

  • Classeur1_20051028122003.zip
    9.3 KB · Affichages: 41

Nikolaï

XLDnaute Nouveau
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
 

myDearFriend!

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
312 814
Messages
2 092 340
Membres
105 374
dernier inscrit
kjk