Bonjour
J'ai un graphique sur une feuille spéciale graphique que j'aimerais exporter en pdf, et enregistrer automatiquement dans un dossier.
La formule employée habituellement ne fonctionne pas.
Savez vous quelles sont les dénominations à faire évoluer svp?
Sheets("Graphique").Select
Dim ladate As String, periode As String, lerep As String
ladate = Format(Date, "yyyymmdd")
periode = Worksheets("Rapport Actia").Range("p2").Value
lerep = ThisWorkbook.Path & "\Historique\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=lerep & ladate & " - Conso gasoil - Période " & periode & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Graphique").Select
Par avance merci beaucoup
bonne journée
loul
J'ai un graphique sur une feuille spéciale graphique que j'aimerais exporter en pdf, et enregistrer automatiquement dans un dossier.
La formule employée habituellement ne fonctionne pas.
Savez vous quelles sont les dénominations à faire évoluer svp?
Sheets("Graphique").Select
Dim ladate As String, periode As String, lerep As String
ladate = Format(Date, "yyyymmdd")
periode = Worksheets("Rapport Actia").Range("p2").Value
lerep = ThisWorkbook.Path & "\Historique\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=lerep & ladate & " - Conso gasoil - Période " & periode & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Graphique").Select
Par avance merci beaucoup
bonne journée
loul