Bonjour ,
Voila je me casse la tete a trouver un moyen depuis word de copier un signet du document word , de le coller dans une celulle precisse (h1) d'un document excel puis de copier la case (i8) pour le collet dans un signet word.
je ne sais pas si c'est claire.
j'ai fait cela
merci d'avance
Voila je me casse la tete a trouver un moyen depuis word de copier un signet du document word , de le coller dans une celulle precisse (h1) d'un document excel puis de copier la case (i8) pour le collet dans un signet word.
je ne sais pas si c'est claire.
j'ai fait cela
VB:
Sub test()
On Error Resume Next
Dim MonApplication As Object
Dim MonFichier As String
Set MonApplication = CreateObject("Shell.Application")
MonFichier = "\M.xlsx"
Documents("evry.docm").Activate
ActiveDocument.Tables(1).Rows(2).Cells(4).Select
Selection.range.Case = wdTitleSentence
ActiveDocument.Tables(1).Rows(2).Cells(4).Select
Selection.Copy
MonApplication.Open (MonFichier)
ActiveDocument.sheet(1).range("H1").Select
Selection.Paste
ActiveDocument.sheet(1).range("I8").Select
Selection.Copy
Documents("evry.docm").Activate
Selection.GoTo What:=wdGoToBookmark, Name:="ville2"
Selection.PasteAndFormat (wdFormatPlainText)
Set MonApplication = Nothing
End Submerci d'avance