Mappage Access et Ms Project

[mehdiyou1985]

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

[mehdiyou1985]

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