Créer un rdv Outlook avec date variable

Version imprimable

1 pièce(s) jointe(s)

Hello
Petit complément à la discussion : http://www.developpez.net/forums/d14...r-rdv-outlook/

je voudrais que ma date du rdv soit modulable

J'essaye un mais cela ne passe pas .....

Tu aurais une idée géniale comme hier ????

Code:

.Start = "#" & Cells(I, 6).Value & " 2:30:00 PM#"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub NouveauRDV_Calendrier()
'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
Dim I As Integer
Dim datemod As Variant
With Worksheets("RDV OUTLOOK")
 
j = .Range("A2").End(xlDown).Row
 
 
For I = 2 To j
Set Rdv = OkApp.CreateItem(olAppointmentItem)
If .Cells(I, 8) = "" Then
.Cells(I, "f") = Format(.Cells(I, "e"), "mm-dd-yyyy")
 
 
 
With Rdv
    .MeetingStatus = olMeeting
    .Subject = "DOSSIER - " & Cells(I, 1).Value & " - " & Cells(I, 2).Value & " - " & Cells(I, 3).Value 'Sujet de la tâche
    .Body = Cells(I, 4).Value 'Corps de la Relance
    .Location = "Chez wam"
    '.Start = #1/5/2015 2:30:00 PM#         ' Attention : format mois/jours/année
    .Start = "#" & Cells(I, 6).Value & " 2:30:00 PM#"
    .Duration = 30 'minutes
    .Categories = "EMPLOI"
    .Save
End With
 
 
 
 
 .Cells(I, 8) = "OUI"
Set OkApp = Nothing
End If
Next I
 
 
End With
End Sub

06/01/2015, 20h16
SfJ5Rpw8

Bonsoir,
Il manque encore un . devant ton Cell ...

ensuite que contient ta cellule ? (I, 6)

si elle contient la date à traiter, il te faut formater celle-ci au regard de ta discussion sous la forme mois/jour/année ?

voir utilisation de la fonction Format
06/01/2015, 20h27
GADENSEB

Hello

Merci d'avoir crée ce nouveau post !!! ;-)
C'est mieux de séparer les sujets en effet....

(I, 6) contient la date (modifiable de part la boucle)

je la format en date avec

Code:

.Cells(I, "f") = Format(.Cells(I, "e"), "mm-dd-yyyy")

--> La colonne E devient une date américaine en colonne F

--> cela réglé

Mais le soucis est que le formalisme imposé est :

Code:

#1/5/2015 2:30:00 PM#

Je vois pas comment générer une date comme cela .....

Bonne soirée

Seb
06/01/2015, 20h40
SfJ5Rpw8

Attention il ne faut pas confondre la date au sens excel ( voir : Comprendre et gérer les dates sous Excel et en VBA ) ... et une chaîne de caractère représentant ta date ..

utilise format directement en VBA ne passe pas par une cellule intermédiaire inutile...

ton code start devrait être du genre (j'ai pas d'excel sous la main pour tester..)

Code:

.Start = "#" & Format(.Cells(I, "e"), "m/d/yyyy") & " 2:30:00 PM#"
06/01/2015, 21h14
GADENSEB

J'ai encore du mal avec les dates...
Je vais lire ton adresse qui m'a l'air super complet ;-)

J'ai testé ton code, il me renvoie une erreur 438 propriété ou méthode non gérée par cet objet sur la ligne, ton code!!!

Code:

.Start = "#" & Format(.Cells(I, "e"), "m/d/yyyy") & " 2:30:00 PM#"

Je crois que c'est pas loin !!!!
06/01/2015, 21h22
clementmarcotte

C'est peut-être pas loin, mais c'est pas compliqué de mettre un espion sur "#" & Format(.Cells(I, "e"), "m/d/yyyy") & " 2:30:00 PM#" et de regarder dans la fenêtre espions pour voir le résultat. C'est décourageant de subir tes questions. Aucun effort, aucune débouillardise.
06/01/2015, 21h57
SfJ5Rpw8

J'avais pas vu cela semble à un problème d'imbrication de With ...

