C
ccharvet1
Guest
Bonjour au forum,
Dans un userform, je souhaite créer des RDV avec la vérification pour éviter les doublons.
En fouillant un peu, j'ai trouvé ceci et apporté quelques modif à ma convenance
Ça ne fonctionne pas,
je créer un RDV pour Lundi 23 Avril 2012 sachant qu'il y a déjà un RDV de prévu à cette date,
un message devrait s'afficher pour dire "Un Rdv déja prévu à cette date" et bien non il affiche "RDV va être créer dans votre agenda" et créer ce nouveau RDV à la même période.
Pouvez-vous m'aidez ? Merci
Dans un userform, je souhaite créer des RDV avec la vérification pour éviter les doublons.
En fouillant un peu, j'ai trouvé ceci et apporté quelques modif à ma convenance
Code:
Sub RDVExistant()
Dim OutlApp As New Outlook.Application
Dim OutlMapi As Outlook.Namespace
Dim OutlFolder As Outlook.MAPIFolder
Dim OutlAppointment As Outlook.AppointmentItem
Dim OutlItems As Outlook.Items
Dim DateDebut As String
DateDebut = TextBox1.Value & " " & TextBox4.Value
Set OutlMapi = OutlApp.GetNamespace("MAPI")
Set OutlFolder = OutlMapi.GetDefaultFolder(olFolderCalendar)
Set OutlItems = OutlFolder.Items
On Error Resume Next
Set OutlAppointment = OutlItems.Find("[Start] = '" & DateDebut & "'")
On Error GoTo 0
If OutlAppointment Is Nothing Then
UserForm6 'Message qui affiche qu'un "RDV va être créer...", extinction de l'UserForm6 au bout de 3 secondes
NouveauRDV_Calendrier 'Macro pour la création du nouveau RDV
Else
MsgBox "Un Rdv déja prévu à cette date:" & vbCrLf & _
OutlAppointment.Subject
End If
End Subje créer un RDV pour Lundi 23 Avril 2012 sachant qu'il y a déjà un RDV de prévu à cette date,
un message devrait s'afficher pour dire "Un Rdv déja prévu à cette date" et bien non il affiche "RDV va être créer dans votre agenda" et créer ce nouveau RDV à la même période.
Pouvez-vous m'aidez ? Merci
Dernière modification par un modérateur: