XL 2016 exemple de fichier agenda Outlook

[Didou1]

Bonjour le forum,

Je cherche des exemples de fichier pour remplir plusieurs calendriers à partirent d'un tableau d'Excel.
j'ai regardé sur le forum mais je n'ai rien trouvé
je cherche sous forme de tableau en colonne
le choix du calendrier (le nom) pour rentrer le rendez-vous au bon endroit
le sujet
la date
Heure de début
Heure de fin
lieu de la réunion

il faut qu'il vérifie les items existants pour éviter les doublons

Merci de votre aide le forum

 

[Staple1600]

Bonjour le fil, Didou1

Tu as regardé dans la section du forum dédiée aux autres applications (dont Outlook) ?
Parce qu'on y trouve ceci par exemple

Outlook - Inscrire des RDV dans Outlook (calendrier partagé) via Excel macro

Bonjour à tous et à toutes, Cela fait maintenant 3 jours que je parcours le Net à la recherche d'une solution. Le sujet ne relevant pas spécifiquement d'Excel, je me suis permis de poster ici. De nombreuses questions ont effectivement déjà été posées mais aucune ne donne une solution acceptable...

www.excel-downloads.com

Et sinon il y a aussi peut-être des choses intéressantes dans la section Téléchargements

 

[Didou1]

Bonjour Staple1600,

Merci pour ton retour, oui j'avais trouver cette discussion .

Dans téléchargements pas facile pour une recherche.

Je continue à regarder

merci le forum pour votre aide.

 

[Didou1]

Bonjour le forum,
Après plusieurs recherches je commence à avancer sur mon projet
pour le moment je bloque encore sur le point suivant
dans mon répertoire calendrier de Outlook, j'ai plusieurs calendriers je n'arrive pas à rentrer mon rendez-vous dans le calendrier correspondant.


Voici mon code

Sub NouveauRDV_Calendrier()
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem
Dim Cell As Range


For Each Cell In Range("B3:B" & Range("B100").End(xlUp).Row)
If Cell.Offset(, 6) <> "X" Then
Set MyItem = myOlApp.CreateItem(olAppointmentItem)
With MyItem
.MeetingStatus = olNonMeeting
.Subject = Cell
.Start = Cell.Offset(0, 1) + Cell.Offset(0, 2)
.Duration = Cell.Offset(0, 3) * 24 * 60 'minutes
.Location = Cell.Offset(0, 4)
.Body = Cell.Offset(0, 5)
.Save

End With
Set MyItem = Nothing
End If
Set MyItem = Nothing
Next Cell
End Sub

Merci de votre aide

 

[Didou1]

j'avance sur mon problème

Comment ajouter à mon code dans une colonne code dessus en cell.offset(0,6)
le nom du calendrier à la place de ceci
pouvoir dans ma feuille Excel choisir mon calendrier en face de mon rendez vous

code trouvé
'Crée la sélection du calendrier dans Outlook
Set OutlApp = CreateObject("Outlook.Application")
Set OutlMapi = OutlApp.GetNamespace("MAPI")
Set OutlFolder = OutlMapi.GetDefaultFolder(olFolderCalendar)
Set OutlItems = OutlFolder.Folders("test").Items ' Nom du calendrier - Attention calendrier ajouté en dessous du calendrier par default et nom dans un nouveau groupe.

'Set OutlItems = OutlFolder.Items ' ou Calendrier par default


J'ai plusieurs calendrier
"test" et un calendrier

merci

 

[Didou1]

Bonsoir le forum,

Mon code avance en cherchant à droite à gauche.
Nouvelle question en espérant avoir un retour
Merci le forum de votre aide

sur mon code, pouvons faire un code similaire qui supprime l'entrée du rendez-vous dans Outlook dans le même principe que la saisie en tenant compte uniquement de la date

Sub NouveauRDV_Calendrier()
Dim OutlApp As New Outlook.Application
Dim OuItem As Outlook.AppointmentItem
Dim Cell As Range
Dim OutlMapi As Outlook.Namespace
Dim OutlFolder As Outlook.MAPIFolder
Dim OutlItems As Outlook.Items
Dim MyCalendar As Outlook.Items
Dim OutlAppointment As Outlook.AppointmentItem

'Crée la sélection du calendrier dans Outlook
Set OutlApp = CreateObject("Outlook.Application")
Set OutlMapi = OutlApp.GetNamespace("MAPI")
Set OutlFolder = OutlMapi.GetDefaultFolder(olFolderCalendar)
Set OutlItems = OutlFolder.Folders("TEST").Items ' Nom du calendrier - Attention calendrier ajouté en dessous du calendrier par default et nom dans un nouveau groupe.
'Set OutlItems = OutlFolder.Items ' Calendrier par default

'On choisi le calendrier
Set MyCalendar = OutlItems 'choix calendrier

For Each Cell In Range("B2:B" & Range("B100").End(xlUp).Row)
'If Cell.Offset(, 6) <> "X" Then
Set OuItem = MyCalendar.Add(olAppointmentItem)

With OuItem
.MeetingStatus = olNonMeeting
.Subject = Cell
.Start = Cell.Offset(0, 1) + Cell.Offset(0, 2)
.Duration = Cell.Offset(0, 3) * 24 * 60 'minutes
.Location = Cell.Offset(0, 4)
.Body = Cell.Offset(0, 5)
.Save
'Cell.Offset(, 5) = True
End With
'Set OuItem = Nothing
' End If
Set OuItem = Nothing
Next Cell
End Sub

J'ai ce code pour supprimer, mais il va enlever également les données sur les autres moi ce que je ne souhaite pas.
Sub supprime()

Dim OutlApp As New Outlook.Application
Dim OuItem As Outlook.AppointmentItem
Dim Cell As Range
Dim OutlMapi As Outlook.Namespace
Dim OutlFolder As Outlook.MAPIFolder
Dim OutlItems As Outlook.Items
Dim MyCalendar As Outlook.Items
Dim OutlAppointment As Outlook.AppointmentItem

'Crée la sélection du calendrier dans Outlook
Set OutlApp = CreateObject("Outlook.Application")
Set OutlMapi = OutlApp.GetNamespace("MAPI")
Set OutlFolder = OutlMapi.GetDefaultFolder(olFolderCalendar)
Set OutlItems = OutlFolder.Folders("TEST").Items ' Nom du calendrier - Attention calendrier ajouté en dessous du calendrier par default et nom dans un nouveau groupe.
'Set OutlItems = OutlFolder.Items ' Calendrier par default

'On choisi le calendrier
Set MyCalendar = OutlItems 'choix calendrier

For Each Cell In Range("B6:B" & Range("B100").End(xlUp).Row)
'If Cell.Offset(, 6) <> "X" Then
Set OuItem = MyCalendar.Add(olAppointmentItem)

If OutlItems.Count > 0 Then
OutlItems.Remove OutlItems.Count
DoEvents
End If
'Set OuItem = Nothing
' End If
Set OuItem = Nothing
Next Cell

End Sub