Bonjour à tous,

travaillant actuellement sur la compilation de donnée Word a partir de plusieurs fichier, sous Excel, je cherche à automatiser tout cela en passant par une macro VBA, que je ne maitrise pas complétement (doux euphémisme).

la structure de mes fichiers word est le suivant :

Nom: XXXX

prénom: iozerio

date:

kzjzeflkj

hobbies:

jfozejfoi

projet:

klrjflkj

pièce jointe:

jj

il s'agit donc de renseigner un tableau excel ayant pour colonne : nom - prénom-date-hobbies-projet- pièce jointe

Comment puis je faire?

je pensais passer par la copie de données situées entre deux chaines de caractères...mais j'ai un peu de mal a voir comment?

Si quelqu'un avait une ou plusieurs solution à proposer je l'en remercie d'avance.

Cdt.

JB

Bonjour

Regarde ici tu devrais pouvoir adapter ton projet.

merci , j'ai regarder mai scela ne reponds qu'en partie à mon probleme.

ici se trouvent le fichier type que 'jai a traiter : http://dl.free.fr/li71sMDpy

l'idée serait de comparer des chaines de caractères du style
tant que la chaine different de prenom copier dans cellule 1, puis si = alors tant que different de "date" copier dans cellule 2, puis si = "date" alors tant que differents de "hobbies" ...etc.

est il possible de copier un paragraphe complet dans une cellule ?
est il alors possible de faire une concaténation si la cellule n'est pas vide (dans le cas ou j'aurais deux paragraphe ? ou bien puis directement copier coller plusieurs paragraphes dans une cellule?

car telle que je vois le bout de code ca donnerait quelques chose comme ceci:


<code>
Dim para As Paragraph
Dim i As Integer
Dim y As Integer
i = 1
j=2
For Each para In ActiveDocument.Paragraphs
para.Range.Select

If Selection.Words(1)="Nom" and Selection.Words(2)=":" then
i=i+1
next para
para.Range.Select
while Selection.Words(1)<>"prenom"
ActiveSheet.Cells(j,1).Value= para.Range.Select " on copie les données du paragrpahe dans la cellule 1 de la 1 iere colonne

wend
If Selection.Words(1)="prenom" and Selection.Words(2)=":" then
i=i+1
next para
para.Range.Select
while Selection.Words(1)<>"date"
ActiveSheet.Cells(j,2).Value= para.Range.Select " on copie les données du paragrpahe dans la cellule j de la 2ieme colonne

wend
If Selection.Words(1)="date" and Selection.Words(2)=":" then
i=i+1
next para
para.Range.Select
while Selection.Words(1)<>"hobbies"
etc....

Re

Dans ces conditions, pourquoi ne pas repartir à zero, donc effacer le fichier original et recopier le nouveau fichier fichier? A mon avis, cette solution serait la plus simple, car sinon, il faudrait une macro avec une ou des boucles....Mais attendons l'avis d'experts ...

parceque j'ai 300 fichiers comme celui-ci...