Imprimer une seul page et enregistrer sous le nom d'une cellule
7 réponses
GPL
Bonjour,
J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression
j'aimerais que seul la page 1 ne sorte.
Merci de votre 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
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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
Un truc du genre :
Dim DocName As String
DocName = Range("TaCellule")
' On sauvergarde
ActiveWorkbook.SaveAs "D:" & DocName
' On imprime
ActiveWindow.SelectedSheets.PrintOut 1, 1
' On sauvegarde après l'impression
ActiveWorkbook.Save
' On ferme
ActiveWindow.Close
@+
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:
bm1293$t21$1@news-reader4.wanadoo.fr...
Bonjour,
J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression
j'aimerais que seul la page 1 ne sorte.
Merci de votre 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
--------------------------------------------------------------
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
GPL
Super, merci Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de l'objet '_Workbook' a échoué" Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" a écrit dans le message de news:bm134k$p6q$
Bonjour
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
Super, merci
Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de
l'objet '_Workbook' a échoué"
Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news:bm134k$p6q$1@muguet.sncf.fr...
Bonjour
Un truc du genre :
Dim DocName As String
DocName = Range("TaCellule")
' On sauvergarde
ActiveWorkbook.SaveAs "D:" & DocName
' On imprime
ActiveWindow.SelectedSheets.PrintOut 1, 1
' On sauvegarde après l'impression
ActiveWorkbook.Save
' On ferme
ActiveWindow.Close
@+
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:
bm1293$t21$1@news-reader4.wanadoo.fr...
Bonjour,
J'aimerais modifier ce qui suit pour que le nom de l'enregistrement
prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression
j'aimerais que seul la page 1 ne sorte.
Merci de votre 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
--------------------------------------------------------------
Super, merci Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de l'objet '_Workbook' a échoué" Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" a écrit dans le message de news:bm134k$p6q$
Bonjour
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
Jessy SEMPERE
Re bonjour,
tu as bien remplacer "TaCellule" par "A1" par exemple ???
@+ 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: bm141v$n03$
Super, merci Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de l'objet '_Workbook' a échoué" Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" a écrit dans le message de news:bm134k$p6q$
Bonjour
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
Re bonjour,
tu as bien remplacer "TaCellule" par "A1" par exemple ???
@+
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:
bm141v$n03$1@news-reader1.wanadoo.fr...
Super, merci
Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de
l'objet '_Workbook' a échoué"
Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news:bm134k$p6q$1@muguet.sncf.fr...
Bonjour
Un truc du genre :
Dim DocName As String
DocName = Range("TaCellule")
' On sauvergarde
ActiveWorkbook.SaveAs "D:" & DocName
' On imprime
ActiveWindow.SelectedSheets.PrintOut 1, 1
' On sauvegarde après l'impression
ActiveWorkbook.Save
' On ferme
ActiveWindow.Close
@+
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:
bm1293$t21$1@news-reader4.wanadoo.fr...
Bonjour,
J'aimerais modifier ce qui suit pour que le nom de l'enregistrement
prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression
j'aimerais que seul la page 1 ne sorte.
Merci de votre 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
--------------------------------------------------------------
tu as bien remplacer "TaCellule" par "A1" par exemple ???
@+ 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: bm141v$n03$
Super, merci Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de l'objet '_Workbook' a échoué" Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" a écrit dans le message de news:bm134k$p6q$
Bonjour
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
GPL
Oups désolé mais ca marche tres bien Encore merci
"GPL" a écrit dans le message de news:bm141v$n03$
Super, merci Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de l'objet '_Workbook' a échoué" Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" a écrit dans le message de news:bm134k$p6q$
Bonjour
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
Oups désolé mais ca marche tres bien
Encore merci
"GPL" <moi@nospam.wanadoo.fr> a écrit dans le message de
news:bm141v$n03$1@news-reader1.wanadoo.fr...
Super, merci
Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de
l'objet '_Workbook' a échoué"
Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news:bm134k$p6q$1@muguet.sncf.fr...
Bonjour
Un truc du genre :
Dim DocName As String
DocName = Range("TaCellule")
' On sauvergarde
ActiveWorkbook.SaveAs "D:" & DocName
' On imprime
ActiveWindow.SelectedSheets.PrintOut 1, 1
' On sauvegarde après l'impression
ActiveWorkbook.Save
' On ferme
ActiveWindow.Close
@+
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:
bm1293$t21$1@news-reader4.wanadoo.fr...
Bonjour,
J'aimerais modifier ce qui suit pour que le nom de l'enregistrement
prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression
j'aimerais que seul la page 1 ne sorte.
Merci de votre 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
--------------------------------------------------------------
Super, merci Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de l'objet '_Workbook' a échoué" Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" a écrit dans le message de news:bm134k$p6q$
Bonjour
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
sabatier
conclusion : ce GPL est bien devenu super.. jps
GPL wrote:
Oups désolé mais ca marche tres bien Encore merci
"GPL" a écrit dans le message de news:bm141v$n03$
Super, merci Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de l'objet '_Workbook' a échoué" Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" a écrit dans le message de news:bm134k$p6q$
Bonjour
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
conclusion : ce GPL est bien devenu super..
jps
GPL wrote:
Oups désolé mais ca marche tres bien
Encore merci
"GPL" <moi@nospam.wanadoo.fr> a écrit dans le message de
news:bm141v$n03$1@news-reader1.wanadoo.fr...
Super, merci
Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de
l'objet '_Workbook' a échoué"
Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news:bm134k$p6q$1@muguet.sncf.fr...
Bonjour
Un truc du genre :
Dim DocName As String
DocName = Range("TaCellule")
' On sauvergarde
ActiveWorkbook.SaveAs "D:" & DocName
' On imprime
ActiveWindow.SelectedSheets.PrintOut 1, 1
' On sauvegarde après l'impression
ActiveWorkbook.Save
' On ferme
ActiveWindow.Close
@+
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:
bm1293$t21$1@news-reader4.wanadoo.fr...
Bonjour,
J'aimerais modifier ce qui suit pour que le nom de l'enregistrement
prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression
j'aimerais que seul la page 1 ne sorte.
Merci de votre 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
--------------------------------------------------------------
Super, merci Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de l'objet '_Workbook' a échoué" Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" a écrit dans le message de news:bm134k$p6q$
Bonjour
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne
ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
Pierre Fauconnier
;-)) Tu carbures au Pastis 51 octanes ??
Pierre
sabatier wrote:
conclusion : ce GPL est bien devenu super.. jps
GPL wrote:
Oups désolé mais ca marche tres bien Encore merci
"GPL" a écrit dans le message de news:bm141v$n03$
Super, merci Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de l'objet '_Workbook' a échoué" Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" a écrit dans le message de news:bm134k$p6q$
Bonjour
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
;-)) Tu carbures au Pastis 51 octanes ??
Pierre
sabatier wrote:
conclusion : ce GPL est bien devenu super..
jps
GPL wrote:
Oups désolé mais ca marche tres bien
Encore merci
"GPL" <moi@nospam.wanadoo.fr> a écrit dans le message de
news:bm141v$n03$1@news-reader1.wanadoo.fr...
Super, merci
Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs'
de l'objet '_Workbook' a échoué"
Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en
jaune.
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> a écrit dans le message
de news:bm134k$p6q$1@muguet.sncf.fr...
Bonjour
Un truc du genre :
Dim DocName As String
DocName = Range("TaCellule")
' On sauvergarde
ActiveWorkbook.SaveAs "D:" & DocName
' On imprime
ActiveWindow.SelectedSheets.PrintOut 1, 1
' On sauvegarde après l'impression
ActiveWorkbook.Save
' On ferme
ActiveWindow.Close
@+
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:
bm1293$t21$1@news-reader4.wanadoo.fr...
Bonjour,
J'aimerais modifier ce qui suit pour que le nom de
l'enregistrement prenne ce qu'il y a d'ecrit dans une de mes
cellules. De plus a l'impression j'aimerais que seul la page 1 ne
sorte. Merci de votre 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
--------------------------------------------------------------
Super, merci Sauf qu'il me marque "erreur d'execution 1004 / la methode 'saveAs' de l'objet '_Workbook' a échoué" Et la ligne "ActiveWindow.SelectedSheets.PrintOut 1, 1" est en jaune.
"Jessy SEMPERE" a écrit dans le message de news:bm134k$p6q$
Bonjour
Un truc du genre :
Dim DocName As String DocName = Range("TaCellule") ' On sauvergarde ActiveWorkbook.SaveAs "D:" & DocName ' On imprime ActiveWindow.SelectedSheets.PrintOut 1, 1 ' On sauvegarde après l'impression ActiveWorkbook.Save ' On ferme ActiveWindow.Close
@+ 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: bm1293$t21$
Bonjour, J'aimerais modifier ce qui suit pour que le nom de l'enregistrement prenne ce qu'il y a d'ecrit dans une de mes cellules. De plus a l'impression j'aimerais que seul la page 1 ne sorte. Merci de votre 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 --------------------------------------------------------------
Jessy SEMPERE
Bonjour
conclusion : ce GPL est bien devenu super.. jps
Comme on dit, c'est une affaire qui roule... ;-)
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------
Bonjour
conclusion : ce GPL est bien devenu super..
jps
Comme on dit, c'est une affaire qui roule... ;-)
@+
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/
------------------------------------
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------
