Discussion :

[Alainwinbel]

Bonjour,

Je cale sur le fait que dans mon VBA je n'arrive pas à importer les dates et heures de début et de fin de RDV.
Jusqu' a présent je n'arrive à mettre que la date OU l'heure, jamais les deux en même temps.
Si je met la date l'heure reste "00:00"
Si je met les deux, la date est erronée "30-12-1899"
Pourriez vous m'aider
D'avance merci


Sub Envoi()
' Ajouter un nouveau rendez-vous.
Dim ObjOl As Object, ObjItem As Object
Dim Lig As Long, Sujet As String, Détail As String
Dim DebDate As String, DebHour As String, FinDate As String, FinHour As String, StrStamp As String
Dim Rappel As Single
Dim xinspect As Object


Const wdPASTERTF As Long = 1 'CODE AJOUTE



' Initalisation
DebDate = Worksheets("Mail").Range("F9").Value
DebHour = Worksheets("Mail").Range("I9").Value
FinDate = Worksheets("Mail").Range("F11").Value
FinHour = Worksheets("Mail").Range("I11").Value

' Créer l'instance OUTLOOK
Set ObjOl = CreateObject("outlook.application")
' Créer l'instance pour le RDV
Set ObjItem = ObjOl.CreateItem(olAppointmentItem)
' Si tout est OK, on créé un RDV
With ObjItem
.Display ' Pour avoir la signature
.BodyFormat = olFormatHTML
'ActiveWorkbook.EnvelopeVisible = True
.Start = DebDate
.Start = DebHour
.End = FinDate
.End = FinHour
.Location = Worksheets("Mail").Range("F3").Value
'.ReminderMinutesBeforeStart = 480
.ReminderSet = True
.Subject = "TESTTESTTESTTESTEST" & " " & Worksheets("Mail").Range("F7").Value & " le " & Worksheets("Mail").Range("F9").Value
.MeetingStatus = olMeeting
' Adresse destiataire 1
.RequiredAttendees = "test@outlook.com"
' participants optionnel à la réunion
.OptionalAttendees = "" '("T_Mail").Range("A1").Value


Feuil2.Range("c2:l23").Copy 'CODE AJOUTE
.GetInspector.WordEditor.Windows(1).Selection.PasteAndFormat wdPASTERTF 'CODE AJOUTE


End With
' Libérez la variable objet Outlook.
Set ObjOl = Nothing: Set ObjItem = Nothing
Sheets("ENCODAGE").Select
Application.CutCopyMode = False 'CODE AJOUTE VIDE LE PRESSE PAPIER

[hyperion13]

Salut
Pour info

Code :

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

.Start = Worksheets("Mail").Range("F9").Value + Worksheets("Mail").Range("I9").Value

et probablement utiliser le format DateUS