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.