ouvrir une presentation PowerPoint depuis une macro

[Leeloo]

Bonjour,

Je suis sensée sauver le monde avec ma macro mais je n'y arrive pas. Mon pb : ouvrir une présentation powerpoint depuis une macro.

Voilà ce que j'ai écris et ça ne marche pas (pourtant j'ai bien été dans outils>références> et j'ai coché PowerPOint 10.0 Object Library etc...)

Dim oApp As PowerPoint.Application
Dim oDoc As PowerPoint.Presentation

On Error Resume Next
Set oApp = GetObject(, "PowerPoint.Application")

If oApp Is Nothing Then
Set oApp = New PowerPoint.Application
End If

On Error GoTo 0
If oApp Is Nothing Then
MsgBox "The application is not available!"
End If

With oApp
.Visible = True
Set oDoc = .Presentation.Open("O:\Fiches produits \ marché \ Crèmes \ produits Auchan.ppt")
.Quit

End With
Set oDoc = Nothing
Set oApp = Nothing

Sheets("UniversC").Select
Cream.Show


Si qq1 peut m'aider, je serais ravie
(j'ai essayer d'appliquer mon pb à celui du monsieur qui voulait ouvrir un doc Word mais je n'y suis pas parvenue...)

A bientôt

Leeloo

 

[Michel]

bonjour Leeloo

peux tu tester la macro ci desous

Sub LancerPPT()
Dim Cible
Cible = Shell("POWERPNT.EXE ""O:\Fiches produits \ marché \ Crèmes \ produits Auchan.ppt""", 1)
End Sub

la macro fonctionne chez moi , mais cela me semble non fiable .
J'ai aussi essayè d'utiliser l'exemple de Dan ( dans un autre post de ce matin pour word ) mais cela ne fonctionne pas avec des espaces dans les noms de repertoires ou de fichiers...;o(
c'est peut etre lié à ma version d'excel97


bon apres midi
Michel

 

[Leeloo]

Salut Miche!

Tout d'abord merci de m'avoir répondu.
J'ai donc essayé mais cela à marché à moitié.
En effet, si je tape ta solution :

Sub LancerPPT()
Dim Cible
Cible = Shell("POWERPNT.EXE ""O:\Fiches produits \ marché \ Crèmes \ produits Auchan.ppt""", 1)
End Sub

> Ca ne marche pas. Une boite de dialogue dit " Le chemin d'accès ou le nom de fichier de O:\Fiches produits \ marché \ Crèmes \ produits Auchan.ppt n'est pas valide. Vérifier votre saisie. "

C'est donc ce que j'ai fait (j'ai vérifier 300 fois l'orthographe, tout ça ... mais rien à faire)

Par contre, si je tape simplement :

Sub LancerPPT()
Dim Cible
Cible = Shell("POWERPNT.EXE ""O:\ produits Auchan.ppt""", 1)
End Sub

Cela fonctionne!!

C'est donc bon signe sauf que ça m'arrangerait sérieusement que le chemin pour accéder au fichier marche sinon il faudrait que je renomme tous mes fichiers et mon classement sera moins beau ...(Bon, Je choisirai cette solution s'il n'y a pas mieux... )

Mais je suis sûre que tu dois avoir ton idée sur ce pb de chemin valide.

Voilà j'attends avec impatience ta réponse... A bientôt

 

[Leeloo]

VOILA QUE JE ME REPONDS TOUTE SEULE!
EN fait à force de persévérance, on finit par y arriver... J'ai été laborieuse mais il suffisait de ne pas mettre d'espace à ce niveau :

O:\Fiches produits \

Bon ça y est je suis ravie!!!

ENCORE merci, Michel ! Tu as gagné tes gallons de Korben Dallas du VBA!

A +