Interfaçage Excel vers Outlook

Résolu
touroul Messages postés 518 Statut Membre -  
touroul Messages postés 518 Statut Membre -
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 8437 Statut Contributeur 729
 
Bonjour,

Voici un exemple:

http://www.cjoint.com/c/ELzi3uVpUpQ
0
touroul Messages postés 518 Statut Membre 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 518 Statut Membre 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 518 Statut Membre 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 15478 Statut Contributeur 4 726
 
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 518 Statut Membre 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