De word vers Excel [Résolu]

[Kiefer_Sutherland]

Salut tout le monde !

En fait , j'ai essayé convertir ce fichier word en une base de données , le fichier word n'est pas organisé à 100% mais la BDD ne va pas contenir toutes les infos !

Voilà les samples vous expliqueront tout.

Merci d'avance ! et surtout merci pour Heureux-oli !

[Heureux-oli]

Voilà déjà une piste que tu peux suivre.

Il te suffit de développez le code pour répondre à toutes les lignes.
Si tu fais un tableau, il te suffira de copier le tableau en Excel.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub parcourirDoc()
Dim para As Paragraph
Dim nbPara As Integer, i As Integer
nbPara = ActiveDocument.Paragraphs.Count
For i = 1 To nbPara
    Paragraphs(i).Range.Select
    If Trim(LCase(Selection.Words(1))) = "identité" Then
        Paragraphs(i + 1).Range.Select
        Debug.Print Selection.Range.Text
    End If
Next i
End Sub

[Kiefer_Sutherland]

J'apprecie vraiment ton aide , mais j'avoue que je suis nul en VB

J'ai pu avoir des résultats mais en pascal et c'etait plein de bugs

J'ai voulu tester le code que tu m'avais donné mais je ne sais pas comment obtenir le resultat, il met execution puis ...

Je suis sûr que c'est moi qui gache quelque chose , alors s'il te plait , peux tu m'expliquer un peu plus ?

Merci d'avance !

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub parcourirDoc()
Dim para As Paragraph
Dim nbPara As Integer, i As Integer
nbPara = ActiveDocument.Paragraphs.Count
For i = 1 To nbPara
    Paragraphs(i).Range.Select
    If Trim(LCase(Selection.Words(1))) = "identité" Then
        Paragraphs(i + 1).Range.Select
        MsgBox Selection.Range.Text
    End If
Next i
End Sub

Essaie celui là !

[Kiefer_Sutherland]

Excuse moi , mais normalement si tout va bien , le resultat dois s'afficher en quel format ?

[Heureux-oli]

Pour chaque Identité dans le texte, tu dois avoir une boîte de message avec un mot.

[Kiefer_Sutherland]

ça marche

Merci beaucoup , mais comment word peut noter les resultats et puis je les exporte vers Excel ?

EDIT : d'accord , le premier code doit afficher les resultats ... mais est ce que tu peux m'ajouter le code pour n'importe quelle autre colonne de Excel pour que je puisse l'imiter

Je vais essayer moi même mais pour le code pour Siret seulement, j'ai pas pu faire grand chose

[Heureux-oli]

Tu copies chaque données dans une cellule en faisant référence à Excel dans ton code.

Il faut ajouter les références à Excel.

Code :

1
2
3
4
5
6
 
Dim xlApp as New Excel.applcation
 
xlApp.WorkBooks.Add
....
....

[Kiefer_Sutherland]

Malheureusement , j'ai pu rien faire

Je t'emprie est ce que tu peux me faire un code complet pour juste deux colonnes , et avec l'extension de Excel , et je te promets de ne plus te deranger

J'essayerai moi meme de l'imiter pour introduire les autres colonnes

Merci Heureux-oli !