Bonjour,
je peux essayer de t'aider si tu veux mais qu'as tu besoin?
A+

C'est bon j'ai trouvé comment faire :
Public Function CreerRDV(Deb As String, Duree As Integer, Sujet As String, Corps As String, Salle As Integer)
      
    On Error GoTo AddAppt_Err
        
    Dim outobj As Outlook.Application
    Dim outappt As Outlook.AppointmentItem
    Dim MyCalendar As Outlook.Items
    
    Set outobj = CreateObject("outlook.application")
    Set MyCalendar = outobj.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item(8).Folders.Item(Salle).Items
    'MsgBox outobj.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item(8).Folders.Item(1)
    
    Rem IL FAUDRAIT AUSSI VERIFIER SI IL N'Y A PAS DEJA UN RENDEZ-VOUS
    
    'Ajout au calendrier d'un nouveau "Rendez-Vous"
    Set outappt = MyCalendar.Add(olAppointmentItem)
    With outappt
            .Start = Deb 'Debut de la reservation
            .DURATION = Duree 'En minute
            .SUBJECT = Sujet 'Le sujet
            .BODY = Corps 'Le texte de la reservation
            .Location = "" 'Emplacement
            .AllDayEvent = False ' Toute la journée oui/non
            .ReminderSet = False ' S'il y a un rappel
            .Save
    End With
    Set outobj = Nothing ' Retire de la mémoire les objets créer
    CreerRDV = True
    Exit Function
  
AddAppt_Err:
        MsgBox "Error " & Err.Number & vbCrLf & Err.Description
        CreerRDV = False
    Exit Function

End Function
A+ et j'espère que ca pourra servir un jour...

Bonjour,

Ce code est sympa sauf que j'aimerais l'adapter à mon application mais je ne sais pas comment faire.
En fait j'ai un calendrier qui est dans les "Dossiers Publics" d'outlook, et dans un répertoire nommé "Reservation". Je voudrais pouvoir enregistrer un rdv dans ce calendrier via cette fonction.
Quelqu'un a une idée?

c'est bon merci pour toutes ces réponses... lol euh je n'avait juste pas les droits nécessaire j'ai donc vu avec mon admin réseau et voila!!!

Bonjour,

Je viens de tester ce code qui m'a l'air bien... mais moi j'ai un souci, il m'affiche le message suivant >>erreur lors de la recherche<< qui se trouve à la ligne 22.
Comme je n'y connai rien en AD et en LDAP quelqu'un pourrait-il m'aider à comprendre?

Merci