excel vers word

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

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