Discussion :

[lechtifred]

Bonjour
J’ai besoin d’aide sur le vba Excel, je travail sur un fichier de vérifications périodique de mes installations. Afin de ne pas oublier les rappels, j’effectue un transfert des dates avec le motif du rappel sur le calendrier Outlook. Pour cela j’utilise un code trouvé sur la toile qui fonctionne très bien
Or je rencontre un probléme ,lors d’une modification de date ,je provoque un doublons dans mon calendrier.
Ma question : Comment effectuer le transfert des dates modifier vers le calendrier Outlook.
Doit-on mettre en place un flag ,(une cellule vrai/faux)lors de la modification, si oui comment faire en automatique.
Voici le code utilisée pour le transfert :

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
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem
Dim Cell As Range
For Each Cell In Range("A8:A" & Range("A22").End(xlUp).Row)
    Set MyItem = myOlApp.CreateItem(olAppointmentItem)  
    With MyItem
        .MeetingStatus = olNonMeeting
        .Subject = Cell
        .Start = Cell.Offset(0, 1) ' Attention : format mm/dd/yy
        .Duration = Cell.Offset(0, 2) 'minutes
        .Location = Cell.Offset(0, 3)
        .Save
    End With
        Set MyItem = Nothing
Next Cell

Merci

[Fvandermeulen]

Salut,

En effet un Flag en colonne 5 par exemple sur ton fichier peut aider, reste à supprimer le RDV correspondant avant de recréer un nouveau RDV( j'avoue que je sais pas si on peut simplement modifier)

Voici toujours un exemple pour faire une recherche dans ton calendrier Outlook, reste à adapter pour ton cas

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
18
19
20
21
Sub RechercheCalendrier()
 
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set myFolder = olns.GetDefaultFolder(olFolderCalendar)
Set MyTasks = myFolder.Items
 
' Recherche dans le calendrier selon le sujet
Set MyTask = MyTasks.Find("[subject] = ""RDV Mr X""")
If MyTask Is Nothing Then ' Si non trouvé
   MsgBox "Pas de rendez vous prévu"
Else
   MsgBox "Rendez vous prévu le " & MyTask.Start
End If
 
Set ol = Nothing
Set olns = Nothing
Set myFolder = Nothing
Set MOnSujet = Nothing
 
End Sub

Bonne continuation

[Fvandermeulen]

Re,
Je suis vraiment débile, bien sur qu'on peut modifier, y'a qu'à utiliser MyTask , ça ferait:

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
18
19
20
21
22
23
24
25
26
27
Sub RechercheCalendrier()
 
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set myFolder = olns.GetDefaultFolder(olFolderCalendar)
Set MyTasks = myFolder.Items
 
' Recherche dans le calendrier selon le sujet
Set MyTask = MyTasks.Find("[subject] = ""RDV Mr X""")
If MyTask Is Nothing Then ' Si non trouvé
   MsgBox "Pas de rendez vous prévu"
Else
   MsgBox "Rendez vous prévu le " & MyTask.Start
       With MyTask
        .MeetingStatus = olNonMeeting
        .Subject = "RDV Mr Y"
        .Save
    End With
 
End If
 
Set ol = Nothing
Set olns = Nothing
Set myFolder = Nothing
Set MOnSujet = Nothing
 
End Sub