Discussion :

[jlhez]

Bonjour,

Je cherche à faire de l'agrafage avec word en publipostage.

La solution que j'imagine est de segmenter le fichier en fonction du nombre d'enregistrements puis de les envoyer à l'imprimante.

j'ai trouvé une macro que fonctionne parfaitement avec pour source de données .xls


ex:

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
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
        'fenêtre test
MsgBox "Nombre d'enregistrement" & iR
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
 
    End With
Next i
 
    ActiveWindow.Close
    Application.Quit
 
End Sub

Seulement, je n'utilise pas .xls pour source de donnée mais .txt et avec ce format d'adresses cela ne fonctionne pas.

Dans la macro j'ai ajouté une fenêtre qui m'indique le nombre d'enregistrement total.
avec .xls le resultat est juste, avec .txt le resultat est -1.

je pense que le problème vient de l'incompatibilité avec une source de données (.txt) que ne fait pas partie de la suite office.

Du coup, ma question est la suivante =)

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

La réponse pour un .xls
iR = oDoc.MailMerge.DataSource.RecordCount

je vous remercie d'avance

Respectueusement,
Julien.

[Heureux-oli]

Salut,

Et -1 est renvoyé par Word quand le nombre d'enregistrements ne peut pas être déterminé.

Je n'ai pas de solution.
La première que j'ai envisagée est l'utilisation d'un tableau dans un document comme source de données, mais Word ne peut compter le nombre d'enregistrement.

Seul Excel et Access permettent de compter les enregistrements.

J'ai aussi essayé de boucler sur les enregristrement sans les compter et arrêter quand je suis au dernier, j'ai une boucle infinie.

[jlhez]

Bonjour,

Je vous remercie de l'intérêt que vous portez a cette question.

Si toutefois quelqu'un a une piste ..

Bonne journée,

Julien.

[Souriane]

Bonjour,

Peut-être sauvegarder votre fichier .txt en .xls?

Souriane

[clementmarcotte]

Bonjour,

Je me suis souvenu d'une de mes vieilles affaires.

Comment on peut utiliser (même plutôt détourner) FileSystemObject pour connaître le nombre de lignes d'un fichier texte.
Ce n'est pas vraiment utilisable si c'est juste une partie du fichier qui est publiposté. Mais obtenir un fichier texte temporaire, ce n'est pas la mer à boire.

http://frederic.sigonneau.free.fr/co...chierTexte.txt

[jlhez]

Bonjour,

Souriane, merci pour votre réponse.
J'aimerais garder le fichier ADR en .TXT, Un programme en a besoin.

clementmarcotte, merci également pour votre réponse.
Je vais m'y pencher, nouveau départ =)

Si toutefois quelqu'un a une autre piste ..

Bonne journée,

Julien.

[Souriane]

Souriane, merci pour votre réponse.
J'aimerais garder le fichier ADR en .TXT, Un programme en a besoin.

Ça n'empêche pas de sauvegarder le fichier ADR en TXT le temps de la fusion. Vous n'écrasez pas pour autant le fichier xls. Non?

?

Souriane

[jlhez]

Bonjour Souriane,

En gros la fusion se fait en automatique avec .TXT. quand j'ouvre le docuement Word.

Si je dois faire cette transformation .TXT.XLS,
c'est a partire de word, sachant que l'emplacement du .TXT n'est pas fixe.

Ca vous semble faisable ?

Bonne jourrnée,
Julien,

[Souriane]

Bonjour,

À mon avis oui, c'est faisable. Mais je ne saurais dire comment.

Je vous conseillerais de fermer cette discussion et d'en réouvrir une autre en demandant comment convertir un fichier TXT en XLS à partir de Word en passant par le VBA....

Bonne chance!

Souriane

[clementmarcotte]

Bonjour,

Je vous conseillerais de fermer cette discussion et d'en réouvrir une autre en demandant comment convertir un fichier TXT en XLS à partir de Word en passant par le VBA....


Souriane

Si c'est juste ce qui manque, cela devrait ressembler à cela : (Pas testé. Au besoin aller voir là;

http://frederic.sigonneau.free.fr/

il devrait bien y avoir quelques exemples à imiter; même si ce n'est pas la réponse exacte.)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TexteEnExcel()
     'Cocher la bibliothèque ExcelXX objects Library
     'ou Microsot Excelxx objects Library
     '(ou quelque chose de semblable)
     'Dans les références.
     Dim AppXL as excel.application
     Set AppXL = new excel.application
     'Pour voir les options et les constantes de
     'Workbooks.open et Workbooks.saveas
     'Cliquer sur open ou saveas et appuyez sur F1
     AppXL.workbooks("Machin.txt").open
     AppXL.workbooks("Machin.txt").saveas("Machin.xls")
end sub

Pour le reste, ne pas oublier de lire les commentaires dans la macro et d'agir en conséquence.
Je n'avais pas envie de trop gaspiller mon heure de connexion avec des tests.