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
Daniel.C
Bonjour. La macro suivante démarre une instance de Word, ouvre le document Word et copie la cellule A1 devant le signet que j'ai nommé "ici". Tu dois auparavant cocher "Microsoft Word xx Object Library" dans le menu Outils / Références de la fenêtre VBE Excel.
Private Sub CommandButton1_Click() Set WordObj = CreateObject("Word.Application") 'Set wordobj = GetObject(, "Word.Application") WordObj.Visible = True ' ouvre un document existant WordObj.Documents.Open "E:donneesdanielmpfetest.doc" ' ouvre un nouveau document d'après un modèle 'WordObj.Documents.Add Template:= _ '"E:DonneesDanielExcelTEST MACRO EXCEL WORD.dotm", NewTemplate:úlse, _ 'DocumentType:=0 WordObj.Selection.GoTo What:=wdGoToBookmark, Name:="ici" WordObj.Selection.TypeText Text:=Range("A1").Value Set WordObj = Nothing End Sub
Tu trouveras le document Word qui m'a servi de test à l'adresse : http://cjoint.com/?jslzrGqjyI
"neo622" a écrit dans le message de news:
Bonjour,
Est-il possible de renvoyer des cellules excel dans word à l'aide d'un bouton creer dans la fenetre excel??
Merci beaucoup
Bonjour.
La macro suivante démarre une instance de Word, ouvre le document Word et
copie la cellule A1 devant le signet que j'ai nommé "ici". Tu dois
auparavant cocher "Microsoft Word xx Object Library" dans le menu Outils /
Références de la fenêtre VBE Excel.
Private Sub CommandButton1_Click()
Set WordObj = CreateObject("Word.Application")
'Set wordobj = GetObject(, "Word.Application")
WordObj.Visible = True
' ouvre un document existant
WordObj.Documents.Open "E:donneesdanielmpfetest.doc"
' ouvre un nouveau document d'après un modèle
'WordObj.Documents.Add Template:= _
'"E:DonneesDanielExcelTEST MACRO EXCEL WORD.dotm",
NewTemplate:úlse, _
'DocumentType:=0
WordObj.Selection.GoTo What:=wdGoToBookmark, Name:="ici"
WordObj.Selection.TypeText Text:=Range("A1").Value
Set WordObj = Nothing
End Sub
Tu trouveras le document Word qui m'a servi de test à l'adresse :
http://cjoint.com/?jslzrGqjyI
"neo622" <neo622@discussions.microsoft.com> a écrit dans le message de news:
196DED5B-FF13-4449-BED0-80BAB6715C34@microsoft.com...
Bonjour,
Est-il possible de renvoyer des cellules excel dans word à l'aide d'un
bouton creer dans la fenetre excel??
Bonjour. La macro suivante démarre une instance de Word, ouvre le document Word et copie la cellule A1 devant le signet que j'ai nommé "ici". Tu dois auparavant cocher "Microsoft Word xx Object Library" dans le menu Outils / Références de la fenêtre VBE Excel.
Private Sub CommandButton1_Click() Set WordObj = CreateObject("Word.Application") 'Set wordobj = GetObject(, "Word.Application") WordObj.Visible = True ' ouvre un document existant WordObj.Documents.Open "E:donneesdanielmpfetest.doc" ' ouvre un nouveau document d'après un modèle 'WordObj.Documents.Add Template:= _ '"E:DonneesDanielExcelTEST MACRO EXCEL WORD.dotm", NewTemplate:úlse, _ 'DocumentType:=0 WordObj.Selection.GoTo What:=wdGoToBookmark, Name:="ici" WordObj.Selection.TypeText Text:=Range("A1").Value Set WordObj = Nothing End Sub
Tu trouveras le document Word qui m'a servi de test à l'adresse : http://cjoint.com/?jslzrGqjyI
"neo622" a écrit dans le message de news:
Bonjour,
Est-il possible de renvoyer des cellules excel dans word à l'aide d'un bouton creer dans la fenetre excel??
Merci beaucoup
neo622
Bonjour Daniel,
Merci pour votre aide et si jamais je ferais appel à vous...
Merci beaucoup
"Daniel.C" wrote:
Bonjour. La macro suivante démarre une instance de Word, ouvre le document Word et copie la cellule A1 devant le signet que j'ai nommé "ici". Tu dois auparavant cocher "Microsoft Word xx Object Library" dans le menu Outils / Références de la fenêtre VBE Excel.
Private Sub CommandButton1_Click() Set WordObj = CreateObject("Word.Application") 'Set wordobj = GetObject(, "Word.Application") WordObj.Visible = True ' ouvre un document existant WordObj.Documents.Open "E:donneesdanielmpfetest.doc" ' ouvre un nouveau document d'après un modèle 'WordObj.Documents.Add Template:= _ '"E:DonneesDanielExcelTEST MACRO EXCEL WORD.dotm", NewTemplate:úlse, _ 'DocumentType:=0 WordObj.Selection.GoTo What:=wdGoToBookmark, Name:="ici" WordObj.Selection.TypeText Text:=Range("A1").Value Set WordObj = Nothing End Sub
Tu trouveras le document Word qui m'a servi de test à l'adresse : http://cjoint.com/?jslzrGqjyI
"neo622" a écrit dans le message de news:
> Bonjour, > > Est-il possible de renvoyer des cellules excel dans word à l'aide d'un > bouton creer dans la fenetre excel?? > > Merci beaucoup
Bonjour Daniel,
Merci pour votre aide et si jamais je ferais appel à vous...
Merci beaucoup
"Daniel.C" wrote:
Bonjour.
La macro suivante démarre une instance de Word, ouvre le document Word et
copie la cellule A1 devant le signet que j'ai nommé "ici". Tu dois
auparavant cocher "Microsoft Word xx Object Library" dans le menu Outils /
Références de la fenêtre VBE Excel.
Private Sub CommandButton1_Click()
Set WordObj = CreateObject("Word.Application")
'Set wordobj = GetObject(, "Word.Application")
WordObj.Visible = True
' ouvre un document existant
WordObj.Documents.Open "E:donneesdanielmpfetest.doc"
' ouvre un nouveau document d'après un modèle
'WordObj.Documents.Add Template:= _
'"E:DonneesDanielExcelTEST MACRO EXCEL WORD.dotm",
NewTemplate:úlse, _
'DocumentType:=0
WordObj.Selection.GoTo What:=wdGoToBookmark, Name:="ici"
WordObj.Selection.TypeText Text:=Range("A1").Value
Set WordObj = Nothing
End Sub
Tu trouveras le document Word qui m'a servi de test à l'adresse :
http://cjoint.com/?jslzrGqjyI
"neo622" <neo622@discussions.microsoft.com> a écrit dans le message de news:
196DED5B-FF13-4449-BED0-80BAB6715C34@microsoft.com...
> Bonjour,
>
> Est-il possible de renvoyer des cellules excel dans word à l'aide d'un
> bouton creer dans la fenetre excel??
>
> Merci beaucoup
Merci pour votre aide et si jamais je ferais appel à vous...
Merci beaucoup
"Daniel.C" wrote:
Bonjour. La macro suivante démarre une instance de Word, ouvre le document Word et copie la cellule A1 devant le signet que j'ai nommé "ici". Tu dois auparavant cocher "Microsoft Word xx Object Library" dans le menu Outils / Références de la fenêtre VBE Excel.
Private Sub CommandButton1_Click() Set WordObj = CreateObject("Word.Application") 'Set wordobj = GetObject(, "Word.Application") WordObj.Visible = True ' ouvre un document existant WordObj.Documents.Open "E:donneesdanielmpfetest.doc" ' ouvre un nouveau document d'après un modèle 'WordObj.Documents.Add Template:= _ '"E:DonneesDanielExcelTEST MACRO EXCEL WORD.dotm", NewTemplate:úlse, _ 'DocumentType:=0 WordObj.Selection.GoTo What:=wdGoToBookmark, Name:="ici" WordObj.Selection.TypeText Text:=Range("A1").Value Set WordObj = Nothing End Sub
Tu trouveras le document Word qui m'a servi de test à l'adresse : http://cjoint.com/?jslzrGqjyI
"neo622" a écrit dans le message de news:
> Bonjour, > > Est-il possible de renvoyer des cellules excel dans word à l'aide d'un > bouton creer dans la fenetre excel?? > > Merci beaucoup
