Interfaçage Excel vers Outlook

Résolu
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   -  
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Contributeur Dernière intervention   729
 
Bonjour,

Voici un exemple:

http://www.cjoint.com/c/ELzi3uVpUpQ
0
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   16
 
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 509 Date d'inscription   Statut Membre Dernière intervention   16
 
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 509 Date d'inscription   Statut Membre Dernière intervention   16
 
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   Statut Contributeur Dernière intervention   4 725
 
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 509 Date d'inscription   Statut Membre Dernière intervention   16
 
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