Private Sub cmdParcourir_Click() Dim repertoire_destination As String Dim sFilename As String Dim toto() As String repertoire_destination = "C:\photos_employes" CommonDialog1.ShowOpen toto = Split(CommonDialog1.FileName, "", , vbTextCompare) FileCopy CommonDialog1.FileName, repertoire_destination & toto(UBound(toto)) End Sub