Discussion :

[monsieurduss]

Bonjour,

j'ai trouvé un code VBA qui me permet d'ouvir un fichier PowerPoint depuis Excel pour ensuite y apporter des modifications et je souhaiterai maintenant pour "enregistrer sous" le fichier powerpoint modifié.

Est-ce que vous auriez une idée?

Merci!

[Menhir]

Je n'ai jamais fait de VBA avec PowerPoint mais je suppose qu'un SaveAs sur la référence de la présentation traitée devrait faire l'affaire.
Lire ça : https://docs.microsoft.com/fr-fr/off...ntation.saveas

[clementmarcotte]

Bonjour,

Je plussoie Menhir en précisant que tu dois utiliser le saveas de PowerPoint et pas celui d'Excel. En supposant que tu es passé par un createObject (sans référence à PPT) ou un new (avec référence à PPT) tu dois faire ton saveas de la présentation. (Ce sont deux saveas "différents", même s'ils ont le même nom).

Utilise tes propres noms d'objets, mais cela devrait ressembler à cela (de mémoire et non testé)

Code :

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

1
2
3
4
5
6
7
dim appPPT as PowerPoint.application
dim LaPrésentation as PowerPoint.présentation
 
set appPPT = createobject(PowerPoint.application)
set LaPrésentation = appPPT.presentations.open("Hector.pptx")
 
LaPrésentation saveas("HectorNouveau.pptx")

Si tu veux changer le format, tu ajoutes une des constantes sur la page indiquée par Menhir.

[Menhir]

En supposant que tu es passé par un createObject (sans référence à PPT)

Perso, pour ouvrir un fichier "non-Excel" déjà existant, je préfère passer directement par un GetObject. https://docs.microsoft.com/fr-fr/off...bject-function
Ca évite de passer par l'étape "Application".

[monsieurduss]

Merci pour vos réponses!

J'ai un peu de "grains à moudre" avec ces informations et je vais creuser dans cette direction.

Je reviendrai avec un résultat ("youpi") ou une question (moins "youpi")

[monsieurduss]

Finalement je reviens avec une question, je n'arrive pas à utiliser SaveAs...

Code :

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

1
2
3
pptApp = GetObject(, "PowerPoint.Application")
MaPresentation= pptApp.Presentations.Open(Chemin)
MaPresentation.SaveAs("MaPresentation.pdf",ppSaveAsPDF,)

Et j'ai un message d'erreur, "ppSaveAsPDF variable non définie"

J'ai essayé plusieurs écritures:

Code :

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

1
2
MaPresentation.SaveAs "MaPresentation.pdf", ppSaveAsPDF 
MaPresentation.SaveAs FileName:=MaPresentation.pdf", FileFormat:=ppSaveAsPDF

Mais rien n'y fait. J'ai beau relire la doc, il y a quelque chose qui doit m'échapper et je n'y arrive pas. Donc ma question: C'est quoi le truc idiot que j'ai oublié de faire?

[Pierre Fauconnier]

Salut.

Tu as ce problème parce que tu n'as pas référencé la bibliothèque PowerPoint. Tu ne peux donc pas utiliser une constante de cette bibliothèque. Tu as trois choix:

• Référencer la bibliothèque, ce qui te permettra de travailler en early binding. Tu pourras alors déclarer tes objets PP en spécifiant leur type plutôt qu'en les déclarant As Object, tu auras la saisie semi-automatique, ...;
• Remplacer ppSaveAsPDF par 32 qui est la valeur de la constante partout dans ton code;
• Déclarer la constante en début d'un module standard avec la lignes Public Const ppSaveAsPDF as long = 32 et continuer à utiliser cette constante partout dans ton code.