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

crown54

XLDnaute Junior
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
 

Fichiers joints

D.D.

XLDnaute Occasionnel
Bonjour,

As-tu essayé via le code suivant (à adapter, donc).
Code:
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

XLDnaute Junior
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

XLDnaute Junior
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:
Code:
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é:
Code:
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?
 

Discussions similaires


Haut Bas