messagebox si PDF ouvert

Bonjour,

J'ai créé une macro pour un doc de travail pour ma copine qui marche très bien.
Il comporte un bouton pour imprimer le fichier en PDF dont voici la macro:

Code:

---

1 2 3 4 5 6

Sub Impression()   'Enregistrer en PDF sous dossier courant ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True, _ Filename:=ActiveWorkbook.Path & "\" & Split(ActiveWorkbook.Name, ".")(0) End Sub

---

Ça fonctionne super bien et ça écrase automatiquement le fichier précédent sans rien demander. Exactement ce qu'elle a besoin.

Le hic c'est que ma copine parfois oublie de fermer le PDF avant d'imprimer le suivant, du coup il y a un message de bug de la macro et ça la fait paniquer.

C'est a ce moment la que j'ai besoin de votre aide.

Je souhaite le fonctionnement suivant:
Tester si le PDF est ouvert
- si non continuer l'impression
- si oui afficher un message pour dire de fermer le fichier et arrêter la macro.

Je ne sais pas trop comment faire.

Merci de votre aide.

Bonjour

Vous trouverez dans cette discussion (qui date d'un an tout juste), la réponse à votre question.

En espérant que cela aide.

Bonne journée

Pierre Dumas

Je déteste les On Error Goto mais, pour une fois (sans que ça devienne une habitude :mrgreen: ), je vais le recommander dans ton cas.
Ce sera beaucoup plus simple que d'aller tester l'état d'ouverture du fichier par une autre application qui n'a peut-être même pas de bibliothèque accessible en VBA.

Tu mets en début de code un On Error Goto Fin, histoire de ne pas faire "paniquer" ta copine et qu'en cas de bug s'affiche un message clair et rassurant disant que la commande a échoué.
Lire ça : https://docs.microsoft.com/fr-fr/off...oto-statements

Merci pour votre aide.

Je viens de lire ce que vous proposez. je vais pas vous mentir.... j'ai rien pigé lol.
En faite quand je vois une macro comme est proposer sur la discussion de Pierre, je n'arrive pas a savoir les code qu'il faut que j'adapte a ma macro.

je vais pas vous demander de m’écrire la solution sinon je n'apprendrais jamais. Par contre si vous pouvez m'aider a me guidé la je suis preneur.

Salut.

En suivant la proposition de Menhir, voici comment tu pourrais procéder:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Impression()   'Enregistrer en PDF sous dossier courant On Error Goto Catch ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True, _ Filename:=ActiveWorkbook.Path & "\" & Split(ActiveWorkbook.Name, ".")(0)   Catch: If Err<>0 Then MsgBox "Le PDF est probablement ouvert", vbExclamation End Sub

---

Tu pourrais bien entendu voir quelle erreur est rencontrée lorsque le fichier est ouvert et travailler avec un Select Case sur le numéro d'erreur pour faire varier le message, mais à ce stade de l'utilisation par ta copine, la solution ci-dessus me semble suffisante.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Impression() 'Enregistrer en PDF sous dossier courant On Error GoTo Catch ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True, _ FileName:=ActiveWorkbook.Path & "\" & Split(ActiveWorkbook.Name, ".")(0)   Catch: Select Case Err.Number Case 70 MsgBox "Le fichier n'a pa pu être remplacé. Il est peut-être ouvert", vbExclamation Case Else MsgBox "l'erreur suivante est survenue:" & vbLf & Err.Number & vbLf & Err.Description, vbCritical End Select End Sub

---

Comme je l'ai dit dans la discussion proposée par Pierre Dumas, la fonction proposée qui teste que le fichier est déjà ouvert utilise elle aussi un On Error... On ne fait donc que déporter le problème et de plus, sur le plan conceptuel, ouvrir et refermer un fichier pour déterminer qu'on va pouvoir l'ouvrir sans risque est pour moi du plus haut comique.

La gestion d'erreurs s'impose dans ce cas-ci et je ne vois personnellement aucune alternative fiable. Il ne faut pas avoir peur de la gestion d'erreurs. Je l'utilise dans TOUS mes développements et je ne peux qu'encourager chacun à en faire autant, en apprenant d'abord comment, pourquoi et où l'utiliser ;)

Citation:

---

Envoyé par Florent6744

je vais pas vous demander de m’écrire la solution sinon je n'apprendrais jamais.

---

Ca y ressemble pourtant beaucoup étant donné que ta réponse ne contient aucune question technique mais juste un "j'ai rien pigé". :roll:

As-tu au moins été consulter l'aide VBA pour essayer de comprendre cette instruction ?

Citation:

---

Envoyé par Menhir

Je déteste les On Error Goto[...]

---

Ce serait plus productif d'apprendre à s'en servir... :mouarf: