[VBA] Problème Outllook ajout RDV Calendrier [Résolu]

[Guidhy]

Bonjour,

J'ai un nouveau probleme sur mon fichier Excel (Macro, Userform)

J'ai une fonction qui me permet d'ajouter un RDV dans outlook, fonction qui marche tres bien sur mon poste au boulot.
Si j'ouvre le fichier chez moi, il me donne une "erreur d'automation" !?
Tous les controles sont bien activés, Outllook est installé sur mon PC (Pas l'Express uniquement).

Voici mes lignes :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' Ajout rendez-vous au calendrier
 
Dim objOutlook As New Outlook.Application
Dim objOutlookAppt As Outlook.AppointmentItem
 
Set objOutlookAppt = objOutlook.CreateItem(olAppointmentItem)
With objOutlookAppt
       .Start = RDVhoraire
       .Duration = RDVdure       'En minute
       .Subject = RDVcontenu
       .Body = RDVDescription
       .ReminderMinutesBeforeStart = 60
       .BusyStatus = olOutOfOffice
       .Save
End With

L'erreur est signalé sur la ligne

Code :

Set objOutlookAppt = objOutlook.CreateItem(olAppointmentItem)

Quelqu'un saurrait-il me dire pourquoi ?

Merci.

[SilkyRoad]

Bonsoir


Est ce que tu as bien activé la référence "Microsoft Outlook xx.x Object Library"?
Dans l'éditeur de macro
Menu Outils
References
Coche la ligne "Microsoft Outlook xx.x Object Library"
(xx.x dépend de ta version d'Office)
Clique sur le bouton OK pour valider.


Sinon, quelles versions de Windows et d'Office utilises tu?


Tu peux aussi comparer les niveaux de sécurité des macros et les paramètres de source fiable, entre les 2 postes.
(Dans Excel, Menu Outils/Macro/Sécurité)


michel

[Guidhy]

Il me semble bien avoir activé la référence, j'ai comparé les refs sur les deux postes... Je vais tout de même vérifier une dernière fois ce week-end...

Sinon en ce qui concerne les niveaux de sécurité, je n'ai rien regardé...
Donc je vais regarder tout ça ce week-end.

J'ai vu sur le net qu'une autre personne a déjà eut ce problème (même fonction dans les mêmes circonstances, en l'occurance : fct outlook & changement de poste), mais malheureusement personne n'a trouvé de solution à son problème

Donc je fais une dernière passe ce week end (ce long week end de quatre jours )et vous retiens au courrant.

En ce qui concerne les versions windows et office :

- XP dans les deux cas. Au boulot c'est une version PRO (je ne sais pas si cela peut créer des problèmes)
- Et la version Office : 2003 dans les deux cas.

Bon week

[TMKFrench]

Bonjour à tous,

Guidhy, ta macro m'interesse beaucoup !

Voila, je t'explique mon probleme et je pense que tu peux grandement m'aider !

Dans le cadre de mon boulot je bosse en horaire décalé selon des journées de
roulement (une Prise de service, ensuite differentes taches (lieu differents à chaque fois et une plage horaire (13h54 à 14h40 par ex), et une fin de service). Ces journées ensuite me sont attribuées mais ne sont pas forcement dans l'ordre (Ex: lundi journée 20, mardi la 8, mercredi la 16, etc...)

J'ai créé un fichier Excel reprenant mon roulement qui ressemble à ca :

Chaque ligne correspond a la journée du roulement
Pour les colonnes : Périodicité (tous les jours, Sauf samedi, par ex), Prise de service,tache 1,lieu 1,heure de début 1,heure de fin 1,tache 2,etc... , Fin de service.
Pour la périodicité, elle est juste la pour info et ne doit pas être traitée pour les rdv.

Voila je voudrais n'avoir a rentrer que le numéro de la journée de travail dans le calendrier d'Outlook et que celui-ci recupère ainsi tous les "rdv" de la journée et me les inscrive dans le calendrier à la date voulue.

c'est apparement ce que fait ta fonction, créer un rdv dans outlook.
Mais ne connaissant pas le VBA, je ne sais vraiment pas l'utiliser. De plus il faudrait la faire repeter pour toute la journée pour rajouter tout les rdv.

Une autre question, cette fonction est à utiliser dans Excel ou dans Outlook ?
Comment on l'intègre ?

Je sais ca fait beaucoup de question... Désolé (Pov newbee que je suis )

Dans le cadre de la répétition de la fonction pour rajouter tout les rdv, je peut mettre un texte de fin de journée apres la FS histoire de dire à la fonction que c'etait le dernier rdv à rajouter dans la journée.

Pour info je suis sous office 2007

Sous excel j'ai commencé a créer une userform avec un champ date (d'ailleur je ne sais pas y faire apparaitre la date du jour dedans mais je vais chercher un peu sur le forum) et un champ pour la jornée de travail ainsi qu'un bouton valider pour mettre a jour le calendrier. Il me reste plus qu'a trouver le code a mettre pour gere tout ca...

En tout cas toute aide est la bien venue et encore merci à tous

[Guidhy]

Tu peux mettre ton fichier en ligne pour que ce soit un peut plus parlant stp....

Je suis loin d'être un pro du VBA, mais donne moi le fichier (vierge si tu le souhaite mais laisse au moins un exemple...) et je regarderai ca tranquillement.

Profite en pour détailler un exemple sur ton fichier (exemple : je souhaite que cette case la soit.... puis celle la..... / Ensuite, celle-ci.......)

Bref un exemple concret pour que ce soit plus parlant

[Guidhy]

Au fait, (que je suis mauvais ) je n'ai pas redonné de réponse en ce qui concernait mon problème !

Les références étaient bien activées, même niveau de sécurité, bref tout pareil. Alors je comprend pas.

De toute facon le probleme n'est plus, puisque le pc à été changé

Mais ceci dit, je ne comprend pas..... ca reste un mystere

Note: On essai de régler le problème de TMKFrench et je mettrais un petit "Résolu" après

Bonne journée à tous et bonne vacances pour certains !

[Guidhy]

J'avais pas vu, notre ami a créé un nouveau post

Alors je me rend la bas de suite

Problème RESOLU