Importer des données word simples dans les cellules d'un tableau

Bonjour,

Je ne trouve pas de solution.
J'ai un word en pièce jointe, avec un texte pour un article.

Je voudrais mettre les 3 infos suivantes dans 3 cellules distinctes

- Je dois récupérer le nom du "scénario" ou le nom du "scénario & dessin" quand ça se présente dans la même cellule

- Le Pays quand il y en a un

- Et le texte de l'article pour finir.

Les words sont nommés selon leur page et leur position dans la page .

Pour les 2 exemples donnés, Page 71-1, qui est le premier article et P71-2 où i

l y a 2 ouvrages mis en avant avec un seul article. La plupart des word ont un seul ouvrage et un seul article.

D'avance merci

À votre disposition pour toute info utile

Carbonara

Bonjour,

Le code Word ci-dessous est un test pour voir comment vous pourriez récupérer les infos sur Excel.

Nb : Les résultats apparaissent dans la fenêtre exécution Ctrl-G

Selon le nombre de paragraphes non vides, il vous serait possible d'associer une colonne d'un tableau Excel à chaque paragraphe. Le texte serait placé dans les dernières colonnes en prenant le document de type 2 comme modèle.

Une fois vos colonnes remplies, un travail sur le tableau Excel vous permettrait de remette les infos qui ne seraient pas dans les bonnes colonnes ou qu'il faudrait assembler.

Sub Test()

Dim I As Integer

    With Documents("Carbonara page-71-2.doc")
         For I = .Paragraphs.Count To 1 Step -1
             With .Paragraphs(I)
                  If .Range.Characters.Count > 1 Then
                     Debug.Print I & " : " & .Range.Characters.Count & ", " & .Range
                  End If
             End With
         Next I
         Debug.Print .Paragraphs.Count
    End With

End Sub

Bonjour Éric,

Merci pour ce retour que je n'avais pas vu.

Je travaille sur MAC, je sais que ça a une importance non négligeable.

Je viens d'essayer ta fonction mais cela bloque sur "documents"

Voici en parallèle le tableau excel concerné.

Ce qui m'intéresse en priorité, est de remplir la colonne M et O, ce serait déjà extraordinaire.

Les infos sont clairement identifié dans le word

Colonne M : Scénario & dessin

Colonne O : texte se terminant avant la signature.

Voici en pièces jointes le tableau excel

Si tu pouvais me faire le code sur l'excel directement parce que je ne sais pas pourquoi mais moi ça marche pas

C'est très important et d'avance merci

Carbonara