XL 2016 création rendez-vous outlook depuis fichier excel

[crown54]

Bonjour à tous ,

j'ai tester plusieurs codes pour la création d'un rendez-vous à partir de mon fichier excel mais cela ne marche pas.
Je ne sais pas comment activer outlook library.
Je souhaiterais pouvoir générer un rendez-vous outlook à partir de la colonne L de ce tableau (en PJ) avec pour objet maintenance et la marque et modèle de l'automate.
Quelqu'un sait-il comment procéder svp?
Merci d'avance pour vos propositions

 

[D.D.]

Bonjour,

As-tu essayé via le code suivant (à adapter, donc).

Sub CreateAppt()
Dim myItem As Object
Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As Object
Set olApp = CreateObject("Outlook.Application")
Set myItem = olApp.CreateItem(1)
myItem.MeetingStatus = olMeeting
myItem.Subject = "Strategy Meeting"
myItem.Location = "Conf Rm All Stars"
myItem.Start = #1/3/2019 1:30:00 PM#
myItem.Duration = 90
Set myRequiredAttendee = myItem.Recipients.Add("Nate Sun")
myRequiredAttendee.Type = olRequired
Set myOptionalAttendee = myItem.Recipients.Add("Kevin Kennedy")
myOptionalAttendee.Type = olOptional
Set myResourceAttendee = myItem.Recipients.Add("Conf Rm All Stars")
myResourceAttendee.Type = olResource
myItem.Display
myItem.Send
End Sub

 

[crown54]

bonjour D.D, merci pour pour cet exemple de code. Il m'a l'air fonctionnel mais par contre pour l'adapter je ne pense pas être suffisamment caler pour le faire. Si quelqu'un se sent capable de m'aider merci d'avance. C'est quand même un bon début.

 

[crown54]

J'ai créé un code dans un module qui va chercher une date dans la colonne L et dès qu'il en trouve une il lance la macro de planification de la maintenance.
le voici:

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range
Range("L2:L142").ClearContents
For Each C In Range("L2:L142")
    If IsDate(C) Then Call création_planning_maintenances
Next C
End Sub

le code épuré:

Sub création_planning_maintenances()
Dim myItem As Object
Set olApp = CreateObject("Outlook.Application")
Set myItem = olApp.CreateItem(1)
myItem.MeetingStatus = olMeeting
myItem.Subject = "Maintenance"
myItem.Start = #1/1/2019 1:30:00 PM#
myItem.Duration = 90
myItem.Display
myItem.Send
End Sub

Par contre comment faire pour qu'il déclenche le rendez-vous à la date qu'il trouve dans la colonne L? Il faudrait que dans myItem.Start= il reprenne la date qui déclenche la macro.
Et pour le sujet, Maintenance est générique mais en plus je voudrais qu'il aille chercher l'info de marque et d'appareil.

quelqu'un à une idée?

 

[crown54]

personne pour une réponse?