Discussion :

[bassm]

Bonjour,

je souhaiterai copier certaine ligne d'un fichier text et les coller dans un fichier .doc pour y remplir des champs défini.

est-il possible de le faire et comment??

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Oui, ta demande est réalisable, mais plus de détail ne serait pas un luxe, ainsi que la version de Word que tu utilises.

[bassm]

j'ai un fichier text contenant des info du type

Nom
MAchin
Prenom
Truc
....

et je voudrai reprendre les infos pour remplir un formulaire sur word 2003
étant débutant en visual basic et en macro j'aimerais un peu d'aide

merci

[Heureux-oli]

Salut,

As-tu des séparateurs entre les différentes données ?

Pourrais-tu mettre un morceau réel de fichier texte ?
Remplir des champs définis, avec des signets, c'est très facile.
Mais le plus simple est le publipostage et pas besoin de macro.

[bassm]

le truc c'est que j'ai un logiciel qui me génère un fichier texte avec des informations. Les informations sont séparé par des sauts de ligne par exemple:

Nom\n
TOTO\n
Prenom\n
TATA\n
Code operateur\n
TUTU\n
...

j'ai mis en évidence les \n pour représenté les saut de ligne mais biensur il n'apparaisse pas.
l'information que je veux copier c'est "TOTO" pour le coller dans un champs d'un document word, puis TATA pour le mettre dans un autre champ et ainsi de suite.

le but étant d'avoir une fiche informative plus convivial qu'un document text.

maintenant je suis très restrint sur les logiciel a utilisé donc apart word je n'ai rien. Et en plus faut que ça puisse fonctionné sur n'importe quel PC avec n'importe quel windows si possible..

[Heureux-oli]

As-tu toujours le même nombre de lignes ?
Si les lignes sont vides, sont-elles toujours présentes ?
Combien de fiches par fichier ?

C'est beaucoup de question mais la réponse en dépend.
Si c'est pour consultation, je te conseille de faire des fichier PDF, ils sont plus universels.

N'aurais-tu pas un fichier a nous mettre, même vide des données importantes et remplacées par des aaa.

[JackOuYA]

Bonsoir,

en attendant plus d'informations voici un petit code pour lire un fichier texte

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
 
Sub YaLectFich()
Dim yaFic As Integer
Dim yaNom As String 'Nom du champ
Dim yaValeur As String 'Valeur du champ
 'Recherche un numéro de fichie libre
 yaFic = FreeFile
 Open "C:\MesDocs\yaDonne.txt" For Input As #yaFic
 While Not EOF(yaFic)
   yaValeur = "-- Erreur pas de valeur "
   Line Input #yaFic, yaNom
   If Not EOF(yaFic) Then Line Input #yaFic, yaValeur
   yaLigne yaNom, yaValeur
 
 Wend
 Close yaFic
 
End Sub
'
' Mise en place d'un champ
'
Sub yaLigne(yaN As String, yaV As String)
    Selection.TypeText Text:=yaN & vbTab & ":" & vbTab & yaV
    Selection.TypeParagraph 'Saut de linge
 
End Sub

la procédure yaLigne est appellé à chaque ligne du fichier tu peu la modifier pour changer la mise en forme, et par exemple mettre le tout dans un tableau..

[bassm]

bon mon projet a un peu changer donc je réexplique rapidement et j'ai joint un exemple du fichier text

en fait le fichier text a changer un peu

maintenant les information sont séparé par des point virgule (ca peut être changer si besoin) et les infos sont les une a la suite des autres

chaque ligne dans le fichier text possède lenssemble des informations ex:

"
Date1;Heure1;Prenom1;Nom1;CodeOperateur1;Lieu1
01:02:08;10:38;Martin;Simon;MS5897;Paris
12:06:08;08:06;Paulette;Marie;PM6345;Paris
"

dans mon fichier word les chose serai comme ca:

Nom: Champ automatique Nom
Prénom : Champ auto Prénom
Code Op : Champ auto Code Op
etc...

et a partir de ca je voudrai recupérer les informations de la dernière ligne
donc maintenant je veux toujours copier les infos d'un fichier text pour les coller dans un fichier .doc sous word 2003. Mais cette fois les infos sont disposé différement

désolé pour ce petit changement mais maintenant ca devrai pas trop bouger

[Heureux-oli]

C'est pour cette raison que je demandais un exemple concret.

Avec un fichier CSV, pas besoin de macro, il suffit de faire un simple publipostage.

http://heureuxoli.developpez.com/off.../publipostage/

[bassm]

je vais essayer ca !

merci beaucoup pour votre aide