Discussion :

[Florent6744]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pierre Dumas]

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

[Menhir]

Je déteste les On Error Goto mais, pour une fois (sans que ça devienne une habitude ), 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

[Florent6744]

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.

[Pierre Fauconnier]

Salut.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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é".

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

[Pierre Fauconnier]

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

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