XL 2016 exporter une plage de cellules au format pdf

[KTM]

Bonjour chers tous
J'ai élaboré une macro pour exporter une plage de cellule de ma feuille au format pdf et l'enregistrer dans un dossier particulier.
Je voudrais que vous aidiez à y mettre de l'ordre car elle ne fonctionne pas correctement

Sub SAVE_RDV_ATTENDUS()
Dim chemin, Fichier As String

With Sheets("RDV")

chemin = ThisWorkbook.Path & "\RDV_PREVUS\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
Fichier = Month(Sheets("TB").Range("B11")) & "-" & " RDV " & Format(Sheets("TB").Range("B11"), " mmmm yyyy")
Set p = .Range("A1:G" & .Range("A" & Rows.Count).End(xlUp).Row)

With .PageSetup
.PrintArea = p.Address
.Zoom = False
.PrintTitleRows = Sheets("RDV").Rows(3).Address
.CenterHorizontally = True
.CenterVertically = False

End With

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & Fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub




L'extraction se fait mais le pdf est illisible

 

[Staple1600]

Bonsoir le fil

Est-ce que ce simple test fonctionne chez toi?

Sub Test_Export_PDF()
Dim f As Worksheet, p As Range, NomPDF$
Set f = Sheets("RDV")
Set p = f.Range("A1", f.Cells(Rows.Count, "G").End(3))
chemin = ThisWorkbook.Path & "\RDV_PREVUS\"
NomPDF = "test.pdf"
p.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomPDF, Quality:=xlQualityStandard
End Sub

 

[KTM]

Bonsoir le fil

Est-ce que ce simple test fonctionne chez toi?

Sub Test_Export_PDF()
Dim f As Worksheet, p As Range, NomPDF$
Set f = Sheets("RDV")
Set p = f.Range("A1", f.Cells(Rows.Count, "G").End(3))
chemin = ThisWorkbook.Path & "\RDV_PREVUS\"
NomPDF = "test.pdf"
p.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomPDF, Quality:=xlQualityStandard
End Sub

Bonsoir le fil

Est-ce que ce simple test fonctionne chez toi?

Sub Test_Export_PDF()
Dim f As Worksheet, p As Range, NomPDF$
Set f = Sheets("RDV")
Set p = f.Range("A1", f.Cells(Rows.Count, "G").End(3))
chemin = ThisWorkbook.Path & "\RDV_PREVUS\"
NomPDF = "test.pdf"
p.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomPDF, Quality:=xlQualityStandard
End Sub

Merci Staple1600 c'est super
Deux petites doleances:
-Je voudrais ajouter entête personnalisé et numéro de page. Comment adapter mon code?
-Comment annuler tous les parametres apres execution ?
Encore merci Infiniment

 

[Staple1600]

Bonjour le fil

KTM
Une suggestion en passant
Insères manuellement ton entête et numéro de page tout en laissant tourner l'enregistreur de macros.
Tu auras ainsi la syntaxe VBA de base.