+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Candidat au titre de Membre du Club
    Homme Profil pro
    Analyse système
    Inscrit en
    avril 2012
    Messages
    40
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

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

    Informations forums :
    Inscription : avril 2012
    Messages : 40
    Points : 10
    Points
    10

    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
    Candidat au titre de Membre du Club
    Homme Profil pro
    Analyse système
    Inscrit en
    avril 2012
    Messages
    40
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

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

    Informations forums :
    Inscription : avril 2012
    Messages : 40
    Points : 10
    Points
    10

    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 :
    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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •