Microsoft 365 Message d'erreur avec nom de l'utilisateur

patricktoulon à dit:

re
bonjour
comme tu parle de poste de(....) je suppose que ce fichier est en reseau
il faut donc tester si le fichier est utilisé

un petit exemple parmis tant d'autres

VB:

Sub test()
    MsgBox estOuvert("C:\Users\polux\DeskTop\translate interface.xlsm")
End Sub
Function estOuvert(fichier As String)
    Dim x As Integer, E As Integer
    x = FreeFile()
    estOuvert = False
    On Error Resume Next
    Open fichier For Input Lock Read As #x
    Close x
    E = Err
    On Error GoTo 0
    Select Case E
    Case 0: estOuvert = False
    Case 70: estOuvert = True
    Case Else: estOuvert = E
    End Select

End Function

Cliquez pour agrandir...