Discussion :

[Thomas S]

Bonjour à tous,

Vous trouverez en pièce jointe un fichier excel que j'ai créé permettant de s'enregistrer avant de lancer une auto-formation PowerPoint en format .ppsm.
EP Environmental Awareness Registry Form_dvl.xlsm

Le code que j'ai fait permet d'enregistrer le fichier excel, d'ouvrir le .ppsm et de fermer le fichier excel (vous trouverez le code ci-dessous). Le problème qui se pose à moi est le suivant: Lorsque l'application Powerpoint est ouverte, aucun souci, le fichier .ppsm s'ouvre automatiquement et est directement visible. Mais lorsque l'application Powerpoint n'est pas ouverte, le fichier .ppsm s'ouvre également automatiquement mais il reste en surbrillance en bas dans la toolbars sans être visible automatiquement. Ce qui n'est clairement pas optimum...

Serait-il possible de m'aider?
Thanks!

Systeme d'exploitation: Windows 7 enterprise
MS tools: Microsoft Excel 2010, Microsoft PowerPoint 2010

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub fermeture()
Set wb = ThisWorkbook
Fname = "C:\Users\NG14EAB\Documents\Travail Airbus\Environment & Substances\Environnement\EP Environmental Web Portal\Test_EP Environmental Organisation.ppsm"
'ouverture fichier'
Set Obj1 = CreateObject("powerpoint.application")
Obj1.Presentations.Open Filename:=Fname
 
'fermeture classeur
wb.Save
wb.Close
 
Obj1.Visible = True
End Sub

[Jean-Philippe André]

Salut,

2 solutions m'apparaissent envisageables ici :
- activer ton Obj1 après avoir ouvert le fichier
- utiliser la fonction ShellExecute sur ton fichier ppsm

[Thomas S]

Salut,

Merci pour ta réponse.

J'ai déjà esssayé d'activer l'obj 1, mais ça ne marche po...

Je n'arrive pas à utiliser la fonction ShellExecute.

Mais je suis loin d'être un pro en VBA, donc il y a peut être quelque chose que je fait mal et que je n'arrive pas à comprendre.

[Marc-L]

Bonjour,

en utilisant l'application par défaut via l'association de fichiers de Windows comme dans cette procédure …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Thomas S]

Bonjour Marc,

Ca marche parfaitement. Merci beaucoup!

@+