Discussion :

[Roudoudou76]

Bonjour à tous
J'ai trouvé ce code qui me convient très bien pour ouvrir un fichier à partir d'une présentation PowerPoint.
Petit bémol, lorsque j'enregistre ma présentation au format diaporama cela ne fonctionne plus.
J'obtiens le message : erreur d’exécution'( 2147188160(80048240)':
En cherchant un peu, il semblerait que cela vienne du fait que PowerPoint ne soit pas lancé.
Voici l'ensemble du code

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 Appel_Controle()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With fd
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                Presentations.Open FileName:=vrtSelectedItem
            Next vrtSelectedItem
        Else
        End If
    End With
    Set fd = Nothing
End Sub

d'avance merci

[clementmarcotte]

Bonjour,

Je ne sais pas si tu as vu cette page :

http://support.microsoft.com/kb/186063/fr

Ton erreur n'y est pas, mais cela peut toujours servir pour une autre erreur

J'ai fait une recherche sur MSDN. Je ne peux pas approfondir pour l'instant, mais un des liens porte sur un nom de fichier/de chemin d'accès trop long.

http://social.msdn.microsoft.com/sea...080048240&ac=2