Bonjour,
J'utilise la fonction de caféine ci dessous pour vérifier que le fichier d'export excel que je créer dans mon formulaire n'est pas déjà ouvert.
Cette fonction est censée fermer le fichier si j'ai bien compris son utilisation.
Et voilà le code dans mon formulaire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Function IsFileOpen(ByVal strFic As String) As Boolean Dim fic As Integer On Error Resume Next fic = FreeFile() Open strFic For Input Access Read Lock Read Write As fic If Err.Number = 0 Then IsFileOpen = False Close fic Else IsFileOpen = True End If End Function
Mais j'ai une erreur de permission refusée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part IsFileOpen (NameExcel & ".xls")
Merci de votre aide
Marcopololo
Partager