Discussion :

[tiber33]

Bonjour,

J'ai créer un code excel qui:

1. à partir de données excel, va créer un fichier powerpoint "MASTER.ppt",
2. y coller le contenu d'autres fichiers ppt, qui seront fermés sans êtres enregistrés,
3. puis fermer en enregistrant "MASTER.ppt"

Tout fonctionne parfaitement, excepté l'enregistrement de master.ppt, l'erreur suivante apparait pendant l'étape .save:

"Mémoire disponible insuffisante pour terminer cette opération"

Sachant que j'utilise le code suivant, qui pour d'autres traitements de fichiers ppt marche parfaitement:

Code :

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

1
2
3
4
5
6
7
8
9
 
dim maitre as powerpoint.presentation
 
set maitre = appPPoint.activepresentation
 
With maitre
  .save
  .close
End with

Sachant que j'ai également la méthode saveas (dans le doute), tout comme le "on error resume next // on error goto 0" qui n'a pour finalité que de masquer l'erreur, mais mon fichier ne s'enregistre pas quand même.


Quelqu'un aurait-il une idée?
Pour info, le ppt fait 284 pages.....

Avec des enregistrements intermédiaires, cela ne marche pas non plus lorsque master.ppt fait 227 pages, il faudrait donc s'affranchir de ce problème de taille.

[tiber33]

Bon désolé, j'ai finalement trouvé la réponse, je la poste, elle est toute bête, et j'espère qu'elle en aidera d'autres.

Cela dit, si quelqu'un a une autre solution je suis curieux de l'entendre.

lorsque je créé master.ppt, ben je le créée en master.pptx en fait, et plus de problème...

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
dim appPPoint as powerpoint.application
dim maitre as powerpoint.presentation
dim chemin as string
 
chemin=workbooks(activeworkboo.name).path
Set appPPoint = new powerpoint.application
 
with appPPoint.presentations.add
  .saveas chemin & "\master.pptx"
end with
 
set maitre=appPPoint.activePresentation
 
'code
 
 
With maitre
  .save
  .close
End with