Copie d'un graphique vers Word depuis un onglet précis

Résolu/Fermé
Guiboule1015 Messages postés 11 Date d'inscription vendredi 5 décembre 2014 Statut Membre Dernière intervention 14 avril 2015 - 13 avril 2015 à 12:11
Guiboule1015 Messages postés 11 Date d'inscription vendredi 5 décembre 2014 Statut Membre Dernière intervention 14 avril 2015 - 14 avril 2015 à 15:10
Bonjour à tous, bonjour le forum,

J'ai un nouveau petit soucis pour une partie de mon code et je viens donc chercher votre aide précieuse... Je cherche à générer un rapport automatique après un lourd calcul Excel, jusque là tout va bien je mets des commentaires, un rapport type, des tableaux, etc mais au moment de copier les graphiques je bloque...

J'ai beaucoup cherché sur internet mais je n'ai pas trouvé chaussure à mon pied... Je cherche en fait à copier un graphique qui est dans le 13ème onglet de ma feuille Excel (Onglet "Synthèse") mais pas moyen de copier ce graphe... Je pense que je ne suis pas loin mais je n'y arrive pas... Voici le bout de code posant problème :

Worksheets("Synthèse").Activate
ActiveSheet.ChartObjects(13).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
.TypeParagraph
.Paste

Merci pour votre aide !


A voir également:

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
13 avril 2015 à 18:44
Bonjour,

après ce post, je croyais que tout fonctionnait:

https://forums.commentcamarche.net/forum/affich-31817808-copier-un-graphique-d-excel-dans-un-fichier-word#p31818589

A tout hasard:

Vérifies en cliquant sur ton graph le nom qui est affiché dans la Barre de Formule. Et si cela correspond à 13!
Si ce n'est pas le cas mets ce qui est affiché, comme ceci par exemple:

ActiveSheet.ChartObjects("Mongraph").Activate
0
Guiboule1015 Messages postés 11 Date d'inscription vendredi 5 décembre 2014 Statut Membre Dernière intervention 14 avril 2015
14 avril 2015 à 15:10
Merci cs_Le Pivert, à présent tout fonctionne correctement. Je pense que j'avais un peu trop "la tête dans le guidon" et je ne trouvais pas la solution. Je tâcherai de prendre du recul les fois prochaines. Merci !
0