VBA Excel vers word : envoyer paragraphe selon condition

Bonjour à tous,

Je vous sollicite à nouveau.

Je travaille sur l'automatisation de complétion d'un document word à partir d'une base de données excel. Pour l'instant tout se passe bien.

Pour résumer la démarche :

• Ouverture et remplissage d'un userform dans excel,
• Transfert des variables du userform dans la base de données excel
• Edition d'un document word (pdf) dans lequel les variables viennent renseigner les signets du document word.

J'ai 2 paragraphes comportant des signets. Il faudrait que selon une variable, l'un des 2 paragraphes s'affiche dans word(pdf). Et là je sèche !

Pour illustrer (les mots en orange sont des signets dans word) :

> Si l’animal est un chat, on affiche cette phrase :

L’animal de Paul est un [Animal] . Il a [Age] ans et il mange de la [Nourriture]

> Si l’animal est une poule, on affiche cette phrase :

La [Animal] de Pauline mange des [Nourriture], elle a [Age] ans.

Quelqu'un peut m'aider ?

Merci à vous

Salut,

Peux-tu nous montrer tes fichiers Excel et Word ? Si non, au moins des fichiers modèles ?

Cordialement.

Bonjour,

J'ai trouvé en procédant ainsi :

Dans mon modèle word : 2 tableaux (1 ligne, 1 colonne), chacun comportant le paragraphe choisi.

Dans excel VBA :

    Select Case Range("D" & Derligne).Value

    Case "Chat"
        worddoc.Tables(1).Delete

    Case "Poule"
        worddoc.Tables(2).Delete

    End Select

Peut être pas très "académique", mais cela fonctionne nickel !