Word Publipostage à partir de données excel

Yoann_PL

XLDnaute Nouveau
Bonjour,

Depuis l'année dernière j'utilisais une macro dans word qui permet de faire du publipostage à partir de données dans excel.
J'ai utilisé pour la dernière fois cette macro il y a 10 jours sans aucun soucis.

Aujourd'hui j'en avais besoin, mais ça s'arrête aprés la fonction "execute", et laisse un fichier qui s'appelle lettre type 1.

Pouvez-vous identifier s'il y a un problème évident ?
Y a t-il eu une mise à jour de word dernièrement qui pourrait impacter le fait que ça ne marche plus ? J'ai un abonnement office 365.

Voici la macro:

' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim DocNum As String
Dim DocOrder As String
Dim DocCountry 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
'Utilisation de deux champs pour obtenir le nom du document
DocNum = .DataSource.DataFields(15).Value
DocOrder = .DataSource.DataFields(1).Value
DocCountry = .DataSource.DataFields(8).Value
DocName = DocNum & "_" & DocOrder & "_" & DocCountry
Debug.Print DocName; i
End With
' Sauvegarde du document publiposté
With ActiveDocument
.SaveAs "d:\FAMZ2018-" & DocName & ".docx"
.Close
End With
Next i
End Sub

Merci pour votre aide.
 

Discussions similaires

Réponses
6
Affichages
268

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof