Discussion :

[sash6]

Bonjour à tous,

Quelqu'un sait comment on peut enregistrer sous une présentation powerpoint depuis VBA excel? En fait, j'ai une méthode mais elle ne me donne pas ce que je veux, en l'occurrence un explorateur windows pour que l'utilisateur puisse nommer et séléctionner le dossier qui contiendra le fichier.

[ouskel'n'or]

Regarde à FileDialog, dans l'aide, tu as exemple tout fait

[sash6]

Code :

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

1
2
3
4
5
6
Sub ShowSaveAsDialog()
    Dim dlgSaveAs As FileDialog
    Set dlgSaveAs = Application.FileDialog( _
        Type:=msoFileDialogSaveAs)
    dlgSaveAs.Show
End Sub

J'ai pris celui-là Ouskel, le problème c'est que dans le large choix de fichiers possibles, les *.ppt n'y sont pas

[ouskel'n'or]

Oui, parce que tu n'utilises pas le code du VBA PowerPoint.
Tu dois passer par l'appli PowerPoint
Je suppose que tu instancies l'application PPT, ce qui devrait, avec le code de l'aide en ligne, donner un "truc" comme ça que je n'ai pas testé...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
Dim Sh As PowerPoint.Shape
'... 
Set PptApp = CreateObject("Powerpoint.Application")
    Dim fd As FileDialog
    Set fd = PptApp.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With fd
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                MsgBox "The path is: " & vrtSelectedItem
            Next vrtSelectedItem
        Else
        End If
    End With
    Set fd = Nothing
    Set PptDoc = PptApp.Presentations.Add 'ou open

Tu dis
A+

[sash6]

Ouskel, Au début je me suis demandé pour quoi tu m'as filé ce code...mais en fait...c'est ce qu'il fallait! Ca marche nom de Dieu haha! Donc pour ceux que ça intéresse:

Code :

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

1
2
Set dlgSaveAs = PptApp.FileDialog(msoFileDialogSaveAs)
    dlgSaveAs.Show

A modifier sur l'exemple cité plus haut et donné par l'aide des gars de Microsoft dans VBA Excel...
En tout cas, je trouve ton approche très pédagogue Ouskel Tu serais pas prof?