Cette fonction sert dans la programmation "médecine chinoise".. Anticiper c'est mieux que guérir, surtout en VBA ou l'utilisateur peut facilement se retrouver sur le code en cas de fichier non trouvé.. Cette fonction est plus simple et plus facile que la gestion programmée de l'erreur..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 ' Vérifier l'existence d'un fichier(par ex avant de l'ouvrir..) Function VerifierExistenceFichier(ByVal Mondossier, ByVal MonFichier) As Boolean Dim ObjFSO, ListRepertoires, ListSousRep, ListFichiers, MonRep, LesReps, MonFich, LesFichs Set ObjFSO = CreateObject("Scripting.FileSystemObject") VerifierExistenceFichier = False Set ListRepertoires = ObjFSO.GetFolder(Mondossier) Set ListSousRep = ListRepertoires.SubFolders For Each MonRep In ListSousRep Set ListFichiers = MonRep.Files For Each MonFich In ListFichiers If MonFich.Name = MonFichier Then 'trouvé VerifierExistenceFichier = True End End If Next MonFich Next MonRep End Function
Partager