Publipostage macro Word to PDF à partir d'un excel DDE

Bonjour,

Je dois faire un publipostage à partir d'un fichier excel avec beaucoup de chiffre. Cependant, je me confrontais à un problème, c'est que tous les chiffres n'avait pas le format de l'excel, j'ai trouvé une solution qui était d'ouvrir la feuille au format DDE. Avec cette solution tous les champs sont bons donc nickel.
Néanmoins, cette fois quand je lance la macro, rien ne se passe.
Je me demande donc si ce n'est pas le protocole DDE qui bloque, y'a t'il une solution.

Pour info: je ne l'aio pas faite moi même.

'Découpage Publipostage en PDF
Sub Decoupe_PDF()
' Désactiver le rafraichissement d'écran pour accélérer la procédure
Application.ScreenUpdating = False

' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource

' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource

iR = oDoc.MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
With oDoc.MailMerge
'Définition du premier et dernier enregistrement
.DataSource.FirstRecord = i

.DataSource.LastRecord = i
' Envoi des données dans un nouveau document
.Destination = wdSendToNewDocument
' Exécution du publipostage
.Execute
' Actualisation de l'enregistrement pour la sauvegarde
.DataSource.ActiveRecord = i
'-------------------------Indiquer ci-dessous dans les parenthèses le n° du champ (de concaténation) pour nommer le document-----------------------
DocName = .DataSource.DataFields(1).Value
Debug.Print DocName; i
End With
'-------------------------Sauvegarde du document publiposté : Précisez le chemin de votre dossier ou seront enregistrées les pièces jointes en pdf-------------
With ActiveDocument
.ExportAsFixedFormat OutputFileName:= _
"C:\Users\Patricia\Desktop\PJ\" & DocName & ".pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
.Close SaveChanges:=wdDoNotSaveChanges
End With
Next i
End Sub


Merci.