KTM
XLDnaute Impliqué
Salut chers tous
Ma macro suivante exporte ma plage au format pdf en lui donnant le nom "Liste.pdf"
Quand Liste.pdf est fermé il est écrasé pas de soucis
Mais quand il est déjà ouvert j'ai une erreur.
Je voudrais insérer dans ma macro un code pour fermer Liste.pdf si ouvert avant de l’écraser. Merci
Ma macro suivante exporte ma plage au format pdf en lui donnant le nom "Liste.pdf"
Quand Liste.pdf est fermé il est écrasé pas de soucis
Mais quand il est déjà ouvert j'ai une erreur.
Je voudrais insérer dans ma macro un code pour fermer Liste.pdf si ouvert avant de l’écraser. Merci
VB:
Sub export()
Dim chemin, NomPDF As String
chemin = ThisWorkbook.Path & "\PREVUS\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
With ActiveSheet
NomPDF = "Liste"
.PageSetup.PrintArea = "$A$1:$I$50"
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = False
.PageSetup.RightFooter = "&P de &N"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomPDF, Quality:=xlQualityStandard
End With
End Sub