Office 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
 

eriiiic

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
 

eriiiic

XLDnaute Barbatruc
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.
 
Dernière édition:

Discussions similaires


Haut Bas