[VBA-PPT]Ouvrir un fichier à l'aide de la boîte de dialogue Fichier Ouvrir

[ouskel'n'or]

Code :

1
2
3
4
5
6
7
8
9
10
Sub OuvrirFichier()
Dim BdI As FileDialog
Dim NomFich
    Set BdI = Application.FileDialog(Type:=msoFileDialogOpen)
        BdI.Show 'ouvre la boîte de dialogue
        For Each NomFich In BdI.SelectedItems
            Presentations.Open NomFich
        Next NomFich
    Set BdI = Nothing
End Sub

Permet la sélection multiple de fichiers.