Discussion :

[graphikris]

Bonjour,

Une fois par mois je dois copier des indicateurs et tableaux de bord d'une base de données Excel vers un Powerpoint (3 diapos)
Ces copier/coller comportent 1 graphique nommé "Graphique8" dans Excel puis des tableaux situés dans des zones de cellules mais toujours sur la meme feuille.

J'ai trouvé une macro bien sympa mais qui bloque à la ligne 14
et si je passe les lignes 13 à 16 en commentaires afin de sauter ces lignes, ensuite ça bug a la ligne 20

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub RMD_M43()
   ' On déclare une variable de type Application PowerPoint
   Dim ppt As PowerPoint.Application
   Set ppt = CreateObject("PowerPoint.Application")
   ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
   ' On crée maintenant un objet Presentation
   Dim Pres As PowerPoint.Presentation
   ' Et on lui dit de quelle présentation il s'agit :
   Set Pres = ppt.Presentations.Open(Filename:="U:\Groupes fonctionnels\RMD M43.pptm")
   ' On active, sélectionne et copie le Graphique de Excel :
   Sheets("Accueil").Select
   ActiveSheet.Unprotect
    ActiveSheet.ChartObjects("Graphique 8").Activate
    ActiveChart.ChartArea.Copy
   'Et on le colle dans la première diapositive de la présentation :
   Pres.Slides(1).Shapes.Paste
 
 
   ' Zone de la feuille Excel "data" à copier
Sheets("Accueil").Range("A7:O39").Copy
' Coller les cellules Excel dans Powerpoint
PptDoc.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
' !!! A rajouter à la suite du précédent code VBA !!!
PptDoc.Slides(2).Shapes(1).LockAspectRatio = msoFalse
PptDoc.Slides(2).Shapes(1).Left = 10
PptDoc.Slides(2).Shapes(1).Top = 10
PptDoc.Slides(2).Shapes(1).Height = 340
PptDoc.Slides(2).Shapes(1).Width = 700
 
 
   ' On enregistre la présentation PowerPoint :
   Pres.Save
   ' Et on quitte PowerPoint proprement :
   ppt.Quit
   Set ppt = Nothing
End Sub

Quelqu'un a-t-il une idée du pourquoi ça bug au "COPIER"
Nota : j'ai bien activé Microsoft Powerpoint dans la librairie.

Cordialement

[Menhir]

Evite les Select/Selection ou Activate/Active autant que faire se peut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RMD_M43()
   Dim ppt As PowerPoint.Application      ' Application PowerPoint
   Dim Pres As PowerPoint.Presentation    ' Presentation
 
   Set ppt = CreateObject("PowerPoint.Application")
   ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
   ' On lui dit de quelle présentation il s'agit :
   Set Pres = ppt.Presentations.Open(Filename:="U:\Groupes fonctionnels\RMD M43.pptm")
 
   Sheets("Accueil").Unprotect
 
   ' Copie du graphique
   Sheets("Accueil").ChartObjects("Graphique 8").ChartArea.Copy
   Pres.Slides(1).Shapes.Paste

[graphikris]

Bonsoir et merci Menhir,

Le code n'est pas de moi, c'est du plagia.
Sinon j'essaye demain au boulot et te tiens au courant.
Qu'en est il pour le reste du code qui bug aussi à la ligne 20 ?

Cordialement

[Menhir]

Qu'en est il pour le reste du code qui bug aussi à la ligne 20 ?

Quel message d'erreur ?

[graphikris]

Bonjour,
je viens de tester le code, ça bloque à la ligne 13 : ça copie et ça ne colle pas.

[Menhir]

Qu'est-ce que ça veut dire "ça bloque" ? Le programme s'arrête ? Sur quelle ligne s'arrête-t-il ? Quel est le message d'erreur ?

J'ai une question dont la réponse semble évidente mais dans le doute je vais la poser quand même : tu as quand même rajouté la fin de ton code à la partie que je t'ai donnée ?

[graphikris]

Bonjour,

Réponse : ca bloque=> signifie que la macro s'arrete, que le graphique est en attente de "Copie" Ligne 13 (Erreur d'execution 438 - Propriété ou méthode non géré par cet objet)
Reste du code mis => bien sûr.

Cordialement

[clementmarcotte]

Bonjour,

C'est quelle ligne 13 ?

La tienne à l'origine, ou celle de Menhir ?

P.S. Tiré de l'aide de VBA PowerPoint 2010. On ne peut pas coller n'importe quoi, n'importe comment dans une présentation PPT. Il faut tenir compte du mode d'affichage en cours dans PPT.

