Macro impression pdf en selectionnant une ligne

[Fermé]
Signaler
Messages postés
1
Date d'inscription
samedi 9 décembre 2017
Statut
Membre
Dernière intervention
9 décembre 2017
-
Bonjour,

Je commence les macro et je ne suis pas douée...

Je souhaiterai imprimé en pdf une ligne selectionnée et la nommer en fonction de la ligne 'exemple, cellule a1 si ligne 1 selectionnée ou a2 si ligne 2 selectionnée.

Je ne sais pas comment écrire la sélection.

Merci pour votre aide




Sub enregistrementpdf()
'
' enregistrementpdf Macro
'

'
Dim i As Integer
Dim ol As Object, olmail As Object


Rows("1").Select

ActiveSheet.PageSetup.PrintArea = "$A$3:$M$3"

Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""-,Gras""&14Valide le service fait le &D"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.748031496062992)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True

ChDir _
"D:\Users\Procedure Gestion compta"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Users\Procedure Gestion compta\bl" & Range("a$2") & ".pdf"
MsgBox "Le service fait a été enregistré bl" & Range("a$2") & " dans le dossier bl"

ActiveCell.FormulaR1C1 = "service fait"
Exit Sub
errorHandler:
'description de l'erreur survenue
MsgBox Err.Description

End Sub