Discussion :

[c3dr1k-31]

Bonsoir,

Je suppose que je ne dois pas être le premier à demander de l'aide, cela fait maintenant 5 jours que je m'arrache les cheveux sur une macro.
Je m'explique.
Je travaille en équipe de nuit, tout les soirs je fais un compte rendu par mail.
je souhaiterais donc automatiser tout cela un peu plus afin de gagner en temps.

Pour en venir au fait, je voudrais avoir un bouton et que celui-ci me fasse les fonctions suivantes :


1. M’enregistre le fichier sous format PDF dans un dossier archive sur un serveur avec « compte rendu ‘date du jour’ »
2. M’imprime la feuille
3. M’ouvre un mail avec le fichier PDF en Pj, deux adresses (fred et mika), l’objet du mail type « compte rendu p45 « date du jour » et une phrase type « compte rendu en PJ, bonne journée » dans le mail.


voila, j'ai réussi à faire le bouton, faire le mail, la sauvegarde j'y suis presque juste que ça me l'enregistre en Excel, et imprimer ne marche pas.


en pj le fichier, et le code que j'ai mis est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub dep()
 
Menu.Show
 
End Sub
 
Sub Suivi(jo, mo, an)
 
    ChDir _
        "P:\OPERATIONS\ATR_RI\346\Chaine A\POSTE 45 2018\COMPTE RENDU\SAUVEGARDE\"
    ActiveWorkbook.SaveAs Filename:= _
        "P:\OPERATIONS\ATR_RI\346\Chaine A\POSTE 45 2018\COMPTE RENDU\SAUVEGARDE\Poste 45 CR" & jo & "_" & mo & "_" & an & ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
 
Dim ol  As Object, olmail As Object
Set ol = CreateObject("Outlook.Application")
Set olmail = ol.Application.CreateItem(olMailItem)
With olmail
        .To = "destinataire@mail.com"
        .Subject = "compte rendu P45"
        .HTMLBody = "Bonjour,<br/>Vous trouverez en pièce jointe le compte rendu de la vacation"
        .Attachments.Add ("P:\OPERATIONS\ATR_RI\346\Chaine A\POSTE 45 2018\COMPTE RENDU\SAUVEGARDE\Poste 45 CR" & jo & "_" & mo & "_" & an & ".xlsm")
        .Display
    End With
 
 
End Sub

[EJO64]

Bonjour,

C'est la page qui doit être traitée et pas tout le classeur


Pour ces tâches en Office 2016, voilà généralement ce que j'utilise ExportAsFixedFormat / PrintOut

Pour orienter la sauvegarde d'un onglet : "Objet page" .ExportAsFixedFormat Type:=xlTypePDF, Filename:= "emplacement et nom du fichier " , OpenAfterPublish:= False.

Pour l'impression d'une page : "Objet Page" .PrintOut Copies:=1, Collate:=True,IgnorePrintAreas:=False.

[kiki29]

Salut, voir ici