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

[jeanmax]

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]

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)]

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

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

 

[jeanmax]

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 !