Discussion :

[cl3m_]

Bonjour,
Avant de vous ennuyer avec ma demande, je souhaite simplement savoir s'il est possible par VBA excel d'envoyer des invitations (automatiques) à des réunions dans ooutlook.
Si la réponse est oui, alors voilà ma demande, que je suppose complexe. Je suis novice en VBA malheureusement c'est pourquoi je me tourne vers vous.

J'ai créer un fichier permettant le recensemment des formations pour plusieurs services. Il y a plusieurs types d'utilisateurs à ce fichier: les collaborateurs qui viennent s'inscrirent et les référents des différentes formations qui viennent insérer leur formations (nom de la formation), dates, horaires) ou encore les responsables de services.
J'aimerai par VBA lorsqu'un collaborateur se rajoute à une formation dans le fichier excel, qu'une invitation lui soit envoyée sur outlook sans que le référent n'ai à le faire (ouioui, se sont des feignasses :p).
Pour préciser, est-il possible que quand un référent ajoute une formation (comprenant le nom, la date, l'horaire), une réunion soit créer directement sur outlook, puis quand un collaborateur s'inscrit la macro lui envoi une invitation.

Je ne sais pas si je suis clair, bref, en attendant de vos nouvelles et en vous remerciant pour votre lecture.

Cordialement

[Fvandermeulen]

Bonjour,
C'est à mon avis possible mais il me faudrait un peu de recherche et j'ai pas trop le temps... par contre, ci-dessous j'ai retrouvé un code qui lit dans Outlook, je sais que je l'ai utilisé pour faire l'équivalent d'une synchro entre un fichier Excel et Outlook mais je ne retrouve pas le fichier.
Quoi qu'il en soit, en attendant que je remette la main dessus ça va peut-être t'aider.

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 RechercheCalendrier()
 
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set myFolder = olns.GetDefaultFolder(olFolderCalendar)
Set MyTasks = myFolder.Items
 
' Recherche dans le calendrier selon le sujet
Set MyTask = MyTasks.Find("[subject] = ""RDV Mr X""")
If MyTask Is Nothing Then ' Si non trouvé
   MsgBox "Pas de rendez vous prévu"
Else
   MsgBox "Rendez vous prévu le " & MyTask.Start
       With MyTask
        .MeetingStatus = olNonMeeting
        .Subject = "RDV Mr Y"
        .Save
    End With
 
End If
 
Set ol = Nothing
Set olns = Nothing
Set myFolder = Nothing
Set MOnSujet = Nothing
 
End Sub

[cl3m_]

bonjour,
Merci pour ta réponse je vais essayer de faire des tests!
Meric encore!