Microsoft 365 Comment fermer un fichier ouvert

goninph

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour,

VB:
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

XLDnaute Nouveau
Bonjour,

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées