Private Sub CommandButton10_Click()
Dim CheminAncienNomDocument As String, CheminNouveauNomDocument As String
CheminAncienNomDocument = TextBox1 & "\" & ListBox1.List(ListBox1.ListIndex)
CheminNouveauNomDocument = TextBox3 & "\" & ComboBox1 & "\" & ComboBox2 & "\" & ComboBox3 & "\" & ListBox2.List(ListBox2.ListIndex)
If Dir(CheminNouveauNomDocument) = "" Then
Name CheminAncienNomDocument As CheminNouveauNomDocument
Application.ScreenUpdating = False
' blabla ....
TextBox1.SetFocus
Application.ScreenUpdating = True
MsgBox "Le nouveau document a été classé et enregistré", , ThisWorkbook.Name
Else
MsgBox "Le document est déjà enregistré." & vbLf & "ARRÊT DE LA PROCÉDURE!" & vbLf & "Vérifier s'il s'agit d'un doublon et supprimer le si nécssaire?", , ThisWorkbook.Name
End If
End Sub