Discussion :

[jérémyp8]

Salut à tous

mon projet consiste a extraire du texte bien precis et quelques champs partciulier a partir d'un fichier word pour les mettre dans un fichier excel

les qestions :

Es ce que le principe de la macro sest le bon moyen pour mon probleme ?

Ou dois je creer la macro ( je pense que c dans mon fichier word qui contient les donnees a extraire dans l excel ) ??

quelqu un peut me donner un exemple de code qui marche ou mme une idee


Meri d avance pour votre aide

[78chris]

Bonjour

Chaque document Word est un cas particulier. Il n'y a pas de cellules avec des adresses pour repérer tel ou tel texte.

Il faut donc d'abord analyser
si tous tes documents (je n'ai pas compris si tu en as un ou plusieurs) sont sur le même modèle,
ce qui peut permettre de repérer les éléments de texte que tu souhaites récupérer.

Après s'il y a plusieurs documents texte, il vaut mieux placer le code dans Excel ou dans un document indépendant.

Dans les ressources de ce site tu trouveras des exemples pour piloter Word à partir d'Excel.

[jérémyp8]

Salut

J'ai plusieurs fichiers du meme modele mais je préfére deja commencer par un seul fichier word pour faciliter le probleme.

Quand t dis analyse tu veux dire quoi voir comment il est constitué le fichier ?
et si c'est ça quelle methode me conseille tu ??? sachant que c juste un document d'architecture technique avec des tableaux paragraphes et listes )

Mon but est d'extraire quelques données bien précises a partir d'un fichier word par exemple le titre et le contenu d'une ligne ou/et colonne d'un tableau vers un fichier Excel ç-à-d faire une extraction par mot clés

NB j'ai deja un petit bout de code qui m extrait un tableau précis dans un fichier word vers un fichier Excel

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
38
39
40
41
42
43
44
45
Sub importTableWord_VersExcel()
'
' importTableWord_VersExcel Macro
'
'Nécessite d'activer la référence:
    'Microsoft Word xx.x Object Library
 
Dim WordApp As Object
Dim WordDoc As Object
Dim Tableau As Object
Dim i As Integer, j As Integer
 
 
'Création instance Word
		Set WordApp = CreateObject("Word.Application")
 
'Masque Word pendant l'opération
		WordApp.Visible = False
 
'Ouvre le document Word
		Set WordDoc = WordApp.documents.Open("E:\DAT NINJA CIE G2R0 S1F3.doc")
 
'Représente le premier tableau dans le document
		Set Tableau = WordDoc.Tables(1)
 
'Boucle sur les colonnes de chaque tableau
		For i = 1 To Tableau.Columns.Count
 
'Boucle sur les cellules de chaque colonne
    		For j = 1 To Tableau.Columns(i).Cells.Count
 
'Importe les données du tableau dans la feuille active
        	ActiveSheet.Cells(j, i) = Tableau.Columns(i).Cells(j)
    			Next j
			Next i
 
'Ferme le document Word
		WordDoc.Close False
'Ferme l'instance Word
		WordApp.Quit
 
'
    Application.Goto Reference:="importTableWord_VersExcel"
 
End Sub

Merci beaucoup pour ton aideee

[78chris]

Bonjour

L'analyse consiste à repérer dans quelle position est l'info à rechercher.
Par exemple : peut-on la trouver par recherche ou bien est-elle toujours au début du Nième paragraphe ou derrière tel mot clé...

Si ce que tu extrait est dans un tableau : tu peux trouver le tableau comme tu l'as fait. Après est-ce toujours la même ligne ou non, etc.

Ici on n'a pas d'adresse comme dans Excel, donc le repérage est plus délicat d'où la nécessité de trouver une logique.

[jérémyp8]

Bonjour,

Merci de m'avoir repondu

En effet c'est une recherche dans des tableaux par mot clés je te joints n fichier word avec un tableau pour mieux voir, jaimerai extraire les information que tu trouvera en ROUGE pour en suite les enregistrer dans des onglet deja defini dans fichier excel ( les onglet sont les meme que les titres des lignes du tableux qui sont en VERT )


si tu as besoin de plus de details n hesite passs
Merci pour ton aide