Liaison Excel vers deux documents word

[Grenoble87]

Bonjour,

Etant débutant dans le monde du VBA j'aurais besoin de quelques conseils ou astuces afin construire un outils qui me permettrait de me faciliter la vie.
Voila mon problème:

Pour notre client nous devons faire deux rapports contenant les mêmes tableaux et des paragraphes identiques mais pas le même mise en page, ni le même ordre. Mon objectif serait de remplir un seul fichier excel et de créer un programme qui me remplissent les champs sur chaque rapports. Comment faire une liaison entre word et excel?
Comment localiser un lieu précis dans un fichier word.

Merci d'avance.

 

[bouchet2]

Re : Liaison Excel vers deux documents word

Je cherche sans résultat de traduire en VBA
Coller une plage d'un tableau Excel en WORD texte et ensuite appliquer la fonction remplacer.

A la main ca marche
copier sur Excel le tableau
collage spécial dans Word choisir texte sans mise en forme
coller sur la page Word

appliquer plusieurs remplacer
comme
supprimer marque de paragraphe par « rien »
supprimer marque tabulation par « rien »

remplacer le sigle « / » que j'ai introduit a certains endroit de mon tableau par « a la ligne »
J’ai le texte que je désire et bien présenté.
J’ai beau essayé je suis bloqué sur l’écriture VBA de collage spécial sans mise en forme

Merci d'avance

jean Bouchet


Sub supvote3()

'Copier une plage depuis Excel

Sheets("feuil1").Select
Range("A3:G423").Select
Application.CutCopyMode = False
Selection.Copy

' creation feuille Word()

Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document

'Lancer une instance Word

Set oWdApp = CreateObject("Word.Application")

'Ouvrir un nouveau document

Set oWdDoc = oWdApp.Documents.Add

'Rendre Word visible
oWdApp.Visible = True

'Coller la plage dans Word

Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False

'ca ne passe pas

'macroword remplacer

Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "/"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^t"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

' je voudrais finir par enregistrer la feuille WORD, l'enregistrement déclenchant un retour sur mon classeur Excel, PV-EXPRESS, feuille " WORD" d'où je relancerais une macro de validation de cette feuille de présence existante qui fonctionne.

End Sub