demande de renseignements

Le
neo622
Bonjour,

Est-il possible de renvoyer des cellules excel dans word à l'aide d'un
bouton creer dans la fenetre excel??

Merci beaucoup
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17261501
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"
Bonjour,

Est-il possible de renvoyer des cellules excel dans word à l'aide d'un
bouton creer dans la fenetre excel??

Merci beaucoup


neo622
Le #17272891
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"
> Bonjour,
>
> Est-il possible de renvoyer des cellules excel dans word à l'aide d'un
> bouton creer dans la fenetre excel??
>
> Merci beaucoup





Publicité
Poster une réponse
Anonyme