excel vers word

[tino]

Bonjour,

j'ai un document word avec 3 paragraphes 'Titre1', 'Titre2' et 'Titre3'. Ces paragraphes sont deja ecrits dans le doc word

dans un fichier excel je voudrais que si la cellule A1 = 1 alors mon paragraphe Titre1 soit visible dans word, sinon qu'il soit effacé,
si A2=1 alors paragraphe Titre2 visible sinon effacé, et que si A3=1 alors Titre3 visible sinon effacé


ex:
fichier excel : A1=1 , A2=1
fichier word : paragraphe Titre1 et Titre2

fichier excel : A1=1 , A3=1
fichier word : paragraphe Titre1 et Titre3

est ce possible de faire ce que je souhaite?
y a t il un code vba pour faire ceci?
pouvez vous m'aider?

merci beaucoup
tino

 

[MichelXld]

bonjour Tino

j'espère que cet exemple pourra t'aider


Sub supprimerParagraphes_Conditionnel()
'boucle sur les 3 premiers paragraphes du document Word :
'si la cellule A1<>1 alors suppression du paragraphe 1
'si la cellule A2<>1 alors suppression du paragraphe 2
'si la cellule A3<>1 alors suppression du paragraphe 3
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Integer

Set WordApp = CreateObject('Word.Application')
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open('C:\\monDocument.doc')

For i = 3 To 1 Step -1
If Cells(i, 1) <> 1 Then _
WordDoc.Paragraphs.Item(i).Range.Delete
Next i

End Sub


bonne journée
MichelXld

 

[didus]

Re : excel vers word

Bonjour,

déjà je remercie pour le précédent interlocuteur qui n'a pas eu de réponse à son intervention et je pose ma question car elle a trait à ce sujet, Transfert d'un fichier Excel vers Word:
situation
word excel 2000 et milieu professionnel
un tableau trés simple, 3 colonnes et 30 lignes
avec bordures de cellules, fontes colorées, formatages de cellule différents
objet transférer ce tableau dans Word
sélection de la zone, copie dans excel
collage par "collage spécial" choix "Feuille de calcul Microsoft Excel Objet

résultat le tableau se copie mais toujours incomplet, les derniéres lignes n'étant pas copiées, il en manque 3,4,5 ou plus, c'est variable suivant les suppressions de formatage testées.
A savoir que l'option "texte mis en forme (RTF)" donne un résultat quasiment parfait et utilisable sous forme de tableau.
Donc sans que quelqu'un y passe du temps à chercher, si vous avez une idée, une option éventuelle à cocher ou décocher.

Merci d'avance