Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Imprimer une seul page et enregistrer sous le nom d'une cellule

Imprimer une seul page et enregistrer sous le nom d'une cellule

7 réponses
Avatar
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
--------------------------------------------------------------
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
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
--------------------------------------------------------------




Avatar
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
--------------------------------------------------------------








Avatar
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
--------------------------------------------------------------












Avatar
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
--------------------------------------------------------------












Avatar
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
--------------------------------------------------------------














Avatar
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
--------------------------------------------------------------










Avatar
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/
------------------------------------