Un clic sur une date et hop ça génére automatiquement un rendez-vous dans Outlook, c'est possible ça ?
13 réponses
Jean Tiendeux
Bonjour,
J'ai un fichier Excel (2007) dans lequel je saisis des dates de rendez-vous
(format date + heure). Rendez-vous que je ressaisis dans Outlook (2007
aussi). Or je me disais qu'il serait pratique de créer une macro pour
cliquer sur ma date et générer ainsi un rendez-vous automatiquement
enregistrable dans Outlook ?...
En son temps, j'avais réussi avec votre aide à envoyer automatiquement par
mail mon fichier à la fermeture d'Excel, don je me dis que ça doit pas être
bien plus compliqué.
Cordialement, JT2.
Merci à Modeste pour ses réponses. Je vais essayer de compléter.
- Pourquoi ça m'empêche d'insérer du texte quand je double-clique dans une cellule ?
Voila, c'est parce que le double clic est neutralisé pour la macro. Donc, dans le code ci-dessous, j'ai limité le champ d'application de la macro à la colonne A. Les cellules des autres colonnes peuvent donc être modifiées.
- Peut-on définir une catégorie par défaut pour mon calendrier? de couleur rouge par exemple ? J'ai essayé via l'aide VBA d'Outlook mais pas moyen d'y arriver !
La macro ci-dessous applique la catégories rouge par défaut.
Ah ! Puisque vous avez été sympa : un aphorisme : heureux comme la rivière qui peut suivre son cours dans son lit...
Puisque tu parles de suivre des cours, je te livre celui-ci : "Se taire en classe, c'est respecter le sommeil des autres."
Bon voici la macro modifiée :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not IsDate(Target) Or Target.Value = "" Then Exit Sub If Target.Column > 1 Then Exit Sub Cancel = True If Not IsDate(Target) Or Target.Value = "" Then Exit Sub Dim OlApp As Object Dim NS As Object, ObjRDV As Object Set OlApp = CreateObject("Outlook.Application") Set NS = OlApp.GetNamespace("MAPI") Set ObjRDV = OlApp.CreateItem(olAppointmentItem) With ObjRDV .Subject = Target.Offset(, 1) .Body = Target.Offset(, 2) .Start = Target.Value .Duration = Target.Offset(, 3) .ReminderMinutesBeforeStart = Target.Offset(, 4) .ReminderSet = True 'activation du rappel .Categories = "Catégorie rouge" .Display 'mettre en commentaire après mise au point End With ObjRDV.Save End Sub
Daniel
Merci à Modeste pour ses réponses. Je vais essayer de compléter.
- Pourquoi ça m'empêche d'insérer du texte quand je double-clique dans une
cellule ?
Voila, c'est parce que le double clic est neutralisé pour la macro.
Donc, dans le code ci-dessous, j'ai limité le champ d'application de la
macro à la colonne A. Les cellules des autres colonnes peuvent donc
être modifiées.
- Peut-on définir une catégorie par défaut pour mon calendrier? de couleur
rouge par exemple ? J'ai essayé via l'aide VBA d'Outlook mais pas moyen d'y
arriver !
La macro ci-dessous applique la catégories rouge par défaut.
Ah ! Puisque vous avez été sympa : un aphorisme : heureux comme la rivière
qui peut suivre son cours dans son lit...
Puisque tu parles de suivre des cours, je te livre celui-ci :
"Se taire en classe, c'est respecter le sommeil des autres."
Bon voici la macro modifiée :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not IsDate(Target) Or Target.Value = "" Then Exit Sub
If Target.Column > 1 Then Exit Sub
Cancel = True
If Not IsDate(Target) Or Target.Value = "" Then Exit Sub
Dim OlApp As Object
Dim NS As Object, ObjRDV As Object
Set OlApp = CreateObject("Outlook.Application")
Set NS = OlApp.GetNamespace("MAPI")
Set ObjRDV = OlApp.CreateItem(olAppointmentItem)
With ObjRDV
.Subject = Target.Offset(, 1)
.Body = Target.Offset(, 2)
.Start = Target.Value
.Duration = Target.Offset(, 3)
.ReminderMinutesBeforeStart = Target.Offset(, 4)
.ReminderSet = True 'activation du rappel
.Categories = "Catégorie rouge"
.Display 'mettre en commentaire après mise au point
End With
ObjRDV.Save
End Sub
Merci à Modeste pour ses réponses. Je vais essayer de compléter.
- Pourquoi ça m'empêche d'insérer du texte quand je double-clique dans une cellule ?
Voila, c'est parce que le double clic est neutralisé pour la macro. Donc, dans le code ci-dessous, j'ai limité le champ d'application de la macro à la colonne A. Les cellules des autres colonnes peuvent donc être modifiées.
- Peut-on définir une catégorie par défaut pour mon calendrier? de couleur rouge par exemple ? J'ai essayé via l'aide VBA d'Outlook mais pas moyen d'y arriver !
La macro ci-dessous applique la catégories rouge par défaut.
Ah ! Puisque vous avez été sympa : un aphorisme : heureux comme la rivière qui peut suivre son cours dans son lit...
Puisque tu parles de suivre des cours, je te livre celui-ci : "Se taire en classe, c'est respecter le sommeil des autres."
Bon voici la macro modifiée :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not IsDate(Target) Or Target.Value = "" Then Exit Sub If Target.Column > 1 Then Exit Sub Cancel = True If Not IsDate(Target) Or Target.Value = "" Then Exit Sub Dim OlApp As Object Dim NS As Object, ObjRDV As Object Set OlApp = CreateObject("Outlook.Application") Set NS = OlApp.GetNamespace("MAPI") Set ObjRDV = OlApp.CreateItem(olAppointmentItem) With ObjRDV .Subject = Target.Offset(, 1) .Body = Target.Offset(, 2) .Start = Target.Value .Duration = Target.Offset(, 3) .ReminderMinutesBeforeStart = Target.Offset(, 4) .ReminderSet = True 'activation du rappel .Categories = "Catégorie rouge" .Display 'mettre en commentaire après mise au point End With ObjRDV.Save End Sub
Daniel
Jean Tiendeux
Encore merci. (Pour ceux qui l'utiliserait je crois qu'il faut pas revenir à la ligne ligne 1...) JT2.
"Daniel.C" a écrit dans le message de news: %
Merci à Modeste pour ses réponses. Je vais essayer de compléter.
- Pourquoi ça m'empêche d'insérer du texte quand je double-clique dans une cellule ?
Voila, c'est parce que le double clic est neutralisé pour la macro. Donc, dans le code ci-dessous, j'ai limité le champ d'application de la macro à la colonne A. Les cellules des autres colonnes peuvent donc être modifiées.
- Peut-on définir une catégorie par défaut pour mon calendrier? de couleur rouge par exemple ? J'ai essayé via l'aide VBA d'Outlook mais pas moyen d'y arriver !
La macro ci-dessous applique la catégories rouge par défaut.
Ah ! Puisque vous avez été sympa : un aphorisme : heureux comme la rivière qui peut suivre son cours dans son lit...
Puisque tu parles de suivre des cours, je te livre celui-ci : "Se taire en classe, c'est respecter le sommeil des autres."
Bon voici la macro modifiée :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not IsDate(Target) Or Target.Value = "" Then Exit Sub If Target.Column > 1 Then Exit Sub Cancel = True If Not IsDate(Target) Or Target.Value = "" Then Exit Sub Dim OlApp As Object Dim NS As Object, ObjRDV As Object Set OlApp = CreateObject("Outlook.Application") Set NS = OlApp.GetNamespace("MAPI") Set ObjRDV = OlApp.CreateItem(olAppointmentItem) With ObjRDV .Subject = Target.Offset(, 1) .Body = Target.Offset(, 2) .Start = Target.Value .Duration = Target.Offset(, 3) .ReminderMinutesBeforeStart = Target.Offset(, 4) .ReminderSet = True 'activation du rappel .Categories = "Catégorie rouge" .Display 'mettre en commentaire après mise au point End With ObjRDV.Save End Sub
Daniel
Encore merci. (Pour ceux qui l'utiliserait je crois qu'il faut pas revenir à
la ligne ligne 1...)
JT2.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23CnmYfuhJHA.4596@TK2MSFTNGP06.phx.gbl...
Merci à Modeste pour ses réponses. Je vais essayer de compléter.
- Pourquoi ça m'empêche d'insérer du texte quand je double-clique dans
une cellule ?
Voila, c'est parce que le double clic est neutralisé pour la macro. Donc,
dans le code ci-dessous, j'ai limité le champ d'application de la macro à
la colonne A. Les cellules des autres colonnes peuvent donc être
modifiées.
- Peut-on définir une catégorie par défaut pour mon calendrier? de
couleur rouge par exemple ? J'ai essayé via l'aide VBA d'Outlook mais pas
moyen d'y arriver !
La macro ci-dessous applique la catégories rouge par défaut.
Ah ! Puisque vous avez été sympa : un aphorisme : heureux comme la
rivière qui peut suivre son cours dans son lit...
Puisque tu parles de suivre des cours, je te livre celui-ci :
"Se taire en classe, c'est respecter le sommeil des autres."
Bon voici la macro modifiée :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not IsDate(Target) Or Target.Value = "" Then Exit Sub
If Target.Column > 1 Then Exit Sub
Cancel = True
If Not IsDate(Target) Or Target.Value = "" Then Exit Sub
Dim OlApp As Object
Dim NS As Object, ObjRDV As Object
Set OlApp = CreateObject("Outlook.Application")
Set NS = OlApp.GetNamespace("MAPI")
Set ObjRDV = OlApp.CreateItem(olAppointmentItem)
With ObjRDV
.Subject = Target.Offset(, 1)
.Body = Target.Offset(, 2)
.Start = Target.Value
.Duration = Target.Offset(, 3)
.ReminderMinutesBeforeStart = Target.Offset(, 4)
.ReminderSet = True 'activation du rappel
.Categories = "Catégorie rouge"
.Display 'mettre en commentaire après mise au point
End With
ObjRDV.Save
End Sub
Encore merci. (Pour ceux qui l'utiliserait je crois qu'il faut pas revenir à la ligne ligne 1...) JT2.
"Daniel.C" a écrit dans le message de news: %
Merci à Modeste pour ses réponses. Je vais essayer de compléter.
- Pourquoi ça m'empêche d'insérer du texte quand je double-clique dans une cellule ?
Voila, c'est parce que le double clic est neutralisé pour la macro. Donc, dans le code ci-dessous, j'ai limité le champ d'application de la macro à la colonne A. Les cellules des autres colonnes peuvent donc être modifiées.
- Peut-on définir une catégorie par défaut pour mon calendrier? de couleur rouge par exemple ? J'ai essayé via l'aide VBA d'Outlook mais pas moyen d'y arriver !
La macro ci-dessous applique la catégories rouge par défaut.
Ah ! Puisque vous avez été sympa : un aphorisme : heureux comme la rivière qui peut suivre son cours dans son lit...
Puisque tu parles de suivre des cours, je te livre celui-ci : "Se taire en classe, c'est respecter le sommeil des autres."
Bon voici la macro modifiée :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not IsDate(Target) Or Target.Value = "" Then Exit Sub If Target.Column > 1 Then Exit Sub Cancel = True If Not IsDate(Target) Or Target.Value = "" Then Exit Sub Dim OlApp As Object Dim NS As Object, ObjRDV As Object Set OlApp = CreateObject("Outlook.Application") Set NS = OlApp.GetNamespace("MAPI") Set ObjRDV = OlApp.CreateItem(olAppointmentItem) With ObjRDV .Subject = Target.Offset(, 1) .Body = Target.Offset(, 2) .Start = Target.Value .Duration = Target.Offset(, 3) .ReminderMinutesBeforeStart = Target.Offset(, 4) .ReminderSet = True 'activation du rappel .Categories = "Catégorie rouge" .Display 'mettre en commentaire après mise au point End With ObjRDV.Save End Sub
Daniel
Daniel.C
Bonjour. Qu'est-ce qui se passe si on revient à la ligne 1 ? "normalement", la macro est inactive au dessus de la ligne 5. Daniel
Encore merci. (Pour ceux qui l'utiliserait je crois qu'il faut pas revenir à la ligne ligne 1...) JT2.
"Daniel.C" a écrit dans le message de news: %
Merci à Modeste pour ses réponses. Je vais essayer de compléter.
- Pourquoi ça m'empêche d'insérer du texte quand je double-clique dans une cellule ?
Voila, c'est parce que le double clic est neutralisé pour la macro. Donc, dans le code ci-dessous, j'ai limité le champ d'application de la macro à la colonne A. Les cellules des autres colonnes peuvent donc être modifiées.
- Peut-on définir une catégorie par défaut pour mon calendrier? de couleur rouge par exemple ? J'ai essayé via l'aide VBA d'Outlook mais pas moyen d'y arriver !
La macro ci-dessous applique la catégories rouge par défaut.
Ah ! Puisque vous avez été sympa : un aphorisme : heureux comme la rivière qui peut suivre son cours dans son lit...
Puisque tu parles de suivre des cours, je te livre celui-ci : "Se taire en classe, c'est respecter le sommeil des autres."
Bon voici la macro modifiée :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not IsDate(Target) Or Target.Value = "" Then Exit Sub If Target.Column > 1 Then Exit Sub Cancel = True If Not IsDate(Target) Or Target.Value = "" Then Exit Sub Dim OlApp As Object Dim NS As Object, ObjRDV As Object Set OlApp = CreateObject("Outlook.Application") Set NS = OlApp.GetNamespace("MAPI") Set ObjRDV = OlApp.CreateItem(olAppointmentItem) With ObjRDV .Subject = Target.Offset(, 1) .Body = Target.Offset(, 2) .Start = Target.Value .Duration = Target.Offset(, 3) .ReminderMinutesBeforeStart = Target.Offset(, 4) .ReminderSet = True 'activation du rappel .Categories = "Catégorie rouge" .Display 'mettre en commentaire après mise au point End With ObjRDV.Save End Sub
Daniel
Bonjour.
Qu'est-ce qui se passe si on revient à la ligne 1 ? "normalement", la
macro est inactive au dessus de la ligne 5.
Daniel
Encore merci. (Pour ceux qui l'utiliserait je crois qu'il faut pas revenir à
la ligne ligne 1...)
JT2.
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23CnmYfuhJHA.4596@TK2MSFTNGP06.phx.gbl...
Merci à Modeste pour ses réponses. Je vais essayer de compléter.
- Pourquoi ça m'empêche d'insérer du texte quand je double-clique dans une
cellule ?
Voila, c'est parce que le double clic est neutralisé pour la macro. Donc,
dans le code ci-dessous, j'ai limité le champ d'application de la macro à
la colonne A. Les cellules des autres colonnes peuvent donc être modifiées.
- Peut-on définir une catégorie par défaut pour mon calendrier? de couleur
rouge par exemple ? J'ai essayé via l'aide VBA d'Outlook mais pas moyen
d'y arriver !
La macro ci-dessous applique la catégories rouge par défaut.
Ah ! Puisque vous avez été sympa : un aphorisme : heureux comme la rivière
qui peut suivre son cours dans son lit...
Puisque tu parles de suivre des cours, je te livre celui-ci :
"Se taire en classe, c'est respecter le sommeil des autres."
Bon voici la macro modifiée :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not IsDate(Target) Or Target.Value = "" Then Exit Sub
If Target.Column > 1 Then Exit Sub
Cancel = True
If Not IsDate(Target) Or Target.Value = "" Then Exit Sub
Dim OlApp As Object
Dim NS As Object, ObjRDV As Object
Set OlApp = CreateObject("Outlook.Application")
Set NS = OlApp.GetNamespace("MAPI")
Set ObjRDV = OlApp.CreateItem(olAppointmentItem)
With ObjRDV
.Subject = Target.Offset(, 1)
.Body = Target.Offset(, 2)
.Start = Target.Value
.Duration = Target.Offset(, 3)
.ReminderMinutesBeforeStart = Target.Offset(, 4)
.ReminderSet = True 'activation du rappel
.Categories = "Catégorie rouge"
.Display 'mettre en commentaire après mise au point
End With
ObjRDV.Save
End Sub
Bonjour. Qu'est-ce qui se passe si on revient à la ligne 1 ? "normalement", la macro est inactive au dessus de la ligne 5. Daniel
Encore merci. (Pour ceux qui l'utiliserait je crois qu'il faut pas revenir à la ligne ligne 1...) JT2.
"Daniel.C" a écrit dans le message de news: %
Merci à Modeste pour ses réponses. Je vais essayer de compléter.
- Pourquoi ça m'empêche d'insérer du texte quand je double-clique dans une cellule ?
Voila, c'est parce que le double clic est neutralisé pour la macro. Donc, dans le code ci-dessous, j'ai limité le champ d'application de la macro à la colonne A. Les cellules des autres colonnes peuvent donc être modifiées.
- Peut-on définir une catégorie par défaut pour mon calendrier? de couleur rouge par exemple ? J'ai essayé via l'aide VBA d'Outlook mais pas moyen d'y arriver !
La macro ci-dessous applique la catégories rouge par défaut.
Ah ! Puisque vous avez été sympa : un aphorisme : heureux comme la rivière qui peut suivre son cours dans son lit...
Puisque tu parles de suivre des cours, je te livre celui-ci : "Se taire en classe, c'est respecter le sommeil des autres."
Bon voici la macro modifiée :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not IsDate(Target) Or Target.Value = "" Then Exit Sub If Target.Column > 1 Then Exit Sub Cancel = True If Not IsDate(Target) Or Target.Value = "" Then Exit Sub Dim OlApp As Object Dim NS As Object, ObjRDV As Object Set OlApp = CreateObject("Outlook.Application") Set NS = OlApp.GetNamespace("MAPI") Set ObjRDV = OlApp.CreateItem(olAppointmentItem) With ObjRDV .Subject = Target.Offset(, 1) .Body = Target.Offset(, 2) .Start = Target.Value .Duration = Target.Offset(, 3) .ReminderMinutesBeforeStart = Target.Offset(, 4) .ReminderSet = True 'activation du rappel .Categories = "Catégorie rouge" .Display 'mettre en commentaire après mise au point End With ObjRDV.Save End Sub
