Exportation Excel vers PPT avec VBA

[ikramea]

Bonjour à tous,
Je suis fraichement arrivée sur ce site et je suis une nouvelle utilisatrice de VBA donc très novice.
Mon problème est le suivant: j'ai un fichier excel qui s'appel Tableau de bord qu contient 18feuilles. Pour faire mes reporting mensuels, j'aimerai exporter chaque feuille (en séléctionnant la zone à copier) et exporter chaque feuille dans une slide sur ppt.

J'ai essayé des bouts de codes mais ca ne marche pas!!

Merci de m'aider car ca me faciliterai la vie!!!

[ZebreLoup]

Bonjour,

C'est bien sûr possible, mais avant de se lancer là-dedans, as-tu déjà pensé à générer directement un PDF depuis ta feuille Excel (avec PDF Creator par exemple). Ce sera plus simple et le fichier sera beaucoup plus léger.

[Philippe JOCHMANS]

Bonjour

Envoyé par ikramea

J'ai essayé des bouts de codes mais ca ne marche pas!!

Et lesquels ?

Philippe

[ikramea]

voici les codes que j'ai utilisés mais j'ai un message d'erreur:
erreur d'execution 424: objet requis

Code :

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
37
38
39
40
41
42
Sub export()
Dim PPT As Application
Dim PPtDoc As Workbook
Dim nom_feuil As Sheets
 
Set PPT = Powerpoint.Application
PPT.Visible = True
Set PPtDoc = PPT.presentations.Open("W:\DCIC_PSR\R-Tableau de bord DG\2011\11\Tdb DGA CACF International - Novembre 2011.ppt")
PPT.presentations.openfilename
 
'J 'initialise mes variables
 
nom_feuil(1) = "Presentation"
nom_feuil(2) = "Overview T"
nom_feuil(3) = "Overview M"
nom_feuil(4) = "CDR Histo"
nom_feuil(5) = "comments"
nom_feuil(6) = "Comments PRI"
nom_feuil(7) = "Taux couv Histo"
nom_feuil(8) = "CDR CACF France"
nom_feuil(9) = "Total CACF"
nom_feuil(10) = "INTERNATIONAL"
nom_feuil(11) = "GROUPE AGOS DUCATO"
nom_feuil(12) = "JV Auto"
nom_feuil(13) = "AUTRES FILIALES INTERNATIONALES"
nom_feuil(14) = "Annexe-autres int"
nom_feuil(15) = "Synthese COR"
nom_feuil(16) = "Synthese IRR"
nom_feuil(17) = "Graph_IRR"
nom_feuil(18) = "Tx acceptation"
 
Workbooks.Open Filename:="W:\DCIC_PSR\R-Tableau de bord DG\2011\11\Tdb DGA CACF International - Novembre 2011.xls"
For i = 1 To 18
    nom_feuil(i).Select
    SelectSheet.PageSetup.PrintArea
    Selection.Copy
ptBook.openfilename
 
Next
 
 
End Sub

le curseur jaune se met sur la ligne 5
Merci par avance pour votre aide

[Qwazerty]

Salut

J'avais participé à un topic en début d'année traitant du sujet, tu devrais pouvoir y trouver des renseignement de base, tu peux aussi faire une recherche en regardant les messages postés par Fidecourt (c'est la personne qui a posé la question dans le lien que je t'ai donné eu dessus) tu trouveras d'autre message traitant du sujet.

Par contre, il y'a peut-être d'autre option plutôt que de générer un fichier ppt à chaque fois, il est peut-être possible de faire des liaisons.

As-tu regardé également la proposition de ZebreLoup? as-tu obligation d'utiliser powerpoint pour faire tes reporting?

++
Qwaz

[Philippe JOCHMANS]

Bonjour

Les déclarations de tes objets PowerPoint sont fausses.

Regardes le lien de Qwazerty , les déclarations sont bonnes.

De plus une recherche dans la FAQ Excel avec le mot PowerPoint t'aurait donné les bonnes indications : http://excel.developpez.com/faq/inde...her=powerpoint

Philippe

[ikramea]

A tous,
Merci pour votre aide et vos conseils.
En effet je crois que vous avez raison pour le PDF, je suis entrain de laisser tomber mon idée de copier coller sur ppt ( c'est plus lourd et ca prend du temps aussi).
Je vais commencer à reflechir aux codes pour générer le fichier PDF à partir de mon fichier Excel.

Je reviendrai vers vous pour vous donner des nouvelles de mon avancée.

Merci à tous pour vos conseils si précieux!

[Qwazerty]

Salut

Si tu utilise une version d'excel >= à 2007, tu regarde dans le menu enregistré sous, il y a possibilité d'exporter ton fichier Excel en PDF.

++
Qwaz