Fermer pdf si ouvert

Salut chers tous

Ma macro suivante exporte ma plage au format pdf en lui donnant le nom "Liste.pdf"

Quand Liste.pdf est fermé il est écrasé pas de soucis

Mais quand il est déjà ouvert j'ai une erreur.

Je voudrais insérer dans ma macro un code pour fermer Liste.pdf si ouvert avant de l’écraser. Merci

Sub export()
Dim chemin, NomPDF As String
    chemin = ThisWorkbook.Path & "\PREVUS\"
    If Dir(chemin, vbDirectory) = "" Then MkDir chemin
With ActiveSheet
    NomPDF = "Liste"
    .PageSetup.PrintArea = "$A$1:$I$50"
    .PageSetup.FitToPagesWide = 1
    .PageSetup.FitToPagesTall = False
    .PageSetup.RightFooter = "&P de &N"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomPDF, Quality:=xlQualityStandard
End With
End Sub

Hello,

Tu peux le faire à condition que ton classeur soit ouvert par toi.

Si ton souhait est de fermer le classeur qui est ouvert par un autre utilisateur de ton réseau, tu ne peux pas.

R@G

Rag02700 a écrit :

Hello,

Tu peux le faire à condition que ton classeur soit ouvert par toi.

Si ton souhait est de fermer le classeur qui est ouvert par un autre utilisateur de ton réseau, tu ne peux pas.

R@G

Quel code utilisé pour fermer mon pdf si ouvert par moi ?

Hello,

Je pensais que tu voulais fermer le classeur excel.

Pour fermer un fichier pdf ouvert c'est + compliqué.

Tu peux t'aider de ce topic (je n'ai pas testé) :

R@g