Interfaçage Excel vers Outlook

Résolu/Fermé
touroul Messages postés 470 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 17 juin 2024 - 24 déc. 2015 à 17:42
touroul Messages postés 470 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 17 juin 2024 - 26 déc. 2015 à 10:37
Bonjour le forum !

Je rame pas mal pour une nouvelle fonction qui permettrait de créer automatiquement des Rendez-vous Outlook en partant d'un fichier Excel.

Dans Excel, j'ai créé toutes les rubriques utiles, elles correspondent aux champs d'un Rendez-vous Outlook.

J'ai trouvé des macros VB, mais je ne comprends pas pourquoi elles me créent un mail plutôt qu'un RV. J'ai également du mal à indiquer à la macro où elle doit récupérer les infos.

Je mets les macros dans un module.

Voici mon fichier exemple : https://www.cjoint.com/c/ELyqQn5Lbyz

Par avance merci pour vos idées et votre aide !

A voir également:

3 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
25 déc. 2015 à 09:56
Bonjour,

Voici un exemple:

http://www.cjoint.com/c/ELzi3uVpUpQ
0
touroul Messages postés 470 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 17 juin 2024 16
Modifié par touroul le 25/12/2015 à 22:08
Bonjour Le Pivert

Merci bien pour ton aide.
J'ai passé une bonne partie de la journée sur ton fichier, que j'ai adapté.
Cela fonctionne plutôt bien.

Mais je bloque pour préremplir mon UF en fonction du contenu de mon tableau, selon la ligne active.
J'en suis là :
Textdate.Value = ActiveCell.Offset(0, 1).Value

Mais je voudrais :
Textdate.Value = ActiveCell.Column"G".Value
(valeur de la cellule de la colonne G de la ligne active.

D'avance merci pour ce nouveau coup de pouce !
0
touroul Messages postés 470 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 17 juin 2024 16
25 déc. 2015 à 23:43
Edit : résolu en commençant la macro par :
Range("B" & ActiveCell.Row).Select
A plus j'aurais d'autres questions ...
merci !
0
touroul Messages postés 470 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 17 juin 2024 16
26 déc. 2015 à 09:29
Salut

Dans le fichier fourni par Le Pivert, pour info il y a une commande manquante : en effet, sans elle, les rappels de RV Outlook ne se fixent pas. Il faut donc ajouter :
.ReminderMinutesBeforeStart = rappel '60
.ReminderSet = True


Par contre je suis toujours intéressé par la commande permettant de récupérer la cellule de la colonne G de la ligne active :
Textdate.Value = ActiveCell.Column"G".Value
Si quelqu'un a la bonne synthaxe, merci !
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 700
26 déc. 2015 à 09:35
Bonjour,

Pour la syntaxe, ce pourrait être :
Textdate.Value = cells(ActiveCell.row,"G").Value 


Bon Noël à toi et ta famille.
0
touroul Messages postés 470 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 17 juin 2024 16
26 déc. 2015 à 10:37
Salut G !

Bon Noël à toi et aux tiens aussi !
Et merci pour la syntaxe, j'avais essayé ça, mais en mettant le "G" avant le ActiveCell !

Au plaisir de te retrouver ici !
0