Probleme Routine

[david.ridelaire]

bonjour à tous

voilà je me suis fait une petite routine :

Sub AVOIR()
'
' AVOIR Macro
' Macro enregistrée le 09/10/2007 par D&B
'
' Touche de raccourci du clavier: Ctrl+a
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ChDir "J:\DR\AVOIR"
ActiveWorkbook.SaveAs Filename:="J:\DR\AVOIR\DA.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

mais je souhaiterai arriver sur la boite de dialogue enregistrer afin de renommer le fichier, plutôt qu'il s'enregistre automatiquement

quelq'un aurait-il une solution d'avance
merci
david

 

[Fchris]

Re : Probleme Routine

Bonjour David.ridelaire,

Pour ce faire il te suffit d'enlever le nom du fichier ce qui te donne :

ActiveWorkbook.SaveAs Filename:= _

et la suite de ton code

@+

 

[Pierrot93]

Re : Probleme Routine

Bonjour David

essaye la méthode "GetSaveAsFilename"

Application.GetSaveAsFilename

bonne fin d'après midi
@+

 

[Pierrot93]

Re : Probleme Routine

Re

Fchris, je crains qu'en l'état ton code retourne un message d'erreur, d'autre par si rien de spécifié, enregistre dans le répertoire courant.

@+

 

[herve62]

Re : Probleme Routine

tu affectes une variable à ton nomde fichier via une "inputbox"
exemple attaché

 

[david.ridelaire]

Re : Probleme Routine

POUR CELA J'UTILISE
ub AVOIR()
'
' AVOIR Macro
' Macro enregistrée le 09/10/2007 par D&B
'

' Touche de raccourci du clavier: Ctrl+a

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.GetSaveAsFilename
End Sub
CELA MARCHE PARFAITEMENT