Re : Boîte de dialogue
Bonjour,
Comme ça peut-être ,
Sub OuvreFichier()
ChDrive "C:\"
ChDir "C:\Arsiv\"
LeFichierChoisi = Application.GetOpenFilename("Fichiers MP3 (*.mp3), *.mp3")
If VarType(LeFichierChoisi) = vbBoolean Then
Exit Sub
Else
Workbooks.Open...