Comment indiquer la colonne "heure" dans VBA ?
Résolu
Moto84
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
Moto84 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Moto84 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche depuis hier mais je ne trouve pas... En fait je voudrais créer des rdv dans Outlook via une macro à partir d'un fichier excel. Le code que j'ai trouvé ci-dessous (je remercie la personne qui l'a écrit mais je ne sais plus qui c'est tellement j'ai parcouru de sites !) fonctionne parfaitement MAIS les rdv se créent systématiquement à 0h alors que je voudrais préciser 9h ou 11h par exemple.
Qu'est-ce que je dois rajouter dans le code ci-dessous svp ?
La date se trouve en colonne B et l'heure de début en colonne C.
Soit je laisse la "Duration" ou je peux rajouter une colonne pour avoir "une heure début" et "une heure fin" si besoin
Un grand merci,
Thierry
Extrait du code
DateRdv = Range("B" & Lig)
Set OutAppt = OutObj.CreateItem(1)
With OutAppt
.Subject = Sheets("Suivi").Range("A" & Lig)
.Start = DateRdv
.Duration = Sheets("Suivi").Range("E" & Lig)
.ReminderSet = True
.Save
Extrait de mon fichier source
Objet Date Heure début Durée
ppp 24/04/2018 08:00 60
dre 25/04/2018 11:00 30
tgb 23/04/2018 14:00 15
Je cherche depuis hier mais je ne trouve pas... En fait je voudrais créer des rdv dans Outlook via une macro à partir d'un fichier excel. Le code que j'ai trouvé ci-dessous (je remercie la personne qui l'a écrit mais je ne sais plus qui c'est tellement j'ai parcouru de sites !) fonctionne parfaitement MAIS les rdv se créent systématiquement à 0h alors que je voudrais préciser 9h ou 11h par exemple.
Qu'est-ce que je dois rajouter dans le code ci-dessous svp ?
La date se trouve en colonne B et l'heure de début en colonne C.
Soit je laisse la "Duration" ou je peux rajouter une colonne pour avoir "une heure début" et "une heure fin" si besoin
Un grand merci,
Thierry
Extrait du code
DateRdv = Range("B" & Lig)
Set OutAppt = OutObj.CreateItem(1)
With OutAppt
.Subject = Sheets("Suivi").Range("A" & Lig)
.Start = DateRdv
.Duration = Sheets("Suivi").Range("E" & Lig)
.ReminderSet = True
.Save
Extrait de mon fichier source
Objet Date Heure début Durée
ppp 24/04/2018 08:00 60
dre 25/04/2018 11:00 30
tgb 23/04/2018 14:00 15
A voir également:
- Comment indiquer la colonne "heure" dans VBA ?
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
- Figer colonne excel - Guide
