Macro Excel pilotage PowerPoint - VB/VBA/VBS - Programmation
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
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
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