Windows 7 - Imprimer 1 onglet en pdf

Asked By Fredo(67) on 10-Aug-12 06:00 AM
Bonjour,

Tout est dans le titre,
j'ai parcouru ce Newsgroup, mais n'ai rien trouv=E9 qui m'aille

Ce que je cherche c'est par macro
Prendre l'onglet actif, et l'imprimer en pdf
(dans l'id=E9al, le pdf s'enregistre dans le r=E9pertoire o=F9 se situe le =
fichier
le nom du pdf est contenu dans les cellules A1, A2 et A3)


quelqu'un a t'il d=E9j=E0 r=E9ussi =E0 solutionner ce probl=E8me

Merci




MichD replied to Fredo(67) on 10-Aug-12 07:35 AM
Bonjour,

Si tu as une version 2007 ou 2010 de Microsoft Office,

Tu retrouves cette proc?dure sur le site de Ron de Bruin:

http://msdn.microsoft.com/en-us/library/ee834871(office.11).aspx

Au lieu d'utiliser "ActiveSheet" dans la ligne de commande tu peux employer
Worksheets("NomDeLaFeuille")  ? imprimer
OU
Tout le classeur par :  ActivWorkbook  ou ThisWorkbook ou par
Workbooks("NomDuclasseur.xlsm")

? compl?ter par une lecture sur le site du cr?ateur.
'----------------------------------------------
Sub test()

RDB_Create_PDF ActiveSheet, "c:\Users\TonProfil\Documents\NomFuFichier.pdf", True, True

End Sub
'----------------------------------------------
Function RDB_Create_PDF(Myvar As Object, FixedFilePathName As String, _
OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As
String
Dim FileFormatstr As String
Dim Fname As Variant

'Test to see if the Microsoft Create/Send add-in is installed.
If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
& Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then

If FixedFilePathName = "" Then
'Open the GetSaveAsFilename dialog to enter a file name for the PDF file.
FileFormatstr = "PDF Files (*.pdf), *.pdf"
Fname = Application.GetSaveAsFilename("", filefilter:=FileFormatstr, _
Title:="Create PDF")

'If you cancel this dialog, exit the function.
If Fname = False Then Exit Function
Else
Fname = FixedFilePathName
End If

'If OverwriteIfFileExist = False then test to see if the PDF
'already exists in the folder and exit the function if it does.
If OverwriteIfFileExist = False Then
If Dir(Fname) <> "" Then Exit Function
End If

'Now export the PDF file.
On Error Resume Next
Myvar.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Fname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=OpenPDFAfterPublish
On Error GoTo 0

'If the export is successful, return the file name.
If Dir(Fname) <> "" Then RDB_Create_PDF = Fname
End If
End Function
'----------------------------------------------






MichD
---------------------------------------------------------------
065fd3ee-d45b-4645-9c28-c9418aecf7e1@googlegroups.com...

Bonjour,

Tout est dans le titre,
j'ai parcouru ce Newsgroup, mais n'ai rien trouv? qui m'aille

Ce que je cherche c'est par macro
Prendre l'onglet actif, et l'imprimer en pdf
(dans l'id?al, le pdf s'enregistre dans le r?pertoire o? se situe le fichier
le nom du pdf est contenu dans les cellules A1, A2 et A3)


quelqu'un a t'il d?j? r?ussi ? solutionner ce probl?me

Merci
Fredo(67) replied to Fredo(67) on 10-Aug-12 07:47 AM
Salut

T'es trop fort


Maintenant, je vais chausser mes lunette et potasser son site

MErci

Le vendredi 10 ao=FBt 2012 12:00:27 UTC+2, Fredo(67) a =E9crit=A0:
e fichier
Fredo(67) replied to Fredo(67) on 10-Aug-12 08:27 AM
Ca marche vraiment Super

Maintenant je voudrais pouvoir r=E9cup=E9rer l'adresse compl=E8te de mon fi=
chier
(style C:\Users\Ron\Test\)
sans le nom du fichier

Ensuite je veux d=E9clarer une variable Filename
cette variable ira chercher l'adresse du fichier et y rajoutera :
Le contenu de la cellule A1, le contenu de A2 et la date avec l'heure

je pensait =E0 un truc comme =E7a
***************
Dim AdressE=20
Dim FilenamE as string
Dim DatE as date
AdressE =3D (c'est l=E0 que je cale) 'r=E9cup=E8re l'adresse du fichier
Date =3D (c'est l=E0 que je cale encore un peu) 'doit r=E9cup=E9rer la date=
et l'heure

FilenamE =3D AdressE & "/" & [A1] & " - " & [A2] & " - au " & DatE

************

Je pense que tu saurais compl=E9t=E9r/corriger ce bout de code..




Le vendredi 10 ao=FBt 2012 12:00:27 UTC+2, Fredo(67) a =E9crit=A0:
e fichier
MichD replied to Fredo(67) on 10-Aug-12 08:47 AM
| Maintenant je voudrais pouvoir r?cup?rer l'adresse compl?te de mon fichier

X = ThisWorkbook.Path & "\"

| cette variable ira chercher l'adresse du fichier et y rajoutera :
| Le contenu de la cellule A1, le contenu de A2 et la date avec l'heure

with Worksheets("Feuil1") 'Nom feuille ? adapter
Y = .range("A1") & .range("A2") & Format(Now(), "YYYY-MM-DD HHMMSS")
End with

FileName = X & Y


MichD
---------------------------------------------------------------