Test d'existence fichier
par
, 14/07/2015 à 10h19 (301 Affichages)
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