Suppression de RDV dans Outlook via macro Excel

Marsh Posté le 03-03-2014 à 14:04:13

Bonjour.

j'ai récupéré la macro suivante sur votre site a l'adresse suivantes :
http://forum.hardware.fr/hfr/Progr [...] 8946_1.htm

j'ai penser pouvoir la modifier pour que cela me convienne mais je n'y arrive pas.

ce que je fait c'est que je copie sur une feuille a part les RDV Excel (mais toujours dans le même classeurs) et supprimer les RDV qui ont le même nom dans Outlook.

je n'ai même pas de tri par date a faire vu que l'objets mes RDV sont unique.

Voila ce que j'ai essayer de faire :

Sub SupressionRDV()

'
'Supprimer un rdv du calendrier (WIP)
'
Set myOlApp = CreateObject("Outlook.Application" )
Set myNameSpace = myOlApp.GetNamespace("MAPI" )
Set myOlApp.ActiveExplorer.CurrentFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)
Set outlookitems = myOlApp.ActiveExplorer.CurrentFolder.Items
Cpte = outlookitems.Count

For x = 1 To Cpte
'exemple de test : si le sujet est "toto" alors on supprime le rdv
If outlookitems(x).Subject = Range("A1" ) Then
outlookitems(x).Delete
End If
Next x
End Sub

je vous remercie d'avance pour l'aide que vous pouvez m'apporter.

Reply

Marsh Posté le 03-03-2014 à 14:04:13

Reply

Marsh Posté le 03-03-2014 à 18:34:50

Range("A1" ).Value je dirais plutôt dans ton If

Reply

Marsh Posté le 04-03-2014 à 09:34:09

Bonjour.

Malheureusement sa ne marche pas.

je vous met en lien mon fichier au cas ou.

https://www.wetransfer.com/download [...] 48/9d881f.

Merci d'avance.

Reply

Marsh Posté le 04-03-2014 à 09:56:32

Bonjour,

voir Ron de Bruin's tips …

Reply

Marsh Posté le 06-03-2014 à 10:42:15

Bonjour.

je l'ai trouver ailleurs et je vous la partage au cas ou

Citation :

Sub SupprimerRDV()
'Variables de fonctionnement
Dim c As Range 'variable objet Range de la cellue en cours de boucle
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Dim OlApp As New Outlook.Application 'déclaraction et création (New) de l'instance Outlook
Dim OlMapi As Outlook.Namespace
Dim OlFolder As Outlook.MAPIFolder
Dim OlAppointment As Outlook.AppointmentItem
'Initialisation des variables
Set OlMapi = OlApp.GetNamespace("MAPI" )
Set OlFolder = OlMapi.GetDefaultFolder(olFolderCalendar)

'Travail sur la feuille 'Feuil1'
With Sheets("Feuil1" ) 'mettre le nom de la feuille en remplacement de Feuil1
'Parcourir les cellules de la colonne A de la ligne 2 à la dernière ligne occupée
For Each c In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
'Si la cellule n'est pas vide
If c <> "" Then
'Parcourir les rdv pour voir si le sujet correspond au contenu de la cellule
For Each OlAppointment In OlFolder.Items
'si oui supprimé le rdv
If OlAppointment.Subject = c Then OlAppointment.Delete
Next
End If
Next
End With
Set OlMapi = Nothing
Set OlApp = Nothing
End Sub

Reply

Suppression de RDV dans Outlook via macro Excel

Sujets relatifs:

Leave a Replay