Discussion :

[Metox]

Bonjour !

Voilà je suis nouveau sur ce forum, et aussi en VBA ^^
Je cherche de l'aide pour automatiser une tâches sur Outlook 2016:

J'ai pour but d'imprimer en PDF le calendrier mensuel, après demande à l'utilisateur du mois à imprimer. (Exemple: Un messageBox qui demande à l'utilisateur le mois en question (01, 02 ... 12) et imprime le mois en question via l'option fichier > imprimer > Mensuel > en PDF)

J'ai pu voir, et essayé, avec des macro d'exportation de calendrier via un fichier csv, mais cela ne répond pas à mon besoin..
Est-il possible d'avoir un début de piste concernant ce besoin svp ?

Merci,
Bien à vous,

[Oliv-]

Salut
c'est pas simple d'y répondre par macro VBA parce que à priori le modèle d'objet OUTLOOK ne présente pas cette option.
Voici déjà un début

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
Sub ImprimeCalendrierMensuel()
'pour changer l'imprimante par defaut
'+ rapide
SetdefaultPrinter "Microsoft PRINT TO PDF"
 
'on se positionne sur le calendrier
Set ActiveExplorer.CurrentFolder = Application.Session.GetDefaultFolder(olFolderCalendar)
 
ActiveExplorer.CommandBars.ExecuteMso ("MonthlyView")
DoEvents
ActiveExplorer.CommandBars.ExecuteMso ("FilePrint")
 
End Sub
 
Sub SetDefaultPrinter(PrinterName As String, Optional ComputerName As String = ".")
    Dim Printer As Object, Printers As Object, WMIService As Object
    Set WMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ComputerName & "\root\cimv2")
    Set Printers = WMIService.ExecQuery("Select * from Win32_Printer Where Name = '" & PrinterName & "'")
 
    For Each Printer In Printers
        Printer.SetDefaultPrinter
    Next
 
End Sub

pour la suite il faudrait utiliser un peut être un SendKeys "{enter}" et UIAUTOMATION
mais c'est compliqué à utiliser
EXEMPLE
https://www.developpez.net/forums/d2...-element-menu/