Discussion :

[lhez14]

Bonjour,


J'ai utilisé cette macro afin de couper un publipostage par enregistrement et l'envoyer en impression.
"Ctrl+C" merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
............... 
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

Ps: Merci a olivier Lebeau pour son travaille dans la FAQ. Ca aide beaucoup ! J'y ai pris la macro

[Heureux-oli]

Salut,

As-tu un message d'erreur ?
Si non, quel est le résultat obtenu ?

[lhez14]

Je n'ai pas de message d'erreur,
aucun résultat,
le fichier WORD se ferme.

++

[Souriane]

Bonjour lhez14!

J'ai regardé très rapidement ton code. Ce pourrait-il que cette ligne soit erronnée?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.DataSource.LastRecord = i

À mon avis, elle devrait plutôt indiquer ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.DataSource.LastRecord = iR

Bonne chance!

Souriane

[Heureux-oli]

Salut Souriane,

Le code est un copier coller du tuto et il fonctionne.


Toutes les lignes de ton document texte sont remplies ?

Si une ligne est vide, word ne peut pas attribuer un nom et une erreur est générée.

[lhez14]

Bonjour,

Toutes les lignes du textes sont remplies,
Pas tous les champs !
cela pose problème ?

ex du Txt.
Nom;Prenom;Civ;Adr1;Adr2;Adr3;CP;Ville;Pays
Ledoux;;Madame;18 rue du lac;;;06250;Mougins;France
Bernard;Jean;255;chemin de la plaine;les chardelles;06250;Mougins;France


! Merci de votre aide !

++

[lhez14]

motif au Txt;

Nom;Prenom;Civ;Adr1;Adr2;Adr3;CP;Ville;Pays
Ledoux;;Madame;18 rue du lac;;;06250;Mougins;France
Bernard;Jean;Monsieur;255;chemin de la plaine;les chardelles;06250;Mougins;France


++

[lhez14]

Merci Souriane,

J'ai fais le test, pas d'évolution.
Avec Xls. c'est ok
Avec TXT. rien ne se passe,


++

[Heureux-oli]

Salut,

C'est avec les mêmes données que tu remplis le xls ?

Dans ton txt, tu as un champ vide pour le premier enregistrement.

Essaie d'y mettre un espace ; ; au lieu de ;;

[lhez14]

C'est avec les mêmes données que tu remplis le xls ?
Je viens le faire avec les données txt converti en xls, ca marche.

Dans ton txt, tu as un champ vide pour le premier enregistrement.
Essaie d'y mettre un espace ; ; au lieu de ;;
ca na pas marché.

il n'y a pas une ligne de code qui fait référence au xls qu'il faudrait changer ?

++

[lhez14]

Comment compter en VBA le nombre d'enregistrement d'un publipostage en Word avec pour source de donnée un txt. ?

iR = oDoc.MailMerge.DataSource.RecordCount
la j'obtiens bien la bonne réponse avec une source de donnée un xls

mais quand je lance ma macro avec une source de donnée un txt la réponse est fausse !

merci de votre aide