Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Copier des cellules en image

  • Initiateur de la discussion Initiateur de la discussion Jgral
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Jgral

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

VB:
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.
 
Solution
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
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
 
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
😉
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…