Discussion :

[merlinus3000]

Bonjour à tous,

Je souhaite réaliser des présentations sous PowerPoint de manière automatisée à partir d'un fichier Excel.

Le FAQ ( http://excel.developpez.com/faq/?page=Powerpoint ) donne un très bon début de piste.

Là je souhaite arriver à automatiser certains points.

Est-ce que je peux utiliser deux fichiers différents pour réaliser un graphique ? Afin de combiner le fichier de données de l'année 2013 avec celui des données de 2014.

Sur chacun des fichiers j'aurais la structure suivante :

(onglets selon les mois)

Code client - Donnée 1 - Donnée 2 - etc.

Et cela pour 2012, 2013, 2014, ...

Je retrouve le même code client dans chaque onglet. Ensuite, j'ai différents codes clients, que je retrouve de mois en mois.

Donc je prends la donnée 1 du mois de janvier 2013, que je vais comparer à la donnée du mois de janvier 2014, du même client. Il n'y a qu'une ligne par client, et différentes données.

Merci pour votre retour et idées.

[Daniel.C]

Bonjour,

C'est parfaitement possible. Ouvre les deux classeurs, copie les données des différents classeurs et colle-les dans le graphique. Si tu veux plus de précisions, mets deux classeurs -sans données confidentielles - en PJ.

[merlinus3000]

J'ai crée deux fichiers, avec juste 3 onglets (janvier à mars), 3 clients, et 2 colonnes de données.

Après création des différents graphiques, je vais utiliser le code du FAQ qui permet d'insérer les graphiques dans une présentation PowerPoint.

J'aurais peut-être besoin d'aider pour adapter le code qui est dans le FAQ.

Merci pour l'aide

[Daniel.C]

Avant d'aller plus loin, est-c que tu veux un graphique mensuel ou un graphique annuel ?

[merlinus3000]

Mensuel, car chaque mois on alimentera l'onglet correspondant et l'on fera une revue de performance du client sur le mois, comparativement à l'année précédente.

[Daniel.C]

Mets cette macro dans un module standard du classeur 2014. Pour l'exécution de la macro, les deux classeurs doivent être ouverts.

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
Sub CreerGraphiques()
    Dim Sh As Worksheet, Co As ChartObject
    ThisWorkbook.Activate
    For Each Sh In Worksheets
        With Sh
            For Each Co In Sh.ChartObjects
                Co.Delete
            Next Co
            Application.Goto .[IV1], True
            Set Graph = .Shapes.AddChart(xlColumnClustered, .[F1].Left, .[A8].Top)
            .[A1].Select
            With .ChartObjects(1).Chart
                .SeriesCollection.NewSeries
                .SeriesCollection(1).Name = "Ventes type 1 2013"
                .SeriesCollection(1).Values = "='[2013.xlsx]" & Sh.Name & "'!$B$2:$B$4"
                .SeriesCollection.NewSeries
                .SeriesCollection(2).Name = "Ventes type 1 2014"
                .SeriesCollection(2).Values = "='" & Sh.Name & "'!$B$2:$B$4"
                .SeriesCollection.NewSeries
                .SeriesCollection(3).Name = "Ventes type 2 2013"
                .SeriesCollection(3).Values = "='[2013.xlsx]" & Sh.Name & "'!$C$2:$C$4"
                .SeriesCollection.NewSeries
                .SeriesCollection(4).Name = "Ventes type 2 2014"
                .SeriesCollection(4).Values = "='" & Sh.Name & "'!$C$2:$C$4"
                .SeriesCollection(4).XValues = "='01 - janvier'!$A$2:$A$4"
            End With
        End With
    Next Sh
End Sub