Macro Excel pilotage PowerPoint

Macro Excel pilotage PowerPoint - VB/VBA/VBS - Programmation

Marsh Posté le 16-11-2007 à 16:17:53    

Bonjour a tous,
 
Je cherche a creer une macro excel associee a un bouton qui me permettrait de lancer directement Powerpoint en mode presentation depuis Excel.
 
L'utilisateur selectionnerait la cellule ou se trouve le chemin du fichier, puis cliquerait sur le bouton et la presentation s'ouvrirait. Mon code marche si j'inclue directement le chemin du fichier dans FichierPpt mais me renvoie une erreur comme quoi mon nom de fichier (Filename) ne doit pas depasser 255 caracteres si j'utilise activecell.value. Auriez vous une idee? dois-je preciser quelque part que la valeur qui se trouve dans la cellule active est du texte?
 
Sub Presentationppt()
Dim FichierPpt, pwpt, presppt
FichierPpt = ActiveCell.Value
Set pwpt = CreateObject("PowerPoint.Application" )
pwpt.Visible = True
Set presppt = pwpt.presentations.Open(Filename:=FichierPpt)
presppt.SlideShowSettings.Run
End Sub
 
Merci d'avance pour votre aide :)


---------------
||www.lefebvrecedric.com || Mon boulot
Reply

Marsh Posté le 16-11-2007 à 16:17:53   

Reply

Marsh Posté le 18-11-2007 à 19:02:52    

Essaie avec  "FichierPpt = ActiveCell"
 
".value" ne sert que s'il y a des calculs à l'intérieur d'une cellule

Reply

Marsh Posté le 19-11-2007 à 16:45:31    

Merci beaucoup pour ta reponse, mais j'obtiens le meme probleme. :/
 
run-time error -2147188160 (80084240)
presentations.open : invalid request. Filename cannot exceed 255 characters


---------------
||www.lefebvrecedric.com || Mon boulot
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed