Discussion :

[Jean-Philippe André]

Je pars d'un fichier pptx avec une slide qui me sert de modele.

Je programme dans Excel la duplication de cette slide.

Je copie des plages de cellules de mes classeurs excel, j'ajoute ou supprime des informations...

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
Set PPTApp = CreateObject("PowerPoint.Application")
        PPTApp.Visible = True
        PPTApp.Activate
        'open template
        Set PPPrez = PPTApp.Presentations.Open(PPT_TEMPLATE_PATH, msoTrue)
 
     'blabla
ThisWorkbook.Worksheets(STR_SHEETNAME).Range("C" & jmin & ":E" & jmax).Copy
                '2 treatment under PPT
 
                    PPPrez.slides(i + 1).Select
 
                    PPPrez.slides(2).Select                
                'PPTSld.Activate
                PPTApp.CommandBars.ExecuteMso ("PasteExcelTableDestinationTableStyle")
 
Dim strsavePath As String
        strsavePath = PPT_FOLDER_PATH & Format(Now, "YYYYMMDD_hhmmss") & ".pptx"
        PPPrez.SaveAs strsavePath, 11
        'close
        PPPrez.Close
        PPTApp.Quit
        'clean
        Set PPTApp = Nothing
        'open the pptx
        ShellExecute 0, "open", strsavePath, "", PPT_FOLDER_PATH, 1

Je ne peux pas faire beaucoup plus pour toi, le reste etant confidentiel =]

[remy.edf]

Je comprends que ce soit confidentiel et je t'avoue que là ça dépasse mes ,connaissances en programmation et c'est trop complexe...
Tu penses qu'il n'y a pas d'autres façons de faire cela ?

[Jean-Philippe André]

Mise a part la piste evoquee plus tot dans ce fil, je ne sais pas.

Je ne suis pas un expert PPT

[remy.edf]

D'accord je te remercie.

Tout à l'heure, quand on parlait du message lié à la dernière macro que tu m'as envoyée, tu m'as dit que c'était peut-être un problème lié au clé de registre, c'est-à-dire?

[Jean-Philippe André]

POur eviter d'avoir le message d'erreur

Modifier les clées de registres comme suit :

- Appuyez sur [Windows]+[R], saisissez REGEDIT et cliquez sur OK

Première séquence
- Déployez la clé HKEY_CLASSES_ROOT \ Excel.Sheet.12 \ Shell \ Open
- Supprimez la clé DDEEXEC en cliquant dessus du bouton droit et en choisissant Supprimer
- Entrez dans clé COMMAND
- Remarquez la présence d'une valeur "(par défaut)" et d'une valeur "command"
- Cliquez du bouton droit sur la valeur "command" et choisissez "Supprimer"
- Double-cliquez sur la valeur "(par défaut)"
- Ajoutez un espace puis "%1" (avec les guillemets) en fin de ligne pour que la donnée ressemble à:
"C:\Program Files\Microsoft Office\Office12\EXCEL.EXE" /e "%1"
Deuxième séquence
- Déployez la clé HKEY_CLASSES_ROOT \ Excel.Sheet.8 \ Shell \ Open
- Supprimez la clé DDEEXEC en cliquant dessus du bouton droit et en choisissant Supprimer
- Entrez dans clé COMMAND
- Remarquez la présence d'une valeur "(par défaut)" et d'une valeur "command"
- Cliquez du bouton droit sur la valeur "command" et choisissez Supprimer
- Double-cliquez sur la valeur "(par défaut)"
- Ajoutez un espace puis "%1" (avec les guillemets) en fin de ligne pour que la donnée ressemble à:
"C:\Program Files\Microsoft Office\Office12\EXCEL.EXE" /e "%1"
- Fermez REGEDIT
Maintenant, si vous double-cliquez sur deux fichiers XLS ou XSLX sur le bureau ou l'explorateur, ils s'ouvriront bien dans deux fenêtres différentes.

[remy.edf]

En fait le fait de changer les clés de registres, permet d'ouvrir deux fichiers Excel avec des noms identiques?

[Jean-Philippe André]

C'est ce que j'ai trouve, mais non teste.

Et oui, faire du developpement bureautique, ca coute des neurones et du temps de cerveau

[remy.edf]

Effectivement je confirme.

Je te remercie en tout cas.

[remy.edf]

Quelqu'un aurait-il une solution svp?

[Jean-Philippe André]

Salut,

l'efficacite bureautique ce n'est pas aussi simple que l'efficacite energetique pas vrai

Le fait d'avoir change les cles de registre n'a pas ete suffisant pour arriver au bout du probleme ?

[remy.edf]

Salut,

l'efficacite bureautique ce n'est pas aussi simple que l'efficacite energetique pas vrai

Le fait d'avoir change les cles de registre n'a pas ete suffisant pour arriver au bout du probleme ?

Je n'ai pas le droit de changer les clés de registre

[Jean-Philippe André]

Donc la solution reste d'arreter de vouloir passer par des fichiers lies et de faire de la generation d'un ppt a partir de donnees copiees/collees.

[remy.edf]

ça devient plus dur la aussi

[Jean-Philippe André]

C'est de la programmation VBA, ni plus ni moins

Et c'est une solution qui a le merite de pouvoir fonctionner sans cle de registre.

Derniere solution, te taper le tout a la main a chaque fois

[remy.edf]

ça c'est clair que je vais devoir el faire mais je ne sais pas par où commencer ^^

[Jean-Philippe André]

Voir le post #21

[mromain]

Bonjour remy.edf, Jean-Philippe, le forum,

Toujours dans le sens de Jean-Philippe, à savoir créer une présentation à partir d'un template, tu trouvera un exemple ici qui fait ce travail.
En gros, le code qui génère la présentation est dans le fichier Excel. Celui-ci possède également une feuille qui indique l'emplacement du modèle Powerpoint ainsi que le paramétrage permettant de savoir "quelle information (du fichier Excel) mettre où (dans la présentation)".

A+