Discussion :

[Kerweb]

Bonjour, je débute en VBA. Je voulais savoir s'il était possible dans Excel de récupérer des informations provenant d'un fichier Word.

Donc j'ai mon fichier word, qui est une synthèse hebdomadaire. Il est présenté de cette façon en gros :

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
Titre 1

Titre 2

Titre 3

Texte 1
Texte 2
URL

Texte 1
Texte 2
URL

Titre 3

Texte 1
Texte 2
URL

Titre 2

Titre 3

Texte 1
Texte 2
URL
...

Chaque titre/texte étant formaté d'une façon. Je voudrais pouvoir mettre ça dans un fichier Excel de ce style :

Titre 1 // Titre 2 // Titre 3 // Texte 1 // Texte 2 // URL

Pour chaque enregistrement.


Je sais pas si j'ai bien expliqué, est-ce que c'est possible ?

[ouskel'n'or]

Code :

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

1
2
3
For Each styl In ActiveDocument.Styles
    MsgBox styl.NameLocal
Next

Tu arriveras à te débrouiller avec ça ?
A+

[Kerweb]

Vaguement

Si je comprend bien, c'est une boucle sur chaque changement de style du document actif ? Par contre elle sert à quoi la msgbox ?

[ouskel'n'or]

Le msgbox ? A te montrer ce qu'on obtient, banane
Tu n'as que le nom du style, tu n'as pas le détail. Pour avoir le détail et pour le modifier, si tu en as besoin, regarde à Style, dans l'aide
A+

NB - tu peux également obtenir le style de la sélection

[Kerweb]

Ok. Mais à quel endroit je met ça ? Dans le VB Editor de word ?

[ouskel'n'or]

Mais à quel endroit je met ça ? Dans le VB Editor de word ?

?
Tout dépend ce que tu veux en faire...

Chaque titre/texte étant formaté d'une façon. Je voudrais pouvoir mettre ça dans un fichier Excel de ce style :

Si tu tiens à le mettre dans un fichier Excel, tu mets ça dans un fichier Excel...
Mais je ne comprends pas "// URL"
Avec mon code tu récupères les différents styles d'UN fichier Excel (comme on peut les modifier dans Normal.dot, tu ne seras jamais sûr qu'ils correspondent entre différents documents)
Que veux-tu faire de tes titres une fois archivés quelque part ?
Tu dis ?