Sylvain133
XLDnaute Nouveau
Bonjour à tous,
Comme le titre l'indique j'aimerais fusionner 2 fichiers pdf en un seul à l'aide d'une macro sous Visual Basic. J'ai lu pas mal de discussion autour de ca et je tiens à préciser que je dispose d'Excel 2016 et d'Acrobat Reader 2017. Est-il donc possible de le faire à l'aide d'une macro sous VBA, sachant que parmis les 2 fichiers pdf que je veux fusionner les deux sont déjà générés au préalable et l'un des 2 l'est par une macro vba, je vous la met en copie.
En vous remerciant d'avance pour vos réponses !
Comme le titre l'indique j'aimerais fusionner 2 fichiers pdf en un seul à l'aide d'une macro sous Visual Basic. J'ai lu pas mal de discussion autour de ca et je tiens à préciser que je dispose d'Excel 2016 et d'Acrobat Reader 2017. Est-il donc possible de le faire à l'aide d'une macro sous VBA, sachant que parmis les 2 fichiers pdf que je veux fusionner les deux sont déjà générés au préalable et l'un des 2 l'est par une macro vba, je vous la met en copie.
[CODE=vb]Option Explicit
Sub export()
Dim CHEMIN
Dim H
Dim NOMFICH As String
Dim i As Integer
Sheets("galaxie").Activate
NOMFICH = Cells(3, 2)
CHEMIN = "H:\essai"
H = CHEMIN
Sheets("récap").Activate
Call actualisation_tcd
ActiveSheet.ChartObjects("Graphique 19").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
ActiveSheet.ChartObjects("Graphique 27").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
ActiveSheet.ChartObjects("Graphique 16").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
ActiveSheet.ChartObjects("Graphique 18").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
H & "\" & NOMFICH & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub[/CODE]
En vous remerciant d'avance pour vos réponses !