boite de dialogue saveas

[Manu13]

Bonjour le FORUM

Comment indiquer par défaut un chemin d'enregistrement avec la boite de dialogue saveas(Application.Dialogs(xlDialogSaveAs).Show)?
j'avais essyé avec 'CHDIR' mais me donne mes documents par défaut

merci par avance
bon dimanche
Manu

 

[dg62]

Bonjour Manu

ChDir 'G:\\archives'
    ActiveWorkbook.SaveAs Filename:='monfichier.xls'

Message édité par: dg62, à: 05/02/2006 11:58

 

[Manu13]

Salut dg62

merci pour le code, mais....
je souhaite passer par la boite de dialogue
'Application.Dialogs(xlDialogSaveAs).Show'
et non un enregitrement direct avec la fonction
'ActiveWorkbook.SaveAs Filename'

Merci
Manu

 

[dg62]

re


dans Outils/options/Général/

tu changes le répertoire par défaut tout simplement.

Sub Macro1()

    With Application
        
        .DefaultFilePath = 'g:\\archives'
        
    End With
End Sub

Message édité par: dg62, à: 05/02/2006 12:26

 

[Manu13]

Re
Je suis d'accord avec toi, mais ensuite tout nouveau classeur, le chemin par défaut sera le nouveau chemin modifié or s'il est possible de l'appliquer à un seule classeur

Manu

 

[dg62]

re

et en faissant quelque chose comme cela :

Private Sub Workbook_Open()

  Application.DefaultFilePath = 'g:\\archives'

End Sub

ou avant d'appeler la boite de dialogue saveas
modifier le répertoire par défaut avec

sub changerep()

  Application.DefaultFilePath = 'g:\\archives'

End Sub

Message édité par: dg62, à: 05/02/2006 13:01

 

[Manu13]

re
oui justement j'étais en train de regarder avec le workbook open
et pourquoi pas aussi modifier avant le saveas et rétablir après

Merci et à bientôt
Manu