excel to word

[franc]

Rebonjour a tous,


je cherche la fonction qui permet de coller une sélection faite dans excel et de coller cette sélection dans word en tant qu'image.
Merci d'avance

 

[michel]

rebonjour Franc

l'exemple joint copie la plage de cellule sélectionnée et la colle dans un nouveau document Word sous forme d'image


Sub CollerDansWordFormatBitmap()
'necessite d'activer la reference microsoft Word xx.x Object Library
Dim Wrd As Word.Application

Selection.Copy

Set Wrd = CreateObject("Word.Application")
On Error Resume Next
Wrd.Documents.Add
Wrd.Visible = True

Wrd.Selection.PasteSpecial DataType:=wdPasteBitmap
Application.CutCopyMode = False

End Sub


bon apres midi
MichelXld

 

[Dan]

Bonjour Franc, Michel

Il n'existe pas de fonction pour ce que tu veux faire. Soit tu choisis de le faire avec une macro ou comme suit sans macro :

- Sélectionne dans excel les cellules à copier
- ouvre ton document Word
- Dans word, va dans menu / edition / collage spécial - cela te fait appraitre une fenetre avec des choix
- Sélectionne l'option "image"

Bon travail

@+ Dan

 

[Brigitte]

Bonjour à tous,


Une autre solution consister à "prendre une photo" du tableau excel puis de le coller dans word. On peut alors le centrer, le diminuer... le traiter comme une image.

A l'aide de l'icone "Appareil photo" qui se trouve dans :

Affichage/Barres d'outils/Personnaliser/Commandes/Outils/App Photo (l'installer dans la barre d'outils en le cliquant-glissant).

Ca marche bien et cela va vite, si toutefois cela peut aider.

C'est Celeda qui m'avait appris ca... et c'est pratique.

Brigitte