Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Général VBA > Contribuez
Contribuez Proposez vos articles, cours, tutoriels, faq, codes sources, astuces pour VBA
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 28/11/2007, 09h12   #1
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Par défaut [VBA-PPT]Ouvrir un fichier à l'aide de la boîte de dialogue Fichier Ouvrir

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.
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 05h34.


 
 
 
 
Partenaires

Hébergement Web