Marco découpage publipostage

Bonjour,


J'ai utilisé cette macro afin de couper un publipostage par enregistrement et l'envoyer en impression.
...............
Sub edi54()
' 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 = wdSendToPrinter
' 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
DocName = .DataSource.DataFields(1).Value
DocName = DocName & "-" & .DataSource.DataFields(2).Value
Debug.Print DocName; i

End With
Next i

ActiveWindow.Close
Application.Quit
End Sub
...............

Elle fonctionne parfaitement avec une base de donnée xls.

Malheureusement pas avec une base txt. (séparation des enregistrements par ;)
Quelqu'un a une idée du pourquoi ?

Bonne journée.
Julien