RDV outlook si saisie date dans cellule

bonjour

je possède un tableau ou dans la colonne "O", je saisie des dates

je souhaiterais que lorsque je saisie une date dans une cellule de cette colonne, cela me créé un évènement sur mon calendrier OUTLOOK.

Croyez vous que cela soit possible ?

Bonsoir

Merci de joindre un extrait de ton fichier.

Amicalement

Nad

merci Nad de t'intéresser à mon soucis

Re

Essaye

'Nécessite d'activer la référence Microsoft Outlook 12.0 Object Library ' 12.0 = version à adapter

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("O2:O" & Range("A65536").End(xlUp).Row)) Is Nothing Then
If Target > 0 Then
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem

    Set MyItem = myOlApp.CreateItem(olAppointmentItem)
    With MyItem
        .MeetingStatus = olNonMeeting
        .Subject = Target.Offset(0, -11)
        .Start = Target
        .AllDayEvent = True
        .Location = Target.Offset(0, -12)
        .Save
    End With
    Set MyItem = Nothing
End If
End If
End Sub

Amicalement

Nad

hello

merci mais cela ne fonctionne pas

"erreur de compilation"

que veux dire la phrase 'nécessite d'activer..."

encore merci Nad

Bonjour

darkfire71 a écrit :

que veux dire la phrase 'nécessite d'activer..."

Quand tu es dans VBA, tu cliques sur OUTILS ==> Références et là tu coches Microsoft Outlook xx.0 Object Library

Amicalement

Nad

ça marche pour la première ligne

tu vas que je suis chiant mais la macro ne marche pas pour les lignes suivantes(erreur 438)

autre question comment faire pour que l'objet du rdv soit Echéance attestation d'assurance; participant le matricule correspondant, le lieu soir "C" comme cela l'est déjà

merci en tout cas pour ton aide

darkfire71 a écrit :

la macro ne marche pas pour les lignes suivantes(erreur 438)

darkfire71 a écrit :

comment faire pour que l'objet du rdv soit Echéance attestation d'assurancee

.Subject = Target.Offset(0, -11)

Par

.Subject = "Echeance Attestation d'Assurance"

darkfire71 a écrit :

participant le matricule correspondant

Amicalement

Nad

bon finalement j'ai laissé tomber mon idée car cela ne correspond plus à mes attentes

mais je mets tout ça de côté pour une prochaine utilisation probable

MERCI

salut !

est ce que si je mets :

Subject = "Echeance Attestation d'Assurance" & Subject = Target.Offset(0, -17)

cela va marcher pour avoir en objet "échéance attestatuion d'assurance + données indiquer dans la cellule correspondante en colonne A?