Référence du développeur PowerPoint
Shapes.Paste, méthode
Cette méthode colle les formes, les diapositives ou le texte contenus dans le Presse-papiers dans la collection Shapes spécifiée, au début de l’ordre de plan. Chaque objet collé s’ajoute à la collection Shapes spécifiée. Si le Presse-papiers contient des diapositives entières, celles-ci viendront se coller comme des formes contenant les images des diapositives. Si le Presse-papiers contient du texte, celui-ci sera collé dans une nouvelle forme TextFrame. Elle renvoie un objet ShapeRange qui représente les objets collés.
Syntaxe

expression.Paste

expression Variable qui représente un objet Shapes.

Valeur renvoyée
ShapeRange

Remarques


Utilisez la propriété ViewType pour définir la vue d’une fenêtre avant d’y coller le contenu du Presse-papiers. Le tableau ci-après illustre ce que vous pouvez coller dans chaque vue.

Dans la vue... Vous pouvez coller, à partir du Presse-papiers...
Mode Diapositive ou Page de commentaires Formes, texte ou diapositives complètes. Si vous collez une diapositive à partir du Presse-papiers, une image de cette diapositive sera insérée dans la diapositive, le masque ou la page de commentaires en tant qu’objet incorporé. Si la sélection porte sur une forme, le texte collé sera annexé au texte de la forme ; si la sélection porte sur du texte, le texte collé viendra remplacer la sélection ; si la sélection porte sur autre chose, le texte collé sera placé dans son propre cadre. Les formes collées seront ajoutées en haut de l’ordre de plan sans remplacer les formes sélectionnées.
Mode Plan Texte ou diapositives complètes. Vous ne pouvez pas coller de formes dans le mode Plan. Une diapositive collée sera insérée avant la diapositive contenant le curseur.
Mode Trieuse de diapositives Diapositives complètes. Vous ne pouvez pas coller de formes ni de texte dans le mode Trieuse de diapositives. Une diapositive collée sera insérée au niveau du curseur ou après la dernière diapositive sélectionnée dans la présentation.


Exemple


Cet exemple montre comment copier dans le Presse-papiers la forme 1 de la diapositive 1 de la présentation active, puis la copier dans la diapositive 2.

Visual Basic pour Applications

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ActivePresentation
    .Slides(1).Shapes(1).Copy
    .Slides(2).Shapes.Paste
End With

Cet exemple montre comment couper le texte de la forme 1 de la diapositive 1 de la présentation active, le placer dans le Presse-papiers, puis le coller après le premier mot de la forme 2 de la même diapositive.

Visual Basic pour Applications

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ActivePresentation.Slides(1)
    .Shapes(1).TextFrame.TextRange.Cut
    .Shapes(2).TextFrame.TextRange.Words(1).InsertAfter.Paste
End With

© 2010 Microsoft Corporation. Tous droits réservés.

[graphikris]

C'est la ligne 13 pour Menhir ou la ligne 14 pour mon code

[Minise]

peut etre ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Accueil").ChartObjects("Graphique 8").copy

[graphikris]

Bonjour Minise,

ne fonctionne pas : msg erreur =>
erreur d'execution '-2147418113 (8000ffff)':
la méthode 'copy' de l'objet 'chartobject' a échoué

[clementmarcotte]

Bonjour,

Ceci marche chez-moi. Attention pour "décommentairiser" la ligne de ton chemin d'accès et d'enlever la mienne et d'ajuster ton nom de graphique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub RMD_M43()
   Dim ppt As PowerPoint.Application      ' Application PowerPoint
   Dim Pres As PowerPoint.Presentation    ' Presentation
   Set ppt = CreateObject("PowerPoint.Application")
   ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
   ' On lui dit de quelle présentation il s'agit :
  ' Set Pres = ppt.Presentations.Open(Filename:="U:\Groupes fonctionnels\RMD M43.pptm")
    Set Pres = ppt.Presentations.Open(Filename:="C:\Temp\Présentation1.pptm")
   Sheets("Accueil").Unprotect
   ' Copie du graphique
 '  Sheets("Accueil").ChartObjects("Graphique 8").ChartArea.Copy
 Dim graphique As Chart
Set graphique = Sheets("Accueil").ChartObjects(1).Chart
'Sheets("Accueil").ChartObjects(1).ChartArea.Copy
graphique.ChartArea.Copy
   Pres.Slides(1).Shapes.Paste
End Sub

[graphikris]

Bonjour et merci,

Lorsque je crée un nouveau classeur puis insere un nouveau graphique(1), ta macro fonctione tres bien.

Mais dans mon fichier, ça bug car lorsque je clique sur mon premier graphe, il s'appelle "Graphique 8" et le second "Graphique 11". Lorsque je remplace à la ligne 13 de ta macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set graphique = Sheets("Accueil").ChartObjects(1).Chart

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set graphique = Sheets("Accueil").ChartObjects(8).Chart

, Excel me dit que l'objet n'existe pas.
Lorsque je met :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set graphique = Sheets("Accueil").ChartObjects(11).Chart

,idem.
Mais lorsque je laisse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set graphique = Sheets("Accueil").ChartObjects(1).Chart

, Excel me colle le graphique 11.
J'ai essayé de trouvé quel était le n° du graphe8 mais je ne trouve pas.

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set graphique = Sheets("Accueil").ChartObjects("Graphique 8").Chart

L'item et le nom n'ont pas de rapport direct.

Essaye un truc.
Dans une page vierge, tu crées 3 graphiques qui, normalement, devraient s'appeler "Graphique 1", "Graphique 2" et "Graphique 3".
Tu supprimes "Graphique 2" et tu crées un nouveau graphique qui devrait s'appeler "Graphique 4".
Puis tu lances la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Test
Dim XX as Object
For Each XX in ActiveSheet.ChartObjects
    Debug.Print XX.Index, XX.Name
Next XX
End Sub

Tu verras que les numéros des Item ne correspondent pas à ceux des noms.

[graphikris]

Bonjour Menhir,

Je viens de faire exactement ce que tu m'as dit de faire. ET ????

Le nom du graphique 1 reste nommé Graphique 1
Le nom du graphique 3 reste nommé Graphique 3
Le nom du graphique 4 reste nommé Graphique 4

J'ai supprimé d'autres graphes puis créé de nouveau graphe et idem ?

Pièce jointe 200938

[Menhir]

Les noms de graphiques ne changent pas mais leurs numéro d'index changent.

Lance la macro que je t'ai donnée, tu comprendras mieux.

Si tu fais la manip que je t'ai indiqué, ton Graphique 3 aura l'indexe 2 et le Graphique 4 aura l'index 3, même si leur nom (y compris le numéro se trouvant dans leur nom) ne change pas.

Donc, si dans mon exemple tu fais référence à ChartObjects(3), ça pointera sur Graphique 4 et non pas sur Graphique 3.

Donc ton ChartObjects(8) pour pointer sur ton Graphique 8 était impropre, d'où ma proposition de code en le désignant par son nom, ce qui est plus fiable.

[graphikris]

Regarde le fichier joint,
Lorsque je déclenche la macro, rien ne se passe.
Sinon où trouve-t-on le N° d'index ?

[Menhir]

Regarde le fichier joint,

Non
http://www.developpez.net/forums/d84...s-discussions/

Lorsque je déclenche la macro, rien ne se passe.

Est-ce que tu as ouvert la fenêtre d'exécution de l'éditeur VBA.
C'est dans cette fenêtre que s'affiche le résultat des Debug.Print (comme tu aurais pu l'apprendre en regardant cette méthode dans l'aide VBA d'Excel).

Sinon où trouve-t-on le N° d'index ?

A ma connaissance, on ne peut pas le trouver sans VBA.
Mais tu n'en as pas besoin puisque je t'ai indiqué dans le message #15 comment t'en passer.
Le reste, c'était juste pour te montrer que pointer sur l'indexe (comme tu l'as fait en écrivant ChartObjects(8) ) n'est pas fiable et qu'il vaut mieux l'éviter.

[graphikris]

je sais qu'il ne faut pas joindre des fichiers inutilement mais je ne comprend plus rien.

Est-ce que tu as ouvert la fenêtre d'exécution de l'éditeur VBA.

Oui j'ai fait Alt F11

C'est dans cette fenêtre que s'affiche le résultat des Debug.Print

C'est quoi un Debug.Print ? (je galère en Vba)

Le reste de ta réponse ne m'amène rien, je ne comprends meme pas ce que tu essaye de me faire comprendre.

Le reste, c'était juste pour te montrer que pointer sur l'indexe (comme tu l'as fait en écrivant ChartObjects(8) ) n'est pas fiable et qu'il vaut mieux l'éviter.

Que faut il faire pour l'éviter ?

[Menhir]

Oui j'ai fait Alt F11

A moins que ça ait changé dans les dernières versions d'Excel, la fenêtre d'exécution c'est Ctrl+G
Ou Affichage > Fenêtre Exécution

C'est quoi un Debug.Print ? (je galère en Vba)

Tu ouvres l'aide VBA d'Excel.
Dans le champ de recherche, tu tapes Debug
Dans la page de Debug, tu sélectionnes Méthode puis Print et tu auras tous les renseignements voulus.

Le reste de ta réponse ne m'amène rien, je ne comprends meme pas ce que tu essaye de me faire comprendre.

Je sais que ça ne se fait pas de se siter soi-même mais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set graphique = Sheets("Accueil").ChartObjects("Graphique 8").Chart

Que faut il faire pour l'éviter ?

Voir ci-dessus