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

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.