XL 2010 [MACRO] Copier une zone et la coller en image dans un email !

jeanmax · 8 Novembre 2018

Bonjour à tous,

Je suis en charge de réaliser un petit outil de calepinage et je suis pas hyper doué en XL....

Mon outil est une feuille dans laquelle on met des valeurs (poids, pression) et qui donne une modélisation du
poids par cm². Cet outil comprend des données confidentielles d'industrialisation, et on ne veut pas le divulguer, au cas ou le fichier tombe dans des mains concurrentes...

Pour donner le résultat, les ingénieurs font une copie d'écran et la colle dans un mail après l'avoir recadrée ... assez fastidieux.

J'ai déjà une macro qui me remet les champs à zéro et qui fonctionne.

Sub Clearcells()
Range("C7", "C8").ClearContents
Range("F7", "F8").ClearContents
Range("I7", "I8").ClearContents
Range("C18", "C19").ClearContents
Range("F18", "F19").ClearContents
Range("I18", "I19").ClearContents
Range("C33", "C34").ClearContents
Range("F33", "F34").ClearContents
Range("I33", "I34").ClearContents
Range("C44", "C45").ClearContents
Range("F44", "F45").ClearContents
Range("I44", "I45").ClearContents
End Sub

Mon besoin serait que j'ai un 2ème bouton, qui :

me copie ma plage A5:J82
me colle le résultat en tant qu'image dans un nouveau mail

J'ai pu récupérer des bouts de code mais même la copie ne se fait pas

Sub SENDTOEMAIL()

Range("A5:J82").Select
Selection.Copy
Selection.PasteAndFormat Type:=wdChartPicture

End Sub

Avez vous une idée a me proposer ?

Merci pour votre aide.

jeanmax · 8 Novembre 2018

Bonsoir,

Personne n'a une petite idée ??

Au minimum il faudrait une fonction qui copie en tant qu'image.

Du genre

copier la selection
creer une nouvelle feuille
coller la selection en tant qu'image
copier l'image
supprimer la feuille crée

comme ça nous serions sur d'avoir une image !!

youky(BJ) · 8 Novembre 2018

Bonsoir JeanMax,
Ce bout de code va créer une image de A5:J82 que je copie en A1
Ensuite je n'ai pas de code pour le coller dans un mail (quelle messagerie utiliser)
Donc copier ou couper l'image et coller dans le mail manuellement.
Bruno

VB:

Sub FaitImage()
On Error Resume Next
Feuil1.Range("A3:J82").CopyPicture xlScreen, xlBitmap
Feuil1.Paste Destination:=Feuil1.Range("A1")
End Sub

jeanmax · 13 Novembre 2018

Merci Youky !

Désolé pour le retard de réponse, je me remet sur le sujet !

Tout n'a pas marché comme je le souhaitais, mais a force de percévérance, on y arrive !!!!

Voilà mon code :

Sub FaitImage()
On Error Resume Next
Range("A5:J82").CopyPicture xlScreen, xlBitmap
End Sub

On peut clore le sujet, merci encore !

XL 2010 [MACRO] Copier une zone et la coller en image dans un email !

jeanmax

XLDnaute Nouveau

jeanmax

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

jeanmax

XLDnaute Nouveau

Discussions similaires