Bonjour ,
Je travaille sur un bouton d'impression PDF et un imprimante , celui pour l'imprimante fonctionne bien mais celui de pdf je suis un peu perdu , en fait le problème c'est que je n'arrive pas a sélectioné les cellules que je veux lors de cette impression PDF
Sub Enregistrer_PDF()
Dim i&
For i = 1 To Sheets.Count
With Sheets(i).PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
ActiveSheet.PageSetup.Orientation = xlLandscape
End With
Range("B6:R372").Select
Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Thérèse\Documents\" & Sheets(i).Name & ".pdf"
Next
End Sub
Voila le code + le fichier
Merci d'avance
Neoss