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

Project Discussion :

Mappage Access et Ms Project


Sujet :

Project

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Analyse système
    Inscrit en
    Avril 2012
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Analyse système
    Secteur : Distribution

    Informations forums :
    Inscription : Avril 2012
    Messages : 43
    Points : 36
    Points
    36
    Par défaut Mappage Access et Ms Project
    Bonjour tout le monde,

    j'ai développé une application en Access qui permet entre autre la gestion de quelques projets.
    J'ai utilisé Ms Project pour créer le diagramme de Gant par le biais de la fonctio de mappage de Ms Project et tout est correct.

    La seule question que j'ai est de savoir si je peux mettre à jour automatiquement Ms project à son ouverture et de loader les changements qui ont été effectués suer Access, parce que pour l'instant je dois refaire le mappage !! je voudrais juste que l'utilisateur final lance Ms project et il charge les modifications d'Access !

    Ou bien une procédure sur VBA Ms project qui permet de loader les données d'access. Svp, je ne sais pas comment faire pour réouvrir le fichier de mappage et de le changer.

    Svp, si vous avez des idées, n'hésitez surtout pas, ça m'aiderait beaucoup dans mon stage.

    Merci et bonne journée tout le monde

  2. #2
    Nouveau membre du Club
    Homme Profil pro
    Analyse système
    Inscrit en
    Avril 2012
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Analyse système
    Secteur : Distribution

    Informations forums :
    Inscription : Avril 2012
    Messages : 43
    Points : 36
    Points
    36
    Par défaut
    Le problème est résolu
    En fait j'ai crée un bouton sur Access et qui génère le fichier Ms-Project sans faire le mappage à chaque fois sur Ms-project

    Voici le code si ça vous intéresse

    1ère étape, il faut créer le fichier Ms-project avec les colonnes qu'aurait besoin. Exple: prjProject.Tasks.Item(i).Text2 veut dire la colonne "text2" sur Ms-project qu'on pourrait renommer après

    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
     
    Public Sub Gant_En_Cours()
     
    Dim prjApp As MSProject.Application
        Dim prjProject As MSProject.Project
        Dim intTask As Integer
        Dim db As DAO.Database
        Dim rst As DAO.Recordset
        Dim ssql As String
        Dim i As Integer
        Dim DTemporaireOrdreReseau As Double
    Dim sTemporaireOrdreReseau As String
    Set db = CurrentDb()
     
        Set prjApp = CreateObject("Msproject.Application")
     
        prjApp.FileOpen chemin_Connexion.GetCheminRAPPORT + "\Diag_Gant.mpp", ReadOnly:=False
        prjApp.Visible = True
     
        'Run a macro.
        'prjApp.Macro "Toggle_Read_Only" 'Toggle file back to read-write.
     
        Set prjProject = prjApp.ActiveProject
        'prjProject.Tasks.Add Name:="Task" & intTask
        'prjProject.Tasks.Item(1).
     
     
    ssql = "SELECT * FROM TBL_Projet where FK_Type_Projet=" + Combo_type_Projet.Value
     
            Set rst = db.OpenRecordset(ssql, dbOpenDynaset)
            i = 0
         'si ce n'est pas vide
    If Not rst.EOF Then
    ' on se positionne au début
      rst.MoveFirst
      While Not rst.EOF
      i = i + 1
      'Titre
      prjProject.Tasks.Add Name:=TBL_Projet_Modif.GET_SQL_SELECT_TITRE(rst.Fields("PK_Projet"))
     
      'Numéro séquentiel
      prjProject.Tasks.Item(i).Text2 = TBL_Projet_Modif.GET_SQL_SELECT_Sequence(rst.Fields("PK_Projet"))
     
     'etc...   
      rst.MoveNext
      Wend
    End If
     
     
    Set prjProject = Nothing
        Set prjApp = Nothing
    End Sub
    j'epère que ça vous aiderait dans vos projets

    Bonne journée

Discussions similaires

  1. Liaison Access et MS-Project
    Par geopolux dans le forum Project
    Réponses: 6
    Dernier message: 25/10/2012, 13h15
  2. [AC-2007] Extraire des données Access vers MS Project
    Par curt dans le forum VBA Access
    Réponses: 3
    Dernier message: 12/10/2009, 13h48
  3. Echanges entre ACCESS et MS Project
    Par aandre2937 dans le forum Access
    Réponses: 1
    Dernier message: 12/04/2009, 08h30
  4. Réponses: 2
    Dernier message: 03/03/2006, 10h21
  5. copier un champ de Access dans MS-Project
    Par yoyo30 dans le forum Access
    Réponses: 2
    Dernier message: 15/09/2005, 15h23

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