Bonjour,
J'ai un classeur excel composé de 4 onglets sur lesquels j'ai des TCD qui sont tous pilotés par un segment. A l'aide d'une boucle je sélectionnes un item du segment, suite à cette mise à jour des données des différents TCD, je sélectionnes les 4 onglets, enregistres cette sélection sous pdf et envoie un mail avec cette pièce jointe.
Ma macro fonctionne bien mais à chaque enregistrement de fichier pdf j'ai deux messages qui s'affichent "Enregistrement en cours" puis "publication...".
Les fichiers générés sont assez nombreux et je souhaite trouver un moyen que ces messages ne s'affichent pas.
Le Application.DisplayAlerts = False n'empêche pas leur affichage.
Je ne vous mets pas l'ensemble du code mais la partie où je sélectionnes les onglets et enregistre sous pdf en terminant par appeler ma macro d'envoi de mail.
Sheets(Array("onglet1", "onglet2", "onglet3", "onglet4")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="chemin blabla.pdf", _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, OpenAfterPublish:=False, IgnorePrintAreas:=False
call envoi_mail
Pensez vous à quelque chose? J'ai passé beaucoup de temps à chercher sur les forums mais ne trouve rien!!
Merci par avance pour votre aide
J'ai un classeur excel composé de 4 onglets sur lesquels j'ai des TCD qui sont tous pilotés par un segment. A l'aide d'une boucle je sélectionnes un item du segment, suite à cette mise à jour des données des différents TCD, je sélectionnes les 4 onglets, enregistres cette sélection sous pdf et envoie un mail avec cette pièce jointe.
Ma macro fonctionne bien mais à chaque enregistrement de fichier pdf j'ai deux messages qui s'affichent "Enregistrement en cours" puis "publication...".
Les fichiers générés sont assez nombreux et je souhaite trouver un moyen que ces messages ne s'affichent pas.
Le Application.DisplayAlerts = False n'empêche pas leur affichage.
Je ne vous mets pas l'ensemble du code mais la partie où je sélectionnes les onglets et enregistre sous pdf en terminant par appeler ma macro d'envoi de mail.
Sheets(Array("onglet1", "onglet2", "onglet3", "onglet4")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="chemin blabla.pdf", _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, OpenAfterPublish:=False, IgnorePrintAreas:=False
call envoi_mail
Pensez vous à quelque chose? J'ai passé beaucoup de temps à chercher sur les forums mais ne trouve rien!!
Merci par avance pour votre aide
Dernière édition: