Discussion :

[picolo64]

Bonjour,

Je fais une macro pour générer des rdv dans outlook depuis des dates et infos d'un fichier excel,
J'y arrive (merci internet !) mais le souci est qu'à chaque fois que j'exécute la macro pour tester, je me mets plusieurs fois le même rdv dans outlook.
Sauriez-vous svp comment je pourrai tester si le rdv existe déjà à la date pour ne pas le créer de nouveau ?
Ou le supprimer par macro avant de le créer ?
voici un extrait de mon fichier :


et voici "mon" code :

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
28
29
30
31
32
 
Option Explicit
Sub AddAppointments()
  Dim myoutlook As Object ' Outlook.Application
  Dim r As Long
  Dim myapt As Object ' Outlook.AppointmentItem
  Dim daterdv As Date
  ' late bound constants
  Const olAppointmentItem = 1
  Const olBusy = 2
  Const olMeeting = 1
  ' Create the Outlook session
  Set myoutlook = CreateObject("Outlook.Application")
  ' Start at row 2
  r = 2
  Do Until Trim$(Cells(r, 1).Value) = ""
    ' Create the AppointmentItem
    Set myapt = myoutlook.CreateItem(olAppointmentItem)
    ' Set the appointment properties
    With myapt
      .Subject = Cells(r, 1).Value
      .Start = Cells(r, 3).Value & " 9:00"
      .End = Cells(r, 3).Value & " 10:00"
      .Recipients.Add Cells(r, 4).Value
      .MeetingStatus = olMeeting
      .Body = "RDV POUR " & Cells(r, 1).Value
      .Save
     r = r + 1
      .Send
    End With
  Loop
End Sub

[Invité]

Bonjour Picolo64,

Perso, lorsque le RDV est créé je mets une note dans la cellule

Du coup avant de créer le RDV, je vérifie qu'il n'y ait pas de note existante

A+

[picolo64]

Bonjour BrunoM45,
Merci pour ta réponse, ah oui ton idée m'intéresse :
Dans la macro, à chaque rdv crée tu mets une valeur dans une cellule en face, mais du coup à la fin de la macro tu dois enregistrer le fichier pour retrouver la valeur "fait" dans une future exécution de la macro c'est cela ?
Merci,
Pierre

[Invité]

Re,
Oui tout à fait, bien sûr qu'il faut enregistrer le fichier 🤔
A+