Discussion :

[ValPhi]

Bonjour,

J'ai un document qui doit afficher une liste sur une nouvelle page en fonction d'un numéro contenu dans un champs de la source de données, sur chaque ligne.

Exemple : Ma source de données txt :
N°;nom;dpt
382;toto;75000
382;tutu;13000
382;titi;83000
487;tata;11000
487;bibi;93000

Je souhaiterais, avec une macro, pouvoir générer une liste par page en faisant la rupture sur le champ N°:
1ere page :
toto
tutu
titi
2ème page :
tata
bibi

Que me suggéreriez-vous de faire ?
Merci de vos réponses

[Heureux-oli]

Salut,

Dans un tuto sur le publipostage, il y a un cas similaire qui est traité.


http://heureuxoli.developpez.com/off...ostage/#L8-D-2

[ValPhi]

Ok, merci Heureux Oli.

[ValPhi]

Je ne parviens pas à faire fonctionner cet exemple avec mon fichier de données (format txt) et mon document de fusion (doc).

Comment dois-je déclarer le fichier de données dans les Dim ?

[Heureux-oli]

Salut,

Tu vas devoir travailler avec du File Sytem Object pour lire tes données.
Ou autre solution, peut être plus facile faire un fichier Excel ou importer les données dans un fichier Word contenant une table.

Pour le FSO, une piste ici http://warin.developpez.com/access/fichiers/

[Heureux-oli]

Salut,

J'ai fait quelques tests et ce code devrait te donner la voie

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
 
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open(FileName:="C:\temp\csv.txt", Format:=4)
 
xlApp.Visible = True

[ValPhi]

Merci Heureux Oli.
Je teste tout ça et te tiens au courant des résultats.

[ValPhi]

Au moment d'exécuter la macro, j'ai le message d'erreur suivant :
"Erreur de compilation : "type défini par l'utilisateur non défini"
Et le point d'arrêt est sur : Dim xlApp As Excel.Application

???

[Heureux-oli]

Tu dois ajouter la référence à la bibliothèque Excel.
Ou alors c'est qu'Excel ne se trouve pas sur la machine.