Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2888 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Suppression de RDV dans Outlook via macro Excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Suppression de RDV dans Outlook via macro Excel

n°2221297
xenon10092
Posté le 03-03-2014 à 14:04:13  profilanswer
 

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.
 
 

mood
Publicité
Posté le 03-03-2014 à 14:04:13  profilanswer
 

n°2221374
Je@nb
Kindly give dime
Posté le 03-03-2014 à 18:34:50  profilanswer
 

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

n°2221407
xenon10092
Posté le 04-03-2014 à 09:34:09  profilanswer
 

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.

n°2221413
Marc L
Posté le 04-03-2014 à 09:56:32  profilanswer
 

 
           Bonjour,
 
           voir Ron de Bruin's tips
 

n°2221625
xenon10092
Posté le 06-03-2014 à 10:42:15  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Suppression de RDV dans Outlook via macro Excel

 

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


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR