XL 2016 exporter une plage de cellules au format pdf

KTM · 22 Août 2019

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 · 22 Août 2019

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 · 23 Août 2019

Staple1600 à dit:

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

Staple1600 à dit:

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 · 23 Août 2019

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.

XL 2016 exporter une plage de cellules au format pdf

KTM

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Discussions similaires