Discussion :

[FrançoisLaterite]

Bjr,
J'ai PwP 2003 et 2007 sur ma machine ... Une des raisons est que PwP2003 sait générer du code VBA, ce qui permet d'appréhender les objets que l'on en connait pas, tandis que cela a été supprimé sous 2007, pour 2010 je ne sais pas.

J'ai du code qui sait ouvrir un fichier pwp, mais c'est 2003 qui est lancé par le

Code :

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

1
2
Set pwp = CreateObject("PowerPoint.Application")
pwp.visible=true

Si bien qu'après avoir utilisé :

Code :

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

1
2
3
ChDir ThisWorkbook.Path
file_to_open = Application.GetOpenFilename("Document PwP (*.pptx*), *.pptx", , "Choisir un template PwP", , False)
Set pres = pwp.Presentations.Open(file_to_open, , , msoFalse)

Comme on désigne un fichier pwp2007, l'ouverture se plante

Question : où faut-il agir pour que ce soit 2007 qui soit lancé au lieu de 2003 ?
Merci de votre aide

[arosec]

Bonsoir,

Il me semble qu'il y a 2 solutions.

1)
Voir le poste de Microsoft à ce sujet:
http://support.microsoft.com/kb/292491

À des fins de test, les développeurs peuvent forcer une version spécifique d'une application Office pour enregistrer en utilisant le commutateur /regserver sur la ligne de commande. Par exemple, pour forcer une version de Excel pour enregistrer sans exécuter le programme d'installation, vous pouvez utiliser une ligne de commande semblable à la suivante :
"c:\program files\microsoft office\office\excel.exe" /regserver

Le chemin indiqué doit correspondre à la version d'Excel qui sera utilisé par défaut.

2)
Tu peux remplacer la ligne

Code :

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

Set pwp = CreateObject("PowerPoint.Application")

par

Code :

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

Set pwp = New PowerPoint.Application

+ ajouter la référence de la version souhaitée dans ton projet VBA. ("Microsoft PowerPoint 12.0 Object Librrary" par exemple)

Cdlt,