Calendrier Oulook

Le 23/11/2022 à 09:19

Bonjour à tou(te)s !

Je n'arrive pas à trouver une réponse adaptée sur le forum :

Je cherche à créer des RDV sur mon calendrier outlook à partir de dates contenues dans une colonne, par exemple des dates situées dans la colonne A de ma feuille excel.

J'ai essayé en créant un fichier CSV mais rien ne se produit en important le fichier dans mon calendrier...

De plus, j'aimerais dans la mesure du possible que tout soit automatisé

Je vous remercie grandement pour votre aide !

Le 23/11/2022 à 09:26

Bonjour,

C'est possible avec une macro. Il faudrait que vous indiquiez précisément quelles colonnes contiennent les diverses informations du RDV (intitulé, date, heure, durée, rappel etc.)

Daniel

Le 23/11/2022 à 09:36

Merci pour votre retour !

Pour le moment, je n'ai aucune de ces données.

J'ai juste dans la colonne J la date à compter de laquelle je souhaite mettre un rdv dans Outlook.

Dois-je créer ces colonnes ?

Ce seraient les colonnes K ; L ; M; N ; O ... et suivantes alors vu que ma date est située dans la colonne J.

Le 23/11/2022 à 11:15

Bon, mais pour écrire la macro, j'ai besoin de savoir les champs que tu comptes remplir. Il y a beaucoup d'options et on ne les utilise jamais toutes.

Daniel

Le 23/11/2022 à 12:08

Merci Daniel

Alors si j'ai bien compris, les champs seraient :

intitulé : Rappel

Date : date de la colonne J

Heure : 08:00

Durée : toute la journée

Cordialement,

Le 23/11/2022 à 12:46

Un évènement "toute la journée commence à 0:00. Donc tu n'as besoin que de deux champs : Date et Intitulé. Avec cette disposition :

essaie :

Sub CreerRendezVous()
  Dim Plage As Range, C As Range, olApp As Object, RDV As Object, olNS As Object
  Dim Desti As Object, Tabl() As Variant, olRecItems, Ctr As Long, PlageInit As Range
  Set olApp = CreateObject("Outlook.Application")
  Set olNS = olApp.GetNamespace("MAPI")
  Set olRecItems = olNS.GetDefaultFolder(9) 'olFolderCalendar
  For Each C In Range("J2", Cells(Rows.Count, 10).End(xlUp))
    Set RDV = olApp.CreateItem(1) '(1 = olAppointment)
    'Fixe le rendez-vous à 09:30 le jour de la cellule
    RDV.Start = C.Value ' + C.Offset(, 1).Value
    '... avec le sujet en colonne C
    RDV.Subject = C.Offset(, 1)
    'rappel fixé à 15 mn avant
'    RDV.ReminderMinutesBeforeStart = Cells(C.Row, 4) * 24 * 60
    'rappel activé
    RDV.ReminderSet = True
    'lieu
'    RDV.Location = C.Offset(, 5)
    'ajout des l'invités
'    RDV.Recipients.Add ("dcolardelle@free.fr")
'    Set Desti = RDV.Recipients
    'le rendez-vous est de type "réunion"
    RDV.MeetingStatus = 0 'olMeeting
  '          'l'invité est requis
'    Desti(1).Type = 1 'olRequired
    RDV.alldayevent = True
'    If C.Offset(, 4) = "" Then
'      RDV.Duration = 30
'    Else
'      RDV.Duration = C.Offset(, 4) * 24 * 60
'    End If
'    RDV.Display
'      RDV.Save
      RDV.Close olsave
    'envoi du RDV
  '    RDV.Send
    'effacement de l'objet RDV
    Set RDV = Nothing
  Next C
End Sub

Daniel

Le 23/11/2022 à 13:33

Merci !

Je suis censé mettre ça où ?

Le 24/11/2022 à 12:29

Bonjour,

Faut-il ouvrier VBA et créer un module dans lequel copier le code ?

Excusez-moi mais je suis vraiment débutant.

J'ai un message d'erreur me disant que Projet VB ne peut pas être enregistré dans un classeur sans macro :

Le 24/11/2022 à 12:50

Bonjour,

Oui, il faut mettre le code dans un module, fermer l(éditeur de code VBA et enregistrer le classeur avec le type "Classeur Excel (prenant en charge les macros)(*.xlsm) :