Copie d'une feuille excel dans Word

[matthieu2701]

Bonjour,

Dans la feuille "Copie", j'ai des copies d'écran. J'aimerais que ces copies d'écran se collent dans Word puis s'enregistre dans un dossier que j'ai défini.

Le word se cré bien et il va s'enregistrer dans le dossier que je souhaite.

Par contre, les copies d'écran n' apparaissent pas comme il faut. Soit elles sont trop petites soit elle apparaissent pas du tout.

La macro s'appelle "ecran".

En espérant que vous puissiez m' aider.

Merci

Matthieu

 

[matthieu2701]

Re : Copie d'une feuille excel dans Word

Je vais le remettre mais la je suis sur mon téléphone et j'ai pas le fichier à disposition.

 

[matthieu2701]

Re : Copie d'une feuille excel dans Word

Re,

Comment faire pour réinitialiser la feuille "copie". Dans cette feuille, j'ai des copies d écran.

J'arrive à le faire pour des cellules mais pas sur les copies d écran.

Merci de votre aide.

 

[Staple1600]

Re : Copie d'une feuille excel dans Word

Bonjour à tous

matthieu2701
Essaye cette petite macro
Code vba:
Sub Macro1()
' Macro enregistrée le 17/08/2013 par PCSTPL
ActiveSheet.DrawingObjects.Delete
End Sub

EDITION: Si ta feuille se nomme copie, alors modifie comme suit:
Sheets("copie").DrawingObjects.Delete

 

[Staple1600]

Re : Copie d'une feuille excel dans Word

Re,

matthieu2701
A la réflexion, mieux vaut choisir le type de shape à effacer
(ici on n'efface que les images et rien d'autre)

Sub DelPict()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.Type = 13 Then Shp.Delete
Next
End Sub

NB: La première macro équivalait à faire Edition/Atteindre/Cellules/Objets et effaçait tout les objets (ce qui peut poser problème, s'il y a sur ta feuille d'autres objets que tes copies d'écrans.