Discussion :

[Akxn0008]

Bonjour,

J'ai une macro qui me permet de créer plusieurs presentations avec des données en Excel. Chaque ligne contient des info qui sont mis en graphique dans PowerPoint. Le seul probleme est que les macros sont présentes dans chaque présentation.
Comment puis-je les éffacer en faisant un .SaveCopyAs ?

Merci,
Kevin

[Akxn0008]

J'ai trouvé un moyen.

Dans la version 2007 les ppt avec macro sont enregistrées avec l'extension .pptm, alors que les présentations sans macro ont une extension .pptx.

J'ai donc sauvegardé une copie du .ppt en .pptx (.pptx ne peu pas contenir de macros, ils ne sont donc pas sauvegardés avec)

Code :

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

1
2
ActivePresentation.SaveCopyAs _
  "C:\........\Test\" & NumPres & ".pptx"

Ensuite j'ouvre le .pptx que je viens de créé

Code :

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

1
2
Application.Presentations.Open _
  "C:\........\Test\" & NumPres & ".pptx"

Je le sauvegarde en .ppt (qui sera sans macros)

Code :

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

1
2
ActivePresentation.SaveAs _
  "C:\........\Test\" & NumPres & ".pptx"

Je le ferme car sinon les macros du fichier original vont ecrire dans celui-ci (la dernière présentation ouverte est celle qui est active => activepresentation !)

Code :

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

ActivePresentation.Close

Et pour finir je supprime le fichier .pptx qui n'est plus utile.

Code :

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

Kill "C:\........\Test\" & NumPres & ".pptx"

Voilà...

Si quelqu'un à une solution plus courte qui prendrait moins de temps, car la macro une fois démarrer va créer plus ou moins 250 présentation . Et moins cela prendra du temps mieux ce sera .

Kevin