tamtam64

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    'verifie si la feuille existe ou non
 Function IsExistWorksheet(ByVal xlbook As Workbook, ByVal nom_F As String) As Boolean 'fonction Test
    On Error Resume Next
    IsExistWorksheet = xlbook.Sheets(nom_F).Name <> ""
    On Error GoTo 0
 End Function

    'Test si un wb esxiste deja
 Function IsExisteFolder(ByVal Chemin As String, ByVal NomFichier As String) As Boolean
    Dim folder As New Scripting.FileSystemObject
    If folder.FileExists(Chemin & "\" & NomFichier) Then IsExisteFolder = True
 End Function