Fermer fichier PDF si ouvert avant impression

Bonjour,

J'ai un petit soucis. J'ai la possibilité de créer un fichier PDF nommé, mais si celui-ci existe déjà et s'il est ouvert, j'ai un message d'erreur.
Voici mes ligne VBA qui fonctionnent parfaitement bien si le fichier est fermé, dans ce cas il est écrasé, ou il est créer s'il n'existe pas.

sFilename = ThisWorkbook.Name
sFilename = "Garde " & Range("01!Y15") & (" ") & Range("01!C85") & (" ") & Range("01!E83") & (".pdf")

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sRep & sFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Est-il possible d'insérer un ligne VBA avant impression pour vérifier si ce fichier est ouvert et le fermer le cas échéant ?

Merci à vous

Bonjour Gilboss

Et pourquoi ce fichier PDF est-il ouvert

Enlevez donc le "True" de OpenAfterPublish et le problème n'existera plus

A+

C'est juste. 😉

Alors supposons, j'ouvre ce fichier, je m'aperçois d'une erreur, je ne le ferme pas parce tête en l'air 🥴 je corrige mon erreur sur excel et je lance la création du fichier pdf et vlan une alarme d'erreur. 😊

J'aimerai qu'il se ferme et qu'il soit écrasé automatiquement. 😏

Re,

Oui mais là, les erreurs d'étourderie c'est plus compliqué

A part "tué" le processus qui à ouvert le PDF je ne vois pas, d'ailleurs avec quoi est-il ouvert ?

Sinon solution de notre ami Thev de 07/2021
https://forum.excel-pratique.com/s/goto/990916

A+

Rechercher des sujets similaires à "fermer fichier pdf ouvert impression"