Enregistrer graphique en image

Question

Bonjour, j'ai un problème. J'aimerais prendre un graphique Excel et le mettre en mode image jpeg sur un PowerPoint

Le code que j'utilise est

Sheets("TRDPC & TROLA IT").Activate
chemin = ThisWorkbook.Path & "\graph1.jpg"
ActiveSheet.ChartObjects(1).Chart.Export Filename:=chemin, filtername:="JPG"
Set objImageBox = .Slides(1).Shapes.AddPicture(chemin, msoCTrue, msoCTrue, 20, 189, 410, 190)

Le problème en fait est que le fichier Excel est sur un SharePoint. Du coup, ce qui coince, c'est que le chemin n'existe pas ! Existe t-il un autre moyen de copier un graphique en mode jpeg sans utiliser un chemin ? Ou alors, existe t-il un chemin qui est accessible pour tous les membres de mon équipe ? C'est à dire on pourrait utiliser un chemin de la forme C: ... et qui pourrait marcher pour toutes les personnes utilisant ce fichier ?

Merci pour votre aide

njhub · Answer

Pour faire simple je ferais une impression écran quand le graphique est visible et un logiciel image pour l'enregistrer, après on peut l'intégrer à power point, un mail......

Efgé · Answer

Pourquoi ne pas utiliser le bureau ? Dim Bureau As String Bureau = CreateObject("WScript.Shell").SpecialFolders("Desktop") Donne le chemin de tous les bureaux quelque soit le PC Cordialement...