XL 2016 Copier des cellules en image

[Jgral]

Bonjour,

Je cherche à copier une zone de cellule en image ça fonctionne mais l'image est blanche alors que la zone en question est bien rempli

Voici mon bout de code :

Private Sub CommandButton2_Click()
    Copie_Tableau
End Sub
Sub Copie_Tableau()
 With Sheets("Eléments").Range("AF3:AT45")
    .CopyPicture(xlPrinter,xlPicture)
    Sheets("Concepteur étude").ChartObjects.Add(0, 0, .Width, .Height).Chart.Paste
End With
End Sub

Alors que la zone est remplie avec cela :

Auriez vous une idée d'ou vient le problème svp ? Merci par avance.

 

[patricktoulon]

re
a ben en voila encore une tiens
je déteste cette version qui a la fâcheuse tendance a planter avec une ligne de code (parmis d'autre) aussi simple que celle ci

32 ou 64 ta version?
il serait interessant de lire ce que dit l'aide dans 2016 pour copypicture

 

[youky(BJ)]

Je pense être en 32 mais pas sur

 

[youky(BJ)]

Non je suis bien en 64 je m'étais pas bien posé la question

 

[patricktoulon]

re
il serait intéressant de lire ce que dit l'aide dans 2016 pour copypicture

 

[youky(BJ)]

c'est pas copypicture qui plante
seulement déjà simplement
Sheets("Eléments").Range("AF3:AT45").Select plante

 

[patricktoulon]

re
on le dira jamais assez
EVITEZ LES SELECTS ET ACTIVATE ca vous force a avoir le sheets concerné actif ca brûle du gazoil ,ca pollue la mémoire,ca fait chauffer le bourrin
si tu n'est pas sur le sheets("element") ton range select va planter c'est normal

select pas bien
activate pas bien

 

[youky(BJ)]

Bonjour,
Ma macro ne sélectionne rien en Eléments

Bon j'ai copié le fichier du post #3 et collé direct ton code sous le bouton "Cartouche ADC"
J'ai inversé sheets(1) et sheets(2) car on copie de sheets(2)
J'ai enregistré le fichier et le joint pour tester
En bidouillant si on arrive à faire passer une fois après c'est bon
Truc très étrange
Bruno