XL 2016 exporter une plage de cellules au format pdf

KTM

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonsoir le fil

Est-ce que ce simple test fonctionne chez toi?
VB:
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

XLDnaute Occasionnel
Bonsoir le fil

Est-ce que ce simple test fonctionne chez toi?
VB:
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?
VB:
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

XLDnaute Barbatruc
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.
 

Discussions similaires


Haut Bas