Workbooks.Open "J:\Films\Films\Nom_du_ficher.xlsx"
Sub ouvrir()
Workbooks.Open "J:\Films\.avi"
End Sub
Sub Ouvrir()
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "J:\Films\Films\"
.Show
End With
End Sub
Mondossier = "J:\Films\Films\"
ChDrive "J:"
ChDir Mondossier
Active.sheet.Range("A1").Value = Application.GetOpenFilename("Fichiers vidéo (*.avi),*.avi")
Mondossier = "J:\Films\Films\"
ChDrive "J:"
ChDir Mondossier
ActiveSheet.Range("H2").Value = Application.GetOpenFilename("Fichiers vidéo (*.avi),*.avi")