Suppression de RDV dans Outlook via macro Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Suppression de RDV dans Outlook via macro Excel

xenon10092

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.

Publicité

Je@nb

Kindly give dime

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

xenon10092

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.

Marc L

Bonjour,

voir Ron de Bruin's tips …

xenon10092

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Suppression de RDV dans Outlook via macro Excel

Sujets relatifs
Activer un fichier Word à partir d'une macro	Problème de tableau excel
Macro d'enregistrement Word	Macro - Fonctions VBA
J'attends la suppression de mon compte.	suppression racourcis
Macro pour sauver la feuille courante dans un nouveau classeur	rechercher remplacer en VB sur excel
Créer macro pour ajout de ligne en cas de doublons	Suppression de RDV dans Outlook via macro Excel
Plus de sujets relatifs à : Suppression de RDV dans Outlook via macro Excel

Page générée en 0.023 secondes