Discussion :

[ktyisl]

Bonjour,

Pour plus de clareté dans mes explications, je vous joins un modèle de planing excel que j'utilise et à partir duquel j'aimerais générer des rdv dans le calendrier outlook.

Je précise ma pensée : j'aimerais qu'à partir d'une cellule active (par exemple "retour expert ok") en lançant une macro cela me génère un rdv avec la date indiquée sur la ligne 10 (ex "15 juillet").

Avec la macro suivante (AjoutRDV), j'arrive à créer mon RDV mais il est toujours au 13 juillet, je bloque sur ce qu'il faut que je mette après START = pour lui faire comprendre d'aller chercher l'info de la date en ligne 10.

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
Sub AjoutRDV()
    Dim OlApp As Object
    Dim NS As Object, ObjRDV As Object
    Set OlApp = CreateObject("Outlook.Application")
    Set NS = OlApp.GetNamespace("MAPI")
    Set ObjRDV = OlApp.CreateItem(olAppointmentItem)
    With ObjRDV
    .Subject = [ActiveCell]
    '.Body = "texte"
    .Start = [$F$5]
    .Duration = 30
    .ReminderMinutesBeforeStart = 0
    .ReminderSet = True
    .Display 'mettre en commentaire après mise au point
    End With
    ObjRDV.Save
End Sub

par avance je vous remercie si vous avez une idée pour m'aider.

KTY

[fgiambelluco]

Bonjour
Et en mettant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    .Subject =ActiveCell.value
    '.Body = "texte"
    .Start = Cells(5,ActiveCell.Column).value

[ktyisl]

ça fonctionne !

Merci beaucoup

Kty