Bonsoir tout le monde,

Le code suivant a au préalable fonctionné et désormais il "refuse" :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Set dlgSaveAs = PptApp.FileDialog(msoFileDialogSaveAs)
    dlgSaveAs.Show
J'ai essayé de faire un truc du genre mais hélàs sans beaucoup de succès:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim vrtSelectedItem As Variant
With dlgSaveAs
    If .Show = -1 Then
        For Each vrtSelectedItem In .SelectedItems
        MsgBox "Le chemin du fichier est: " & vrtSelectedItem
        Next vrtSelectedItem
    Else
    End If
End With
La msgbox m'indique bien le chemin choisi, mais comme lors du code précédent le fichier n'est pas enregistré à l'endroit souhaité...il est même pas sauvegardé du tout...