Discussion :

[frank1365]

Bonjour!!
la question à peu être déjà étée posée, mais je me demandais de quelle facon je peux prendre des informations ( la date, avec la description et le lieu) pour en faire un tâche avec rappel dans outlook?

si vous avez besoin j'ai un fichier test de déjà monter.


Merci d'avance

[Daniel.C]

Bonjour,

Voici un exemple brut de fonderie; à toi de l'adapter à tes besoins (la référence "Microsoft Outlook n.n Object Library" doit être cochée) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub AjoutTache()
Dim olApp As New Outlook.Application
Dim ObjTask As TaskItem, c As Range
Dim Rg As Range
Set olApp = Outlook.Application
With Worksheets("Feuil1")
    Set Rg = .Range("E2:E" & .Range("A65536").End(xlUp).Row)
End With
For Each c In Rg
    Set ObjTask = olApp.CreateItem(olTaskItem)
    With ObjTask
        .Subject = "Amélie travaille aujourd'hui et cette nuit."
        .ReminderTime = Sheets("Feuil1").Cells(c.Row, 1) + TimeValue("08:00:00")
        .ReminderSet = True
        .Close olSave
    End With
    Next c
Set ObjTask = Nothing
Set olApp = Nothing
End Sub

[frank1365]

Merci alors si j'ai bien compris je fait une macro avec ce code?
j'ai essayer mais il m'affiche qu'il y a une erreure de compilation, je suppose que ce n,est pas normale?

j'ai essayer de joindre mon ficher exemple avec le message

et je vais continuer à essayer de travailler la dessus cette apres-midi et ce soir.

[Daniel.C]

Dans la fenêtre de l'éditeur VB, clique sur Outils, Références; est-ce que tu as coché la référence :
"Microsoft Outlook n.n Object Library"
Si oui, quelle ligne est surlignée en jaune ?

[frank1365]

j'avoue mon erreurre oui ma fois stupide de ne pas avoir cocher outlook mais une fois cette action faite, je réesaie immédiatement.

Bravo Francois

ca fonctionne mais maintenant je suppose que je dois remplacer les informations par les ceux contenus dans mes cellules afin que ce soit ceux la qui apparaissent dans le rappel?

deuxieme question, est-ce que c'est normale que la tache apparaissent en double?

Merci beaucoup, tu viens de me sauver au moins des heures de travail

autre question qui peut paraitre inutile mais comment faire en sorte que le "Microsoft Outlook n.n Object Library" reste toujours cocher?

[Daniel.C]

Le fait que ce soit coché est enregistré avec ton classeur.