1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Function DoublonsDos(ByVal strCible As String, ByVal bytNbTestDoublon As Byte, Optional ByVal Chemcreados As String, Optional ByVal lstChoixCcialTrsft As String) As Boolean
Dim Chemcreados2 As String
DoublonsDos = True
Select Case bytNbTestDoublon
Case 1
Chemcreados2 = Chemcreados & Mid(gvStrChemS5, 1, Len(gvStrChemS5) - 5) & "_" & lstChoixCcialTrsft & "\" & strCible
If Dir(Chemcreados2, vbDirectory) <> "" Then MsgBox "Ce dossier existe déjà dans le répertoire Prospects de la cible." _
& vbCrLf & vbCrLf & "Vérifiez vos données et recommencez ou abandonnnez", , gvStrCliS: DoublonsDos = False: Exit Function
Chemcreados2 = Chemcreados & Mid(gvStrChemS6, 1, Len(gvStrChemS6) - 5) & "_" & lstChoixCcialTrsft & "\" & strCible
If Dir(Chemcreados2, vbDirectory) <> "" Then MsgBox "Ce dossier existe déjà dans le répertoire Clients de la cible" _
& vbCrLf & vbCrLf & "Vérifiez vos données et recommencez ou abandonnnez", , gvStrCliS: DoublonsDos = False: Exit Function
Chemcreados2 = Chemcreados & Mid(gvStrChemS7, 1, Len(gvStrChemS7) - 5) & "_" & lstChoixCcialTrsft & "\" & strCible
If Dir(Chemcreados2, vbDirectory) <> "" Then MsgBox "Ce dossier existe déjà dans le répertoire Contacts de la cible" _
& vbCrLf & vbCrLf & "Vérifiez vos données recommencez ou abandonnnez", , gvStrCliS: DoublonsDos = False: Exit Function
Case 2
Chemcreados = gvStrChemS0 & gvStrChemS1 & gvStrChemS2 & gvStrChemS3 & gvStrChemS5 & strCible
If Dir(Chemcreados, vbDirectory) <> "" Then MsgBox "Ce dossier existe déjà dans le répertoire Prospects." _
& vbCrLf & vbCrLf & "Vérifiez vos données et - ou changez le nom dans la case ""nom du dossier serveur"" et recommencez ou abandonnnez", , gvStrCliS: DoublonsDos = False: Exit Function
Chemcreados = gvStrChemS0 & gvStrChemS1 & gvStrChemS2 & gvStrChemS3 & gvStrChemS6 & strCible
If Dir(Chemcreados, vbDirectory) <> "" Then MsgBox "Ce dossier existe déjà dans le répertoire Clients" _
& vbCrLf & vbCrLf & "Vérifiez vos données et - ou changez le nom dans la case ""nom du dossier serveur"" et recommencez ou abandonnnez", , gvStrCliS: DoublonsDos = False: Exit Function
'.../... ect...
End Select
End Function |
Partager