sort le calcul de ta chaine start,en passant par une variable chaine intermédiaire par exemple, de ton With Rdv...
06/01/2015, 22h06
GADENSEB

@ clementmarcotte :
tu as raison je me suis laissé porté sur ce problème ....mea-culpa

En ce qui concerne le volet espion, j'avoue ne l'avoir jamais utilisé

aprés test la valeur

Code:

"#" & Format(.Cells(I, "e"), "m/d/yyyy") & " 2:30:00 PM#"

renvoie :
expression non définie dans le contexte / empty
Donc si je comprends bien, il ne trouve pas de valeur à renvoyer --> donc bug !

@ bbil

C'est ce que je teste actuellement !!!

Code:

depart = Format(Cells(I, "5"), "m/d/yyyy")

et

Code:

.Start = depart & " 2:30:00 PM"

Je teste et je revient vers vous dans la soirée

Bon j'ai remanier le code

en me basant sur ce site

mais je peux le sortir de mon with .... sinon comment intégrer la boucle dans

Code:

depart = Format(Cells(I, 5), "m/d/yyyy")

ou alors je double ma boucle mais c'est pas trés optimisé ......

Voila le code final mais plus rien ne se passe....
il n'y a plus d'action en direction Outlook..... chelou

Le contrôle pas à pas F8 ne renvoi aucunes erreurs .....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub NouveauRDV_Calendrier()
'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
Dim I As Integer
Dim j As Integer
Dim depart As Date
 
With Worksheets("RDV OUTLOOK")
 
j = .Range("A2").End(xlDown).Row
 
 
For I = 2 To j
Set Rdv = OkApp.CreateItem(olAppointmentItem)
If .Cells(I, 8) = "" Then
.Cells(I, "f") = Format(.Cells(I, "e"), "mm-dd-yyyy")
 
 
depart = Format(Cells(I, 5), "m/d/yyyy")
 
 
With Rdv
    .MeetingStatus = olMeeting
    .Subject = "DOSSIER - " & Cells(I, 1).Value & " - " & Cells(I, 2).Value & " - " & Cells(I, 3).Value 'Sujet de la tâche
    .Body = Cells(I, 4).Value 'Corps de la Relance
    .Location = "Chez wam"
    .Start = depart & " 2:30:00"
    .Duration = 30 'minutes
    .Categories = "EMPLOI"
    .Save
End With
 
 
 
 
 .Cells(I, 8) = "OUI"
Set OkApp = Nothing
End If
Next I
 
 
End With
End Su

06/01/2015, 22h34
SfJ5Rpw8

Pourquoi ?

Code:

Dim depart As Date

je t'ai parlé de chaîne pas de date !

supprime carrément ton Whit RDV ... en remplaçant les points "." concernées par "Rdv." par exemple Rdv.Start ...

il manque toujours des points devant tes Cells ! tu ne dois JAMAIS utiliser Cells sans préciser la feuille concernée ..

ou sont passé les "#" ?

1 pièce(s) jointe(s)

Hello,
désolé je t'ais mal compris !

J'ai déplacé la macro dans la feuille et plus dans un module
les deux with ont été supprimé et j'ai rajouté les rdv.

du coup j'ai fait un

Code:

1
2
3
Dim depart As String
-------------------------------------------
depart = "#" & .Cells(I, "f") & " 2:30:00 PM#"

Ce qui est bizarre c'est que
Rdv.Start me renvoie (volet espion) la valeur 07/01/2015 10:30:00 (ce qui est ok) mais il ya une incompatibilité de type 13 "incompatibilité de type"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub NouveauRDV_Calendrier()
'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
Dim I As Integer
Dim depart As String
 
With Worksheets("RDV OUTLOOK")
 
j = .Range("A2").End(xlDown).Row
 
 
For I = 2 To j
 
Set Rdv = OkApp.CreateItem(olAppointmentItem)
 
 
.Cells(I, "f") = Format(.Cells(I, "e"), "m/d/yyyy")
 
depart = "#" & .Cells(I, "f") & " 2:30:00 PM#"
 
If .Cells(I, 8) = "" Then
 
    Rdv.MeetingStatus = olMeeting
    Rdv.Subject = "DOSSIER - " & .Cells(I, 1).Value & " - " & .Cells(I, 2).Value & " - " & .Cells(I, 3).Value 'Sujet de la tâche
    Rdv.Body = .Cells(I, 4).Value 'Corps de la Relance
    Rdv.Location = "Chez wam"
    'Rdv.Start = #1/5/2015 2:30:00 PM#         ' Attention : format mois/jours/année
    Rdv.Start = depart         ' Attention : format mois/jours/année
    Rdv.Duration = 30 'minutes
    Rdv.Categories = "EMPLOI"
    Rdv.Save
 
 
 
 
 .Cells(I, 8) = "OUI"
Set OkApp = Nothing
End If
Next I
 
 
End With
End Sub

07/01/2015, 12h47
SfJ5Rpw8

Bonjour,
Pourquoi as tu supprimé Format !!!
07/01/2015, 12h54
GADENSEB

Ben en fait je l'ai pas réellement supprimé

Je l'utilise en colonne

Code:

.Cells(I, "f") = Format(.Cells(I, "e"), "m/d/yyyy")

et je fait référence à F

Code:

depart = "#" & .Cells(I, "f") & " 2:30:00 PM#"

En 2 étape pas forcement nécessaire je reconnais
07/01/2015, 14h16
GADENSEB

1 pièce(s) jointe(s)

Petit Rajout :

Ce que je trouve bizarre c'est que l'a fenêtre espion renvoie des valeurs différentes
c'est chelou

Pièce jointe 165572
07/01/2015, 15h56
SfJ5Rpw8

Bonjour,

Il n'y as rien de bizarre , je t'ais écris plus haut de ne pas passer par une cellule excel intermédiaire mais tu veux absolument le faire ...

si tu n'arrive pas à générer ta date sous forme de chaîne envoi directement la valeur de ta cellule :

Code:

Rdv.Start = .Cells(I, "e")

1 pièce(s) jointe(s)

Effectivement cela marche nikel avec :

Code:

Rdv.Start = .Cells(I, "e") & " 14:00"

c'est vrai que comme je ne suis pas à l'aise avec les dates..... je fais n'importe quoi

Voici le code final

Un grand merci pour la patience !!!!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub NouveauRDV_Calendrier()
'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
Dim I As Integer
 
 
With Worksheets("RDV OUTLOOK")
 
j = .Range("A2").End(xlDown).Row
 
 
For I = 2 To j
 
Set Rdv = OkApp.CreateItem(olAppointmentItem)
 
 
.Cells(I, "f") = Format(.Cells(I, "e"), "m/d/yyyy")
 
 
If .Cells(I, 8) = "" Then
 
    Rdv.MeetingStatus = olMeeting
    Rdv.Subject = "DOSSIER - " & .Cells(I, 1).Value & " - " & .Cells(I, 2).Value & " - " & .Cells(I, 3).Value 'Sujet de la tâche
    Rdv.Body = .Cells(I, 4).Value 'Corps de la Relance
    Rdv.Location = "Chez wam"
    Rdv.Start = .Cells(I, "e") & " 14:00"
    Rdv.Duration = 30 'minutes
    Rdv.Categories = "EMPLOI"
    Rdv.Save
 
 
 
 
 .Cells(I, 8) = "OUI"
Set OkApp = Nothing
End If
Next I
 
 
End With
End Sub

07/01/2015, 16h52
SfJ5Rpw8

Citation:

Envoyé par GADENSEB

Effectivement cela marche nikel avec :

Code:

Rdv.Start = .Cells(I, "e") & " 14:00"

c'est vrai que comme je ne suis pas à l'aise avec les dates..... je fais n'importe quoi

...

je confirme, je comprends pas pourquoi tu est venu rajoute ton & "14:00" ... , ! .Cells(I,"e") est censé être une Date ( type Date...) pourquoi viens tu m'y coller une chaîne de caractère avec ton "14:00" ...

mais si cela marche... c'est que VBA est gentil avec toi ;)