Microsoft 365 Renvoyer une date automatiquement

[Robino]

Bonjour,

A partir de EXCEL, comment est il possible de créer un ligne de renvoi de cellule (une date par exemple) automatiquement sur l'agenda Outlook qui lui même met à jour l'agenda avec un rappel ?

Je m'explique : Je créée un tableau dans lequel j'ai tout un tas de liens. Dans l'une de mes colonnes je dois renvoyer un RAPPEL à Outlook avec une date définie. Cette date doit automatiquement s'inscrire sur Outlook dans l'agenda avec une fonction rappel (que j'aurai indiquée).

Si vous avez une idée, je suis intéressée.

Merci pour vos réponses.

 

[Staple1600]

Bonjour et bienvenue

@Robino
Deux idées
1) Ceci (issue de mes archives Outlook)
2) Plutôt regarder dans la section dédiée à Outlook sur le forum

Autres applications

Pour vos questions concernant Power BI, Access, Word, Power point, Outlook, Microsoft project,... et les tableurs alternatifs tels que Google Sheets et LibreOffice Calc

excel-downloads.com

et une suggestion pour finir
joindre une petit fichier Excel (allégé et anonymisé), cela permets d'avoir de quoi faire des tests sur nos PC (avec un fichier qui colle au mieux au contexte de la question)

 

[Robino]

Merci, je prends bonne note de ta remarque.
Je vais regarder ceci

 

[Robino]

Bonjour tout le monde,
Je reprends le fil de la discussion car même en cherchant un peu partout et écoutant les conseils de tout le monde, cela ne me fait pas avancer.
Je suis une fille de nature optimiste mais pour le coup je désole.
Alors SI je suis bien au bon endroit (je parle du fil de discussion), j'ai en annexe mon fichier qui pose problème.
Je souhaite que dans la colonne "H" il y ait un lien directe qui ouvre à une date (J+30 par exemple) mon agenda OUTLOOK en créant un rappel.
Si vous avez des idées, je suis impatiente.
Merci pour votre aide

 

[Staple1600]

Bonsoir @Robino, le fil

Tu as cliqué sur le lien de mon précédent message
Et testé/adapté la macro qu'on peut y lire.

 

[Robino]

Bonsoir @Robino, le fil

Tu as cliqué sur le lien de mon précédent message
Et testé/adapté la macro qu'on peut y lire.

Bonsoir STAPLE1600, non je vais regarder de suite

 

[Robino]

Bonsoir @Robino, le fil

Tu as cliqué sur le lien de mon précédent message
Et testé/adapté la macro qu'on peut y lire.

Mais je ne le trouve pas

 

[Staple1600]

Re

Est-ce plus explicite ainsi ?

Scheduling Appointments in Outlook From Excel

learn.microsoft.com

Spoiler: la macro mise en forme

Sub RegisterAppointmentList()
' adds a list of appontments to the Calendar in Outlook
Dim olApp As Outlook.Application
Dim olAppItem As Outlook.AppointmentItem
Dim r As Long
On Error Resume Next
Worksheets("Schedule").Activate
Set olApp = GetObject("", "Outlook.Application")
On Error GoTo 0
If olApp Is Nothing Then
On Error Resume Next
Set olApp = CreateObject("Outlook.Application")
On Error GoTo 0
If olApp Is Nothing Then
MsgBox "Outlook is not available!"
Exit Sub
End If
End If
r = 6 ' first row with appointment data in the active worksheet
Dim mysub, myStart, myEnd
While Len(Cells(r, 2).Text) <> 0
mysub = Cells(r, 2) & ", " & Cells(r, 3)
myStart = DateValue(Cells(r, 5).Value) + Cells(r, 6).Value
myEnd = DateValue(Cells(r, 5).Value) + Cells(r, 7).Value
'DeleteTestAppointments mysub, myStart, myEnd
Set olAppItem = olApp.CreateItem(olAppointmentItem)
' creates a new appointment
With olAppItem             ' set default appointment values
.Location = Cells(r, 3)
.Body = ""
.ReminderSet = True
.BusyStatus = olFree
'.RequiredAttendees = "johndoe\@microsoft.com"
On Error Resume Next
.Start = myStart
.End = myEnd
.Subject = Cells(r, 2) & ", " & .Location
.Attachments.Add ("c:\temp\somefile.msg")
.Location = Cells(r, 3).Value
.Body = .Subject & ", " & Cells(r, 4).Value
.ReminderSet = True
.BusyStatus = olBusy
.Categories = "Orange Category" ' add this to be able to delete the testappointments
On Error GoTo 0
.Save ' saves the new appointment to the default folder
End With
r = r + 1
Wend
Set olAppItem = Nothing
Set olApp = Nothing
MsgBox "Done !"
End Sub

 

[Robino]

Merci

 

[Robino]

Bonjour - De retour car beaucoup de travail comme tout le monde... Les dates ne "fonctionnent" pas - J'ai à la place un message d'erreur lorsque je souhaite enregistrer mes tâches une deuxième fois- Je cherche, je cherche, je cherche