BTS IG Informatique de Gestion

Newbiiiie Sexe: Messages: 12 Localisation: Val d'Oise (95)

Bonjour à tous
je suis en stage et je dois faire un programme en VBA sous outlook 2003
qui permettrait dès lors que l'on est dans le calendrier de choisir la catégorie d'évènement à afficher sur une page et créer une procédure qui permette d'imprimer cette page.
J'ai beaucoup de mal en VBA mais je vous envoi ce que j'ai fait et si vous pouvez dites moi ce qui ne va pas merci beaucoup de votre aide.
Biz à tous Wink

++

Voici mon script:

Private Function categories_Click()

'1.declaration des variables
Dim categorie As String
Dim fermer As String

'2.Boite de dialogue "saisir une categorie"
catégorie = InputBox("Choix catégorie", "saisissez une catégorie")

'3.Test categorie = "*"

If catégorie.Text = "*" Then
MsgBox (" Voici la liste des évènements de cette catégorie ")
'4.Recherche de la categorie désirée
catégorie.Text = calendrier.catégories.values
End If
End Function
'5. Imprimer la liste
'
Sub cmdprintlist()
fdrCalendar As Outlook.MAPIFolder
Set objApplication = Application
Set objNameSpace = objApplication.GetNamespace("MAPI")
Set fdrCalendar = objNameSpace.GetDefaultFolder(olFolderCalendar)
End Sub

Else

'6.Test si categorie =""

If catégorie.Text = "" Then
MsgBox "Erreur ", vbCritical, "alerte"
Exit Sub
End If

End Sub
End If

'7.Quitter le programme
fermer = MsgBox(" Voulez-vous quitter? ", vbYesNo)
If fermer = vbYes Then
ThisOutlookSession.Close
End If
End Sub
End If
End Sub

Modérateur Sexe: Messages: 1189 Localisation: paris

désolé, mais je n'ai pas très bien compris ce que tu veux faire.

Tu veux récupérer tout les evenements d'un même type (ex: réunion) et les imprimer?

Newbiiiie Sexe: Messages: 12 Localisation: Val d'Oise (95)

oui c bien ça mais j'y arrive pas g été sur un site pour m'aider mais bon jsui une très nulle en developpement dc :s...

Newbiiiie Sexe: Messages: 12 Localisation: Val d'Oise (95)

Voici l'adresse:

http://www.microsoft.com/france/msdn/office/odc_olArticleUsingVBAInOutlook.mspx

Newbiiiie Sexe: Messages: 12 Localisation: Val d'Oise (95)

laisser tomber je crois que j'ai trouvé