boite de dialogue saveas

dg62

XLDnaute Barbatruc

• 5 Février 2006

• #2

Bonjour Manu

Code:

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

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

 

Vote positif 0 Vote négatif

M

Manu13

XLDnaute Occasionnel

• 5 Février 2006

• #3

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 5 Février 2006

• #4

re


dans Outils/options/Général/

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

Code:

Sub Macro1()

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

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

 

Vote positif 0 Vote négatif

M

Manu13

XLDnaute Occasionnel

• 5 Février 2006

• #5

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 5 Février 2006

• #6

re

et en faissant quelque chose comme cela :

Code:

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

Code:

sub changerep()

  Application.DefaultFilePath = 'g:\\archives'

End Sub

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

 

Vote positif 0 Vote négatif

M

Manu13

XLDnaute Occasionnel

• 5 Février 2006

• #7

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

 

Vote positif 0 Vote négatif