Discussion :

[GADENSEB]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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



Bonne soirée

Seb

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je crois que c'est pas loin !!!!

[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.