En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre", et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre", et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" <villy_8@hotmail.com.nospam> a écrit dans le message de news:OdzKi1UBFHA.1656@TK2MSFTNGP11.phx.gbl...
Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre", et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" a écrit dans le message de news:%En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre",
et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:
J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" <iprawitz@wanadoo.fr> a écrit dans le message de news:%23jArr8UBFHA.4008@tk2msftngp13.phx.gbl...
En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre",
et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" <villy_8@hotmail.com.nospam> a écrit dans le message de news:OdzKi1UBFHA.1656@TK2MSFTNGP11.phx.gbl...
Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" a écrit dans le message de news:%En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre",
et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" a écrit dans le message de news:%En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre", et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" <iprawitz@wanadoo.fr> a écrit dans le message de news:%23jArr8UBFHA.4008@tk2msftngp13.phx.gbl...
En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre", et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" <villy_8@hotmail.com.nospam> a écrit dans le message de news:OdzKi1UBFHA.1656@TK2MSFTNGP11.phx.gbl...
Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" a écrit dans le message de news:%En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre", et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
La voici, à coller dans ton code de session :
'Macro permettant de créer des tâches correspondant aux RDV du calendrier
Sub CalEnTaches()
Dim maTask As TaskItem
Dim monRDV As AppointmentItem
Dim MonDossCal As MAPIFolder
Dim MonDossTask As MAPIFolder
Dim strObjTask As String
Set MonDossTask = Session.GetDefaultFolder(olFolderTasks)
For Each maTask In MonDossTask.Items
If InStr(1, maTask.Categories, "RDVCAL") > 0 Then
maTask.Delete
End If
Next
Set MonDossCal = Session.GetDefaultFolder(olFolderCalendar)
For Each monRDV In MonDossCal.Items
If monRDV.BusyStatus <> olFree Then
Set maTask = CreateItem(olTaskItem)
If monRDV.MeetingStatus = olMeeting Then
strObjTask = "Réunion "
Else
strObjTask = "RDV "
End If
Select Case monRDV.BusyStatus
Case olBusy
strObjTask = strObjTask & "occupé : "
Case olOutOfOffice
strObjTask = strObjTask & "extérieur : "
Case olTentative
strObjTask = strObjTask & "provisoire : "
End Select
maTask.Subject = strObjTask & monRDV.Subject
If Not monRDV.AllDayEvent Then
maTask.Subject = FormatDateTime(monRDV.Start, vbShortTime) _
& " " & FormatDateTime(monRDV.End, vbShortTime) _
& " " & maTask.Subject
End If
maTask.StartDate = monRDV.Start
maTask.DueDate = monRDV.End
maTask.Categories = monRDV.Categories & ";RDVCAL"
maTask.Body = monRDV.Body
maTask.ReminderSet = False
maTask.Importance = monRDV.Importance
maTask.Sensitivity = monRDV.Sensitivity
maTask.Save
End If
Next
End Sub
'Fin de macro
Finalement, j'ai changé la catégorie "RDV" en "RDVCAL", pour réinitialiser les RDV/Tâches quand on appelle la macro (sinon, à
chaque fois il y aurait eu création de doublons !)
A+
Isa
PS : en général, je mets les macros à disposition de tous, je trouve un peu "chien" d'appâter les personnes qui chercheraient
dans le forum pour ne pas leur donner la solution ! ;-)
"david" a écrit dans le message de news:eY7$Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" a écrit dans le message de news:%En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre",
etqui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
La voici, à coller dans ton code de session :
'Macro permettant de créer des tâches correspondant aux RDV du calendrier
Sub CalEnTaches()
Dim maTask As TaskItem
Dim monRDV As AppointmentItem
Dim MonDossCal As MAPIFolder
Dim MonDossTask As MAPIFolder
Dim strObjTask As String
Set MonDossTask = Session.GetDefaultFolder(olFolderTasks)
For Each maTask In MonDossTask.Items
If InStr(1, maTask.Categories, "RDVCAL") > 0 Then
maTask.Delete
End If
Next
Set MonDossCal = Session.GetDefaultFolder(olFolderCalendar)
For Each monRDV In MonDossCal.Items
If monRDV.BusyStatus <> olFree Then
Set maTask = CreateItem(olTaskItem)
If monRDV.MeetingStatus = olMeeting Then
strObjTask = "Réunion "
Else
strObjTask = "RDV "
End If
Select Case monRDV.BusyStatus
Case olBusy
strObjTask = strObjTask & "occupé : "
Case olOutOfOffice
strObjTask = strObjTask & "extérieur : "
Case olTentative
strObjTask = strObjTask & "provisoire : "
End Select
maTask.Subject = strObjTask & monRDV.Subject
If Not monRDV.AllDayEvent Then
maTask.Subject = FormatDateTime(monRDV.Start, vbShortTime) _
& " " & FormatDateTime(monRDV.End, vbShortTime) _
& " " & maTask.Subject
End If
maTask.StartDate = monRDV.Start
maTask.DueDate = monRDV.End
maTask.Categories = monRDV.Categories & ";RDVCAL"
maTask.Body = monRDV.Body
maTask.ReminderSet = False
maTask.Importance = monRDV.Importance
maTask.Sensitivity = monRDV.Sensitivity
maTask.Save
End If
Next
End Sub
'Fin de macro
Finalement, j'ai changé la catégorie "RDV" en "RDVCAL", pour réinitialiser les RDV/Tâches quand on appelle la macro (sinon, à
chaque fois il y aurait eu création de doublons !)
A+
Isa
PS : en général, je mets les macros à disposition de tous, je trouve un peu "chien" d'appâter les personnes qui chercheraient
dans le forum pour ne pas leur donner la solution ! ;-)
"david" <villy_8@hotmail.com.nospam> a écrit dans le message de news:eY7$TtVBFHA.4004@tk2msftngp13.phx.gbl...
Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:
J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" <iprawitz@wanadoo.fr> a écrit dans le message de news:%23jArr8UBFHA.4008@tk2msftngp13.phx.gbl...
En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre",
et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" <villy_8@hotmail.com.nospam> a écrit dans le message de news:OdzKi1UBFHA.1656@TK2MSFTNGP11.phx.gbl...
Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
La voici, à coller dans ton code de session :
'Macro permettant de créer des tâches correspondant aux RDV du calendrier
Sub CalEnTaches()
Dim maTask As TaskItem
Dim monRDV As AppointmentItem
Dim MonDossCal As MAPIFolder
Dim MonDossTask As MAPIFolder
Dim strObjTask As String
Set MonDossTask = Session.GetDefaultFolder(olFolderTasks)
For Each maTask In MonDossTask.Items
If InStr(1, maTask.Categories, "RDVCAL") > 0 Then
maTask.Delete
End If
Next
Set MonDossCal = Session.GetDefaultFolder(olFolderCalendar)
For Each monRDV In MonDossCal.Items
If monRDV.BusyStatus <> olFree Then
Set maTask = CreateItem(olTaskItem)
If monRDV.MeetingStatus = olMeeting Then
strObjTask = "Réunion "
Else
strObjTask = "RDV "
End If
Select Case monRDV.BusyStatus
Case olBusy
strObjTask = strObjTask & "occupé : "
Case olOutOfOffice
strObjTask = strObjTask & "extérieur : "
Case olTentative
strObjTask = strObjTask & "provisoire : "
End Select
maTask.Subject = strObjTask & monRDV.Subject
If Not monRDV.AllDayEvent Then
maTask.Subject = FormatDateTime(monRDV.Start, vbShortTime) _
& " " & FormatDateTime(monRDV.End, vbShortTime) _
& " " & maTask.Subject
End If
maTask.StartDate = monRDV.Start
maTask.DueDate = monRDV.End
maTask.Categories = monRDV.Categories & ";RDVCAL"
maTask.Body = monRDV.Body
maTask.ReminderSet = False
maTask.Importance = monRDV.Importance
maTask.Sensitivity = monRDV.Sensitivity
maTask.Save
End If
Next
End Sub
'Fin de macro
Finalement, j'ai changé la catégorie "RDV" en "RDVCAL", pour réinitialiser les RDV/Tâches quand on appelle la macro (sinon, à
chaque fois il y aurait eu création de doublons !)
A+
Isa
PS : en général, je mets les macros à disposition de tous, je trouve un peu "chien" d'appâter les personnes qui chercheraient
dans le forum pour ne pas leur donner la solution ! ;-)
"david" a écrit dans le message de news:eY7$Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" a écrit dans le message de news:%En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de "Libre",
etqui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
MERCIII.
Ca fonctionne comme tu l'as décris.
Sauf que MOI j'avais pas compris.
C'est possible d'avoir les Taches dans le calendrier, et non le
calendrier dans les taches?
Désolé, en te relisant je viens de realiser mon erreur.
Merci.
David.
Isabelle Prawitz wrote:La voici, à coller dans ton code de session :
'Macro permettant de créer des tâches correspondant aux RDV du calendrier
Sub CalEnTaches()
Dim maTask As TaskItem
Dim monRDV As AppointmentItem
Dim MonDossCal As MAPIFolder
Dim MonDossTask As MAPIFolder
Dim strObjTask As String
Set MonDossTask = Session.GetDefaultFolder(olFolderTasks)
For Each maTask In MonDossTask.Items
If InStr(1, maTask.Categories, "RDVCAL") > 0 Then
maTask.Delete
End If
Next
Set MonDossCal = Session.GetDefaultFolder(olFolderCalendar)
For Each monRDV In MonDossCal.Items
If monRDV.BusyStatus <> olFree Then
Set maTask = CreateItem(olTaskItem)
If monRDV.MeetingStatus = olMeeting Then
strObjTask = "Réunion "
Else
strObjTask = "RDV "
End If
Select Case monRDV.BusyStatus
Case olBusy
strObjTask = strObjTask & "occupé : "
Case olOutOfOffice
strObjTask = strObjTask & "extérieur : "
Case olTentative
strObjTask = strObjTask & "provisoire : "
End Select
maTask.Subject = strObjTask & monRDV.Subject
If Not monRDV.AllDayEvent Then
maTask.Subject = FormatDateTime(monRDV.Start, vbShortTime) _
& " " & FormatDateTime(monRDV.End, vbShortTime) _
& " " & maTask.Subject
End If
maTask.StartDate = monRDV.Start
maTask.DueDate = monRDV.End
maTask.Categories = monRDV.Categories & ";RDVCAL"
maTask.Body = monRDV.Body
maTask.ReminderSet = False
maTask.Importance = monRDV.Importance
maTask.Sensitivity = monRDV.Sensitivity
maTask.Save
End If
Next
End Sub
'Fin de macro
Finalement, j'ai changé la catégorie "RDV" en "RDVCAL", pour réinitialiser les RDV/Tâches quand on appelle la macro
(sinon, à
chaque fois il y aurait eu création de doublons !)
A+
Isa
PS : en général, je mets les macros à disposition de tous, je trouve un peu "chien" d'appâter les personnes qui
chercheraient
dans le forum pour ne pas leur donner la solution ! ;-)
"david" a écrit dans le message de news:eY7$Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" a écrit dans le message de news:%En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de
"Libre",
etqui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
MERCIII.
Ca fonctionne comme tu l'as décris.
Sauf que MOI j'avais pas compris.
C'est possible d'avoir les Taches dans le calendrier, et non le
calendrier dans les taches?
Désolé, en te relisant je viens de realiser mon erreur.
Merci.
David.
Isabelle Prawitz wrote:
La voici, à coller dans ton code de session :
'Macro permettant de créer des tâches correspondant aux RDV du calendrier
Sub CalEnTaches()
Dim maTask As TaskItem
Dim monRDV As AppointmentItem
Dim MonDossCal As MAPIFolder
Dim MonDossTask As MAPIFolder
Dim strObjTask As String
Set MonDossTask = Session.GetDefaultFolder(olFolderTasks)
For Each maTask In MonDossTask.Items
If InStr(1, maTask.Categories, "RDVCAL") > 0 Then
maTask.Delete
End If
Next
Set MonDossCal = Session.GetDefaultFolder(olFolderCalendar)
For Each monRDV In MonDossCal.Items
If monRDV.BusyStatus <> olFree Then
Set maTask = CreateItem(olTaskItem)
If monRDV.MeetingStatus = olMeeting Then
strObjTask = "Réunion "
Else
strObjTask = "RDV "
End If
Select Case monRDV.BusyStatus
Case olBusy
strObjTask = strObjTask & "occupé : "
Case olOutOfOffice
strObjTask = strObjTask & "extérieur : "
Case olTentative
strObjTask = strObjTask & "provisoire : "
End Select
maTask.Subject = strObjTask & monRDV.Subject
If Not monRDV.AllDayEvent Then
maTask.Subject = FormatDateTime(monRDV.Start, vbShortTime) _
& " " & FormatDateTime(monRDV.End, vbShortTime) _
& " " & maTask.Subject
End If
maTask.StartDate = monRDV.Start
maTask.DueDate = monRDV.End
maTask.Categories = monRDV.Categories & ";RDVCAL"
maTask.Body = monRDV.Body
maTask.ReminderSet = False
maTask.Importance = monRDV.Importance
maTask.Sensitivity = monRDV.Sensitivity
maTask.Save
End If
Next
End Sub
'Fin de macro
Finalement, j'ai changé la catégorie "RDV" en "RDVCAL", pour réinitialiser les RDV/Tâches quand on appelle la macro
(sinon, à
chaque fois il y aurait eu création de doublons !)
A+
Isa
PS : en général, je mets les macros à disposition de tous, je trouve un peu "chien" d'appâter les personnes qui
chercheraient
dans le forum pour ne pas leur donner la solution ! ;-)
"david" <villy_8@hotmail.com.nospam> a écrit dans le message de news:eY7$TtVBFHA.4004@tk2msftngp13.phx.gbl...
Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:
J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" <iprawitz@wanadoo.fr> a écrit dans le message de news:%23jArr8UBFHA.4008@tk2msftngp13.phx.gbl...
En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de
"Libre",
et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" <villy_8@hotmail.com.nospam> a écrit dans le message de news:OdzKi1UBFHA.1656@TK2MSFTNGP11.phx.gbl...
Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
MERCIII.
Ca fonctionne comme tu l'as décris.
Sauf que MOI j'avais pas compris.
C'est possible d'avoir les Taches dans le calendrier, et non le
calendrier dans les taches?
Désolé, en te relisant je viens de realiser mon erreur.
Merci.
David.
Isabelle Prawitz wrote:La voici, à coller dans ton code de session :
'Macro permettant de créer des tâches correspondant aux RDV du calendrier
Sub CalEnTaches()
Dim maTask As TaskItem
Dim monRDV As AppointmentItem
Dim MonDossCal As MAPIFolder
Dim MonDossTask As MAPIFolder
Dim strObjTask As String
Set MonDossTask = Session.GetDefaultFolder(olFolderTasks)
For Each maTask In MonDossTask.Items
If InStr(1, maTask.Categories, "RDVCAL") > 0 Then
maTask.Delete
End If
Next
Set MonDossCal = Session.GetDefaultFolder(olFolderCalendar)
For Each monRDV In MonDossCal.Items
If monRDV.BusyStatus <> olFree Then
Set maTask = CreateItem(olTaskItem)
If monRDV.MeetingStatus = olMeeting Then
strObjTask = "Réunion "
Else
strObjTask = "RDV "
End If
Select Case monRDV.BusyStatus
Case olBusy
strObjTask = strObjTask & "occupé : "
Case olOutOfOffice
strObjTask = strObjTask & "extérieur : "
Case olTentative
strObjTask = strObjTask & "provisoire : "
End Select
maTask.Subject = strObjTask & monRDV.Subject
If Not monRDV.AllDayEvent Then
maTask.Subject = FormatDateTime(monRDV.Start, vbShortTime) _
& " " & FormatDateTime(monRDV.End, vbShortTime) _
& " " & maTask.Subject
End If
maTask.StartDate = monRDV.Start
maTask.DueDate = monRDV.End
maTask.Categories = monRDV.Categories & ";RDVCAL"
maTask.Body = monRDV.Body
maTask.ReminderSet = False
maTask.Importance = monRDV.Importance
maTask.Sensitivity = monRDV.Sensitivity
maTask.Save
End If
Next
End Sub
'Fin de macro
Finalement, j'ai changé la catégorie "RDV" en "RDVCAL", pour réinitialiser les RDV/Tâches quand on appelle la macro
(sinon, à
chaque fois il y aurait eu création de doublons !)
A+
Isa
PS : en général, je mets les macros à disposition de tous, je trouve un peu "chien" d'appâter les personnes qui
chercheraient
dans le forum pour ne pas leur donner la solution ! ;-)
"david" a écrit dans le message de news:eY7$Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" a écrit dans le message de news:%En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de
"Libre",
etqui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
Bonjour !
En fait l'opération peut se faire dans l'autre sens (créer des RDV correspondant aux tâches), mais les tâches ont des champs
qui ne peuvent pas être visualisés en RDV (% achevé et Etat).
Il faut aussi faire un choix pour la fin entre Date de fin et Echéance !
D'où le choix pris !
A+
Isa
"david" a écrit dans le message de news:%23uqO%MERCIII.
Ca fonctionne comme tu l'as décris.
Sauf que MOI j'avais pas compris.
C'est possible d'avoir les Taches dans le calendrier, et non le
calendrier dans les taches?
Désolé, en te relisant je viens de realiser mon erreur.
Merci.
David.
Isabelle Prawitz wrote:La voici, à coller dans ton code de session :
'Macro permettant de créer des tâches correspondant aux RDV du calendrier
Sub CalEnTaches()
Dim maTask As TaskItem
Dim monRDV As AppointmentItem
Dim MonDossCal As MAPIFolder
Dim MonDossTask As MAPIFolder
Dim strObjTask As String
Set MonDossTask = Session.GetDefaultFolder(olFolderTasks)
For Each maTask In MonDossTask.Items
If InStr(1, maTask.Categories, "RDVCAL") > 0 Then
maTask.Delete
End If
Next
Set MonDossCal = Session.GetDefaultFolder(olFolderCalendar)
For Each monRDV In MonDossCal.Items
If monRDV.BusyStatus <> olFree Then
Set maTask = CreateItem(olTaskItem)
If monRDV.MeetingStatus = olMeeting Then
strObjTask = "Réunion "
Else
strObjTask = "RDV "
End If
Select Case monRDV.BusyStatus
Case olBusy
strObjTask = strObjTask & "occupé : "
Case olOutOfOffice
strObjTask = strObjTask & "extérieur : "
Case olTentative
strObjTask = strObjTask & "provisoire : "
End Select
maTask.Subject = strObjTask & monRDV.Subject
If Not monRDV.AllDayEvent Then
maTask.Subject = FormatDateTime(monRDV.Start, vbShortTime) _
& " " & FormatDateTime(monRDV.End, vbShortTime) _
& " " & maTask.Subject
End If
maTask.StartDate = monRDV.Start
maTask.DueDate = monRDV.End
maTask.Categories = monRDV.Categories & ";RDVCAL"
maTask.Body = monRDV.Body
maTask.ReminderSet = False
maTask.Importance = monRDV.Importance
maTask.Sensitivity = monRDV.Sensitivity
maTask.Save
End If
Next
End Sub
'Fin de macro
Finalement, j'ai changé la catégorie "RDV" en "RDVCAL", pour réinitialiser les RDV/Tâches quand on appelle la macro
(sinon, àchaque fois il y aurait eu création de doublons !)
A+
Isa
PS : en général, je mets les macros à disposition de tous, je trouve un peu "chien" d'appâter les personnes qui
chercheraientdans le forum pour ne pas leur donner la solution ! ;-)
"david" a écrit dans le message de news:eY7$Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" a écrit dans le message de news:%En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de
"Libre",etqui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
Merci.
Bonjour !
En fait l'opération peut se faire dans l'autre sens (créer des RDV correspondant aux tâches), mais les tâches ont des champs
qui ne peuvent pas être visualisés en RDV (% achevé et Etat).
Il faut aussi faire un choix pour la fin entre Date de fin et Echéance !
D'où le choix pris !
A+
Isa
"david" <villy_8@hotmail.com.nospam> a écrit dans le message de news:%23uqO%23VWBFHA.1292@TK2MSFTNGP10.phx.gbl...
MERCIII.
Ca fonctionne comme tu l'as décris.
Sauf que MOI j'avais pas compris.
C'est possible d'avoir les Taches dans le calendrier, et non le
calendrier dans les taches?
Désolé, en te relisant je viens de realiser mon erreur.
Merci.
David.
Isabelle Prawitz wrote:
La voici, à coller dans ton code de session :
'Macro permettant de créer des tâches correspondant aux RDV du calendrier
Sub CalEnTaches()
Dim maTask As TaskItem
Dim monRDV As AppointmentItem
Dim MonDossCal As MAPIFolder
Dim MonDossTask As MAPIFolder
Dim strObjTask As String
Set MonDossTask = Session.GetDefaultFolder(olFolderTasks)
For Each maTask In MonDossTask.Items
If InStr(1, maTask.Categories, "RDVCAL") > 0 Then
maTask.Delete
End If
Next
Set MonDossCal = Session.GetDefaultFolder(olFolderCalendar)
For Each monRDV In MonDossCal.Items
If monRDV.BusyStatus <> olFree Then
Set maTask = CreateItem(olTaskItem)
If monRDV.MeetingStatus = olMeeting Then
strObjTask = "Réunion "
Else
strObjTask = "RDV "
End If
Select Case monRDV.BusyStatus
Case olBusy
strObjTask = strObjTask & "occupé : "
Case olOutOfOffice
strObjTask = strObjTask & "extérieur : "
Case olTentative
strObjTask = strObjTask & "provisoire : "
End Select
maTask.Subject = strObjTask & monRDV.Subject
If Not monRDV.AllDayEvent Then
maTask.Subject = FormatDateTime(monRDV.Start, vbShortTime) _
& " " & FormatDateTime(monRDV.End, vbShortTime) _
& " " & maTask.Subject
End If
maTask.StartDate = monRDV.Start
maTask.DueDate = monRDV.End
maTask.Categories = monRDV.Categories & ";RDVCAL"
maTask.Body = monRDV.Body
maTask.ReminderSet = False
maTask.Importance = monRDV.Importance
maTask.Sensitivity = monRDV.Sensitivity
maTask.Save
End If
Next
End Sub
'Fin de macro
Finalement, j'ai changé la catégorie "RDV" en "RDVCAL", pour réinitialiser les RDV/Tâches quand on appelle la macro
(sinon, à
chaque fois il y aurait eu création de doublons !)
A+
Isa
PS : en général, je mets les macros à disposition de tous, je trouve un peu "chien" d'appâter les personnes qui
chercheraient
dans le forum pour ne pas leur donner la solution ! ;-)
"david" <villy_8@hotmail.com.nospam> a écrit dans le message de news:eY7$TtVBFHA.4004@tk2msftngp13.phx.gbl...
Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:
J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" <iprawitz@wanadoo.fr> a écrit dans le message de news:%23jArr8UBFHA.4008@tk2msftngp13.phx.gbl...
En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de
"Libre",
et
qui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.
Si ça t'intéresse, je la mets ici !
Isa
"david" <villy_8@hotmail.com.nospam> a écrit dans le message de news:OdzKi1UBFHA.1656@TK2MSFTNGP11.phx.gbl...
Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
Merci.
Bonjour !
En fait l'opération peut se faire dans l'autre sens (créer des RDV correspondant aux tâches), mais les tâches ont des champs
qui ne peuvent pas être visualisés en RDV (% achevé et Etat).
Il faut aussi faire un choix pour la fin entre Date de fin et Echéance !
D'où le choix pris !
A+
Isa
"david" a écrit dans le message de news:%23uqO%MERCIII.
Ca fonctionne comme tu l'as décris.
Sauf que MOI j'avais pas compris.
C'est possible d'avoir les Taches dans le calendrier, et non le
calendrier dans les taches?
Désolé, en te relisant je viens de realiser mon erreur.
Merci.
David.
Isabelle Prawitz wrote:La voici, à coller dans ton code de session :
'Macro permettant de créer des tâches correspondant aux RDV du calendrier
Sub CalEnTaches()
Dim maTask As TaskItem
Dim monRDV As AppointmentItem
Dim MonDossCal As MAPIFolder
Dim MonDossTask As MAPIFolder
Dim strObjTask As String
Set MonDossTask = Session.GetDefaultFolder(olFolderTasks)
For Each maTask In MonDossTask.Items
If InStr(1, maTask.Categories, "RDVCAL") > 0 Then
maTask.Delete
End If
Next
Set MonDossCal = Session.GetDefaultFolder(olFolderCalendar)
For Each monRDV In MonDossCal.Items
If monRDV.BusyStatus <> olFree Then
Set maTask = CreateItem(olTaskItem)
If monRDV.MeetingStatus = olMeeting Then
strObjTask = "Réunion "
Else
strObjTask = "RDV "
End If
Select Case monRDV.BusyStatus
Case olBusy
strObjTask = strObjTask & "occupé : "
Case olOutOfOffice
strObjTask = strObjTask & "extérieur : "
Case olTentative
strObjTask = strObjTask & "provisoire : "
End Select
maTask.Subject = strObjTask & monRDV.Subject
If Not monRDV.AllDayEvent Then
maTask.Subject = FormatDateTime(monRDV.Start, vbShortTime) _
& " " & FormatDateTime(monRDV.End, vbShortTime) _
& " " & maTask.Subject
End If
maTask.StartDate = monRDV.Start
maTask.DueDate = monRDV.End
maTask.Categories = monRDV.Categories & ";RDVCAL"
maTask.Body = monRDV.Body
maTask.ReminderSet = False
maTask.Importance = monRDV.Importance
maTask.Sensitivity = monRDV.Sensitivity
maTask.Save
End If
Next
End Sub
'Fin de macro
Finalement, j'ai changé la catégorie "RDV" en "RDVCAL", pour réinitialiser les RDV/Tâches quand on appelle la macro
(sinon, àchaque fois il y aurait eu création de doublons !)
A+
Isa
PS : en général, je mets les macros à disposition de tous, je trouve un peu "chien" d'appâter les personnes qui
chercheraientdans le forum pour ne pas leur donner la solution ! ;-)
"david" a écrit dans le message de news:eY7$Merci Beaucoup.
Où l'a tu mise ??? Je ne vois aucune pièce jointe ?
Je n'ai rien non plus sur mon email perso (Nospam en moins bien sur !:d)
Merci en tout cas de ton aide.
David.
Isabelle Prawitz wrote:J'avais oublié la case à cocher "Privé" et les heures de début et fin !
C'est fait !
Isa
"Isabelle Prawitz" a écrit dans le message de news:%En fait, je viens d'en faire une, qui prend tous les RDV/Réunions du calendrier dont le statut est différent de
"Libre",etqui crée d'après leurs données une tâche.
Je récupère le sujet (avec devant RDV/Réunion occupé/extérieur/provisoire), la date début, la date fin qui devient
l'échéance, le message, l'importance, et je rajoute RDV aux catégories existantes pour filtrer les tâches ainsi
rajoutées.Si ça t'intéresse, je la mets ici !
Isa
"david" a écrit dans le message de news:Merci.
Si c'est pas simple et pas facile a gerer, peut etre que je ferais mieux
de laisser tomber non ?
As tu une idée sur la moulinette ? COmpliquée a faire? Compliquée à
utiliser ?
Merci en tout cas.
(Bientot le week end, la fatigue va s'estomper?? :d )
Merci.