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

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

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.
 

Discussions similaires

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