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

jeanmax

XLDnaute Nouveau
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

XLDnaute Nouveau
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)

XLDnaute Barbatruc
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

XLDnaute Nouveau
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 !
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas