Private Sub CommandButton1_Click()
Dim Chemin As String, Fichier As String, LstItem As Integer, Jour As String, Temp As String, I As Integer, NbCaract As Byte
If Me.ComboBox2.ListIndex = -1 Then
MsgBox "Sélectinnez d'abord le chemin"
Exit Sub
End If
Application.DisplayAlerts = False
With ListView1
For I = 1 To .ListItems.Count
LstItem = .ListItems.Item(I).Checked
If LstItem = 0 Then GoTo suite
Temp = .ListItems.Item(I).Text
.ListItems.Item(I).Text = ""
NbCaract = Len(Temp) - 4
Fichier = Left(Temp, NbCaract)
Chemin = Me.ComboBox2.Value
'Jour = Format(Date, "d-mm-yy")
If Dir(Chemin, 16) = "" Then MkDir Chemin
Windows(Temp).Activate
Workbooks(Temp).SaveAs Chemin & Fichier & ".xls"
ActiveWorkbook.Close
suite:
Next
End With
Application.DisplayAlerts = True
End Sub