IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Lier des dates sous Excel dans Outlook (création d'évènement)


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2011
    Messages : 54
    Points : 13
    Points
    13
    Par défaut Lier des dates sous Excel dans Outlook (création d'évènement)
    Bonjour,

    J'utilise un fichier excel pour suivre et planifier des maintenances sur des équipements.
    En complément je créé chaque maintenance dans le calendrier outlook pour une meilleur visibilité (avec d'autre visite).

    Pour éviter ce doublon je souhaiterais savoir s'il est possible de lié un fichier excel avec un calendrier outlook.
    Objectif:
    - Excel: Equipement 1: maintenance le 6/6/2016
    - Outlook: création automatique d'un Evènement
    - Si Maj de la date dans Excel, Maj de la date dans Outlook.

    Je suis tombé sur un code mais je ne sais pas s'il peut répondre à mon besoin.
    Je ne parviens pas à le tester...

    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 NouveauRDV_Calendrier()
    'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
    Dim OkApp As New Outlook.Application
    Dim Rdv As Outlook.AppointmentItem
     
    Set Rdv = OkApp.CreateItem(olAppointmentItem)
     
    With Rdv
        .MeetingStatus = olMeeting
        .Subject = "le site DVP"
        .Body = "...description ...."
        .Location = "sur le forum Office"
        .Start = #10/20/2007 9:30:00 PM#     ' Attention : format mois/jours/année
        .Duration = 30 'minutes
        .Categories = "Amis"
        .Save
    End With
     
    Set OkApp = Nothing
    End Sub
    Merci d'avance pour vos pistes et votre aide.
    Crdt

  2. #2
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Points : 24 327
    Points
    24 327
    Par défaut
    Bonjour,

    Que signifie
    Je ne parviens pas à le tester...
    ?

    Message d'erreur?
    Ne fait rien?
    Le résultat n'est pas celui attendu?
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  3. #3
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2011
    Messages : 54
    Points : 13
    Points
    13
    Par défaut
    Bonjour,

    En testant un peu plus je suis parvenu à faire fonctionner ce code.
    Il me semblait avoir bien activer "Microsoft Outlook xx.x Object Library" mais c'était Office.

    Ce code est loin de répondre à ce que je recherche. Mais il me permet de voir qu'une liaison entre Excel et Outlook.

    Comment j'ai testé.
    J'ai inséré une date dans une cellule, j'ai inséré un Bouton pour lequel j'ai attribué la Macro.
    En cliquant sur le Bouton, un Evènement a été créé dans Outlook.
    Est-ce la bonne manière d'affecter cette Macro ?

    J'ai peur que ce code ne soit que trop minimaliste
    - il faut qu'une maj d'une date dans Excel soit mise à jour dans Outlook pour le même évènement
    - l'objet de l'évènement n'est pas le même en fonction de l'équipement
    - la durée de l'évènement n'est pas la meme en fonction de l'équipement.

    Ca c'est mon rêve. Après je ne sais pas jusqu'où on est possible d'aller avec un code VBA.

    En PJ, un petit exemple de ce que je souhaite planifier
    Classeur1.xlsm

  4. #4
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2011
    Messages : 54
    Points : 13
    Points
    13
    Par défaut
    Sauriez vous me diriger vers quelque chose ou point du tout ?

Discussions similaires

  1. [XL-2007] Gestion du format des dates sous Excel et sur VBA.
    Par yvesprivat dans le forum Excel
    Réponses: 2
    Dernier message: 27/07/2015, 16h07
  2. Ajouter des date d'intervention dans le calendrier outlook
    Par Patouillou dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 31/05/2015, 00h00
  3. Réponses: 0
    Dernier message: 02/06/2014, 15h18
  4. Gestion des dates sous Excel avec les microsecondes
    Par fredppp dans le forum Framework .NET
    Réponses: 1
    Dernier message: 15/12/2009, 22h36
  5. Réponses: 10
    Dernier message: 06/06/2007, 18h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo