Bonjour,
J'aimerais modifier le code ci-joint pour :
- que le nom du fichier soit ce qu'il y a d'ecrit dans une de mes cellules
- que seul la page 1 s'imprime
Merci de me venir en aide
___________________________________________________
Private Sub CommandButton1_Click()
Dim DocName As String
DocName = Format(Now, "yyyy mm dd hh mm ss")
' On sauvergarde
ActiveWorkbook.SaveAs
Filename:="Z:\Services\SCA\SAV\Hotline\Fax_rebut\sauvegardes\" & DocName
' On imprime
ActiveWindow.SelectedSheets.PrintOut
' On sauvegarde après l'impression
ActiveWorkbook.Save
' On ferme
ActiveWindow.Close
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy SEMPERE
Bonjour
Je t'ai répondu sous mpfe...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "GPL" a écrit dans le message news: bm12qa$4rt$
Bonjour, J'aimerais modifier le code ci-joint pour : - que le nom du fichier soit ce qu'il y a d'ecrit dans une de mes cellules - que seul la page 1 s'imprime Merci de me venir en aide ___________________________________________________ Private Sub CommandButton1_Click() Dim DocName As String DocName = Format(Now, "yyyy mm dd hh mm ss") ' On sauvergarde ActiveWorkbook.SaveAs Filename:="Z:ServicesSCASAVHotlineFax_rebutsauvegardes" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close End Sub
Bonjour
Je t'ai répondu sous mpfe...
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"GPL" <moi@nospam.wanadoo.fr> a écrit dans le message news:
bm12qa$4rt$1@news-reader5.wanadoo.fr...
Bonjour,
J'aimerais modifier le code ci-joint pour :
- que le nom du fichier soit ce qu'il y a d'ecrit dans une de mes cellules
- que seul la page 1 s'imprime
Merci de me venir en aide
___________________________________________________
Private Sub CommandButton1_Click()
Dim DocName As String
DocName = Format(Now, "yyyy mm dd hh mm ss")
' On sauvergarde
ActiveWorkbook.SaveAs
Filename:="Z:ServicesSCASAVHotlineFax_rebutsauvegardes" & DocName
' On imprime
ActiveWindow.SelectedSheets.PrintOut
' On sauvegarde après l'impression
ActiveWorkbook.Save
' On ferme
ActiveWindow.Close
End Sub
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "GPL" a écrit dans le message news: bm12qa$4rt$
Bonjour, J'aimerais modifier le code ci-joint pour : - que le nom du fichier soit ce qu'il y a d'ecrit dans une de mes cellules - que seul la page 1 s'imprime Merci de me venir en aide ___________________________________________________ Private Sub CommandButton1_Click() Dim DocName As String DocName = Format(Now, "yyyy mm dd hh mm ss") ' On sauvergarde ActiveWorkbook.SaveAs Filename:="Z:ServicesSCASAVHotlineFax_rebutsauvegardes" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close End Sub
