Gestion PDF via Macro Excel

Bonjour à tous,

Je cherche via ma Macro à remplacer une page d'un PDF1 par la page d'un PDF2. Le but est de garder la mise en forme du formulaire du PDF1 avec le PDF2 (Le formulaire contient un emplacement pour une signature électronique).

J'ai dans une autre macro réalisé une fusion de deux PDF qui fonctionne parfaitement, je suis donc parti de cette base pour mon code mais rien ne se passe. Les deux fichiers sont créés mais la page n'est pas remplacée. Quelqu'un aurai t’il une solution?

Set PDDoc1 = CreateObject("AcroExch.PDDoc")
Set PDDoc2 = CreateObject("AcroExch.PDDoc")

PDDoc1.Open ("Chemin fichier 1")
PDDoc2.Open ("Chemin fichier 2")

'Pour connaitre le nombre de pages
NombrePage = PDDoc1.GetNumPages() - 1
PDDoc1.ReplacePages NombrePage, PDDoc2, 0, 1, 0

PDDoc1.Save 1, "Chemin fichier 1" & "Titre.pdf"
PDDoc2.Close
PDDoc1.Close

'Réinitialisation des objets
Set PDDoc2 = Nothing
Set PDDoc1 = Nothing

Si le remplacement de page n'est pas faisable, est-ce qu'insérer une cas pour signature électronique est faisable ?

Merci :)

Bon je suis parfois désespérant...

J'ai retapé mon code seul sur une macro test dans un nouveau fichier et j'avais simplement oublié l'extension ".PDF" quand je demande à ouvrir le Doc2...

Tout fonctionne parfaitement.