Microsoft 365 Comment fermer un fichier ouvert

[goninph]

Bonjour,

Jusqu'à ce jour je gérais la situation avec On error Goto.
J'aimerai vérifier avant de créer mon mail avec la pièce jointe en pdf, si le pdf en question est déjà ouvert et le fermer, car la macro du mail crée le fichier et doit écrase le fichier pdf.

Merci pour votre aide
Meilleures saluations
Philippe

 

[eriiic]

Bonjour,

Sub Test()
    Dim i As Integer
    i = VerifClasseur("C:\Transfert\Test.xls")
    Select Case i
    Case 0: MsgBox "Classeur fermé."
    Case 53: MsgBox "Fichier introuvable"
    Case 70: MsgBox "Classeur déja ouvert."
    Case Else: MsgBox "Erreur : " & i
    End Select
End Sub

Private Function VerifClasseur(Fichier As String) As Integer
    Dim x As Integer
    On Error Resume Next
    x = FreeFile()
    Open Fichier For Input Lock Read As #x
    Close x
    VerifClasseur = Err.Number
    On Error GoTo 0
End Function

eric

 

[goninph]

Bonjour,

Sub Test()
    Dim i As Integer
    i = VerifClasseur("C:\Transfert\Test.xls")
    Select Case i
    Case 0: MsgBox "Classeur fermé."
    Case 53: MsgBox "Fichier introuvable"
    Case 70: MsgBox "Classeur déja ouvert."
    Case Else: MsgBox "Erreur : " & i
    End Select
End Sub

Private Function VerifClasseur(Fichier As String) As Integer
    Dim x As Integer
    On Error Resume Next
    x = FreeFile()
    Open Fichier For Input Lock Read As #x
    Close x
    VerifClasseur = Err.Number
    On Error GoTo 0
End Function

eric

Merci mais je veux fermer un fichier pdf

 

[eriiic]

Et tu as testé en mettant ton nom de fichier bien sûr....
Permet juste de voir si il est disponible. Pour le fermer seul l'utilisateur en cours doit le faire.