Je veux pouvoir ins=E9rer des variables provenant d'Excel=20
dans un document Word qui contient des signets. Pb :=20
Excel dit qu'il n'arrive pas =E0 trouver le signet en=20
question. Comment faire ? Merci et bonnes vacances.
Ci-dessous, le code utilis=E9 :
Dim wd As Object
Set wd =3D CreateObject("word.application")
wd.Visible =3D True
AppActivate wd.Name
With wd
.documents.Open Filename:=3D"F:\VBE\Projects\SErvez =E0 ce=20
Monsieur une bi=E8re et des kiwis.doc"
'.Selection.Goto What:=3DwdGoToBookmark, Name:=3D"ici"
End With
Set wd =3D Nothing
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Je me réponds car j'ai trouvé la soluce en continuant à chercher sur ce forum. Il faut créer une référence à MS Word. Voilà et merci à ceux qui voulaient répondre.
-----Message d'origine----- Bonjour,
Je veux pouvoir insérer des variables provenant d'Excel dans un document Word qui contient des signets. Pb : Excel dit qu'il n'arrive pas à trouver le signet en question. Comment faire ? Merci et bonnes vacances.
Ci-dessous, le code utilisé :
Dim wd As Object Set wd = CreateObject("word.application") wd.Visible = True AppActivate wd.Name With wd ..documents.Open Filename:="F:VBEProjectsSErvez à ce Monsieur une bière et des kiwis.doc" '.Selection.Goto What:=wdGoToBookmark, Name:="ici" End With Set wd = Nothing .
Je me réponds car j'ai trouvé la soluce en continuant à
chercher sur ce forum. Il faut créer une référence à MS
Word. Voilà et merci à ceux qui voulaient répondre.
-----Message d'origine-----
Bonjour,
Je veux pouvoir insérer des variables provenant d'Excel
dans un document Word qui contient des signets. Pb :
Excel dit qu'il n'arrive pas à trouver le signet en
question. Comment faire ? Merci et bonnes vacances.
Ci-dessous, le code utilisé :
Dim wd As Object
Set wd = CreateObject("word.application")
wd.Visible = True
AppActivate wd.Name
With wd
..documents.Open Filename:="F:VBEProjectsSErvez à ce
Monsieur une bière et des kiwis.doc"
'.Selection.Goto What:=wdGoToBookmark, Name:="ici"
End With
Set wd = Nothing
.
Je me réponds car j'ai trouvé la soluce en continuant à chercher sur ce forum. Il faut créer une référence à MS Word. Voilà et merci à ceux qui voulaient répondre.
-----Message d'origine----- Bonjour,
Je veux pouvoir insérer des variables provenant d'Excel dans un document Word qui contient des signets. Pb : Excel dit qu'il n'arrive pas à trouver le signet en question. Comment faire ? Merci et bonnes vacances.
Ci-dessous, le code utilisé :
Dim wd As Object Set wd = CreateObject("word.application") wd.Visible = True AppActivate wd.Name With wd ..documents.Open Filename:="F:VBEProjectsSErvez à ce Monsieur une bière et des kiwis.doc" '.Selection.Goto What:=wdGoToBookmark, Name:="ici" End With Set wd = Nothing .
