Copie d'un graphique vers Word depuis un onglet précis [Résolu/Fermé]

Signaler
Messages postés
11
Date d'inscription
vendredi 5 décembre 2014
Statut
Membre
Dernière intervention
14 avril 2015
-
Messages postés
11
Date d'inscription
vendredi 5 décembre 2014
Statut
Membre
Dernière intervention
14 avril 2015
-
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 !


2 réponses

Messages postés
7284
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
4 mars 2021
617
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
Messages postés
11
Date d'inscription
vendredi 5 décembre 2014
Statut
Membre
Dernière intervention
14 avril 2015

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 !