routine

[david.ridelaire]

salut

voila j'ai ce programme
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
Application.GetSaveAsFilename

End Sub
qui se déroule parfaitement jusqu'à l'enregistrement
en effet lorsque je modifie le nom du fichier il ne s'enregistre pas.

quelqu'un aurait-il une solution

d'avance merci

DAVID

 

[Staple1600]

Re : routine

Bonjour

Ta macro doit faire quoi?

Elle imprime deux fois les feuilles sélectionnées, c'est ca ?

Si elle doit imprimer en deux exemplaires des feuilles groupées
puis enegistrer ton classeur

essaie ta macro modifiée comme ci-dessous

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:=2, Collate:=True
ThisWorkBook.Save
ThisWorkBook.Close
End Sub

 

[david.ridelaire]

Re : routine

désolé staple1600 elle ne fonctionne pas!!!

 

[david.ridelaire]

Re : routine

je pense que c'est cette ligne qui pose problème :
Application.GetSaveAsFilename = "Fichiers Microsoft Excel (*.xls), *.xls"

en effet, lorsque je renomme le fichier il ne s'enregistre pas !!!

 

[david.ridelaire]

Re : routine

j'ai trouvé le problème

la raison pour laquelle elle ne s'éxécutait pas était du au fait qu'il fallait rajouté "a" dans ctrl+ dans option de la routine

en ce qui concerne ton code de programme je souhaiterai enregistrer mon ficher à un endroit précis et sous un autre nom à chaque fois que j'éxécute cette routine

aurais-tu ou auriez vous la solution

d'avance merci

DAVID

 

[Claudy]

Re : routine

Hello, perso, j'utilise ceci:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Eventuellement..pour écraser l'ancien fichier.
'Kill ("C:\Documents and Settings\Tonnom\Mes documents\Sauvegarde.xls")
ThisWorkbook.SaveCopyAs ("C:\Documents and Settings\Tonnom\Mes documents\Sauvegarde.xls")
End Sub
à toi d'adapter
a+
Claudy

 

[david.ridelaire]

Re : routine

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

mais arriver sur la boite de dialogue d'enregistrement et modifier le nom du fichier original pour pouvoir enregistrer une copie du fichier modifié et conserver le fichier original non modifié

comment puis-je faire?
d'avance merci pour les réponses
david