Discussion :

[discus23]

Bonjour le forum,

Commençons par poser le contexte de mon problème. Je travaille sur une macro existante qui, à partir de données et de modèles de graphiques stockés dans un fichier .potm, crée plusieurs fichiers .ppt et tout une batterie de graphiques.
Cette macro fonctionnait parfaitement sous Excel 2010, mais certaines méthodes ne fonctionnent plus sous Excel 2016. Je suis en train de mettre à jour cette macro, mais un bug résiste toujours, et malgré plusieurs heures dessus, je ne me l'explique toujours pas...

Le bug exact retourné est : La méthode Top de l'objet PlotArea a échoué.

Et voici les lignes de code concernées :

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
 
Dim Mychart As PowerPoint.Chart
 
Set oPPTapp = CreateObject("PowerPoint.Application")
 
Set Mychart = oPPTapp.ActivePresentation.Slides(ID_Slide).Shapes(Nom_shape_Graphe).Chart
 
Mychart.SetSourceData Source:="='Feuil1'!" & Range("$A$1:$B$" & WS.Range("A10000").End(xlUp).Row).Address, PlotBy:=xlColumns
 
Temporis 7000
Mychart.Refresh
Temporis 5000
Mychart.PlotArea.Select
Temporis 20000
Mychart.PlotArea.Top = 7
Mychart.PlotArea.Height = 307
Mychart.Refresh

...qui bug donc sur la ligne

Code :

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

Mychart.PlotArea.Top = 7

Après vérif sur le site de Microsoft, la méthode existe toujours bien sous 2016, je la retrouve via l'enregistreur de macro, j'ai testé différentes options que j'ai glané ci et là sur le net, ... mais rien n'y fait.
Je me pencherais plus vers la définition ou la déclaration de certains objets ? Mais si c'est le cas, une subtilité m'échappe...

Merci de votre aide !! :)

[discus23]

Bonjour,

Je me permets un UP de ce sujet, n'ayant toujours pas résolu ce problème....

Merci !

[halaster08]

Bonjour,

Mis a part la fonction temporis que mon Excel ne reconnait pas, j'ai testé ta macro sur un fichier de test et elle fonctionne
Du coup que fait ta fonction temporis ? es-tu sur qu'elle n'interfère pas avec la définition de mychart ?

[discus23]

Merci pour ce premier retour,
Je ne suis pas le créateur initial de cette macro, donc je n'en connais pas tous les détails.
Mais cette fonction Temporis est une fonction fleuve utilisée pour laisser du temps à Excel d'effectuer tous les traitements nécessaire.

Si cela marche de ton coté, est-ce que cela veut dire que je dois plutôt regarder du coté du fichier potm ?

EDIT : J'ai testé sans cette fonction Temporis, mais cela ne fonctionne toujours pas...

[halaster08]

Code :

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

Set Mychart = oPPTapp.ActivePresentation.Slides(ID_Slide).Shapes(Nom_shape_Graphe).Chart

Dans le code que tu as posté il n'y a pas les affectations de tes variables ID_Slide et Nom_shape_Graphe, quels sont leur valeur au moment de l'erreur ? est-ce bien que tu attendais?

[discus23]

Oui de ce côté là, tout est ok.

Lorsque je teste ces lignes seules sur le fichier .potm d'origine, cela fonctionne bien...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub autochart()
Dim Mychart As PowerPoint.Chart
 
Set oPPTapp = CreateObject("PowerPoint.Application")
 
Set Mychart = oPPTapp.ActivePresentation.Slides(8).Shapes("GRAPHE_01").Chart
 
With Mychart.PlotArea
    .Select
    .Top = 7
End With
 
End Sub

Le code complet de cette partie est un peu plus long, mais je ne vois pas ce qui pourrait interférer :

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
 
If Left(Nom_shape_Graphe, 7) = "GRAPHE_" Then
        Set Mychart = oPPTapp.ActivePresentation.Slides(ID_Slide).Shapes(Nom_shape_Graphe).Chart
 
            Set gChartData = Mychart.ChartData
            Temporis 10000
            gChartData.Activate
            Set gWorkBook = gChartData.Workbook
            Set gWorkSheet = gWorkBook.Worksheets(1)
 
            gWorkSheet.Activate
            gWorkSheet.Range(gWorkSheet.Cells(3, 1), gWorkSheet.Cells(100, 100)).ClearContents
            gWorkSheet.Range(gWorkSheet.Cells(1, 3), gWorkSheet.Cells(50, 100)).ClearContents
 
            For I = 2 To WS.Cells.SpecialCells(xlCellTypeLastCell).Row
                gWorkSheet.Cells(I, 1) = WS.Cells(I, 1)
                gWorkSheet.Cells(I, 2) = CDbl(MATRICE_CALC(1, 3, I - 2))
 
            Next I
            gWorkSheet.Activate
            gWorkSheet.ListObjects("Tableau1").Resize Range("$A$1:$B$" & WS.Range("A10000").End(xlUp).Row)
 
            Mychart.SetSourceData Source:="='Feuil1'!" & Range("$A$1:$B$" & WS.Range("A10000").End(xlUp).Row).Address, PlotBy:=xlColumns
 
            'Temporis 7000
            'Mychart.Refresh
            'Temporis 5000
            Mychart.PlotArea.Select
            'Temporis 20000
            Mychart.PlotArea.Top = 7
            Mychart.PlotArea.Height = 307
 
            Mychart.Refresh
 
End If

[halaster08]

Le code complet de cette partie est un peu plus long, mais je ne vois pas ce qui pourrait interférer :

Moi non plus.
A ta place j'essayerais de mettre la ligne Mychart.PlotArea.Top = 7 à différents endroit de la macro pour essayer de voir où se trouve le problème.
Notamment avant et après cette ligne (23ème): Mychart.SetSourceData vu que tu y modifie la source du graphique.

[discus23]

Je me permets un nouveau UP sur ce sujet car ni je ne comprends pourquoi cela bug en l'état, ni je n'ai la moindre piste de solution en vue...après des jours et de jours de recherche!