Bonjour, je me présente, Jean Duprat; je suis un "vieux de la vieille" en informatique, et certaines fonctions Excel se sont modernisées sans moi.

Par exemple, pour transformer une zone en une image, il faut utiliser « Copier comme une image »

Ce qui se traduit en Visual Basic par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
   Range("I4:J10").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Range("L19").Select
    ActiveSheet.Paste
Comment donner un nom à la nouvelle image ? (par exemple « MaBelleImage »)



Ensuite, comment faire pour enregistrer cette image dans un fichier *.jpg?

Voici ce que je fais, mais depuis 2016 <ça> ne marche plus. Entendez par là que si le fichier *.jpg est bien créé dans le dossier, le contenu de la partie image est vide.
J’en déduis que je n’ai pas dû donner tous les paramètres

Après avoir positionné sur le bon dossier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
  ChDir (DossierChoisi)
 
  HNom = "MabelleImage.JPG"
        Selection.Copy      ' donc sélection de l'image composée dans une feuille source 
        ActiveSheet.Paste
        With ActiveSheet.ChartObjects.Add(0, 0, Largeur, Hauteur).Chart
            .ChartArea.Border.LineStyle = 0
            .Paste
            .Export HNom, "JPG"
            End With
En particulier que contiennent les 2 paramètres 0 dans la ligne With ?

Merci d'avance.

Cordialement,

J. Duprat.