Macro Création d image d une cellule et exportation dans un dossier sur réseau.

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 !

L.paris

XLDnaute Nouveau
Bonjour,

Voici ma problématique,

Lors du lancement de la macro celle ci ce bloque sur l 'adresse de destination. Au début je pensais que c'était un problème de droit mais non je suis en full contrôle.

D'après vous qu est ce qui cloche dans la formule




Sub CelluleToJpeg()

With Feuil1
'Copie la cellule en tant qu'image

ActiveSheet.ChartObjects("Graphique 16").CopyPicture
'Créer un graphique temporaire
With .ChartObjects.Add(Cells(1, 1).Left, Cells(1, 1).Top, Cells(1, 1).Width + 8, Cells(1, 1).Height + 8).Chart
'Y passe l'image
.Paste

.Export "http://XXX.XXXX.XXX/XXX/XXX/moninshare.jpg", "JPEG", True
End With

'Supprimer le graphique temporaire
.ChartObjects(Feuil1.ChartObjects.Count).Delete

End With

End Sub



Merci d'avance.
 
- 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

Réponses
2
Affichages
321
Retour