Sub Clients_File_Format_Process()
'
' ------------------------- MAIN PROCESS -----------------------------
'
'
'
' Check the location of the client summary
' Check the names of both the file and the tab to be processed
' Make a copy of the tab in a new file
' Format the client files in line with requirements
'
'
'
''
'---------------------------------------------------------------------
' Declaration of variables
Dim ligne As Integer
Dim File_Name As String
Dim File_Location As String
Dim Client_Number As Long
ligne = 12
Cells(ligne, 23).Select
File_Location = Cells(ligne, 23).Text
File_Name = Cells(ligne, 25).Text
Client_Number = Cells(ligne, 2).Text
' Check the existence of a directory
Do While Len(File_Location) > 0
If Len(Dir(File_Location, vbDirectory)) = 0 Then
Cells(ligne, 24).Interior.ColorIndex = 3
Else
Cells(ligne, 24).Interior.ColorIndex = 10
'
' Client file management to be created here
'
End If
ligne = ligne + 1
File_Location = Cells(ligne, 23).Text
Loop
End Sub