Importer/transformer des données formulaire dans un fichier MS Project en vba sans ODBC

Version imprimable

Bonjour,

Comme c'est indiqué dans le titre, j'aimerais pouvoir créer un fichier MS Project depuis un bouton sur un formulaire Access et remplir le fichier MS Project.
J'utilise quotidiennement un formulaire Access qui me permet de faire de la gestion de projet, afin de faire des présentations "propre", j'aimerais exporter les données du formulaire.

Cela me permettra ensuite de faire un fichier par projet et je ne peux pas utiliser les base ODBC.
J'ai pensé a une base en vba du même style qu'un transfert de donnée vers un fichier Excel :
Code:

1 2 3 4 5 6 7 8 9 'Déclaration des variables Dim proapp As Project.Application Dim projet As Project.Table ' Initialisation Set proapp = CreateObject("project.application") Set projet = proapp.Workbooks.Create("C:\Projet2.mpp")
Pourriez-vous m'aider sur les variables a utiliser et comment mettre a jour une table MS Project via une table Access svp.
Je ne sais pas si les fonctions suivantes peuvent s'appliquer :

Code:

DoCmd.RunSQL ("UPDATE table_MS_Project INNER JOIN table_Access ON table_MS_Project.ID = table_Access.ID SET table_MS_Project.TACHES = table_Access.PHASE")

Merci d'avance pour votre aide

Bonne journée

09/07/2014, 12h25
argyronet

Bonjour,

MSProject permet me semble t-il d'enregistrer des macros...
Déjà, tu pourrais te lancer là dedans pour connaître un peu propriétés et méthodes au sein du modèle objet Project.
Par la suite, le piloter via Access reste simple.

Argy

Hello,

Je reviens mettre a jour le point, j'ai réussi a créer un projet et également à attribuer des tâches et sous-tâches en vba depuis un bouton d'un formulaire access en prenant des champs text simple et voici ce que ça donne :

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
53
Private Sub Commande194_Click()
'Publipostage vers MS Project
 
 
'Déclaration des variables
Dim project As MSProject.Application
 
' Initialisation
Set project = CreateObject("msproject.application")
 
'Création d'une table
project.FileNew
 
'Attribution du nom des tâches, des durées et dates
'Jalon début
project.SelectTaskField 0, "Nom"
project.SetTaskField "Nom", "Début"
project.SelectTaskField 0, "Durée"
project.SetTaskField "Durée", "0"
 
'Tâche 1
project.SelectTaskField 1, "Nom"
project.SetTaskField "Nom", " & Me.Text_Ptache1 & "
 
'Sous-Tâche 2
project.SelectTaskField 1, "Nom"
project.SetTaskField "Nom", " & Me.Text_Stache2 & "
project.SelectTaskField 1, "Durée"
project.SetTaskField "Durée", "4"
 
'Sous-Tâche 3
project.SelectTaskField 1, "Nom"
project.SetTaskField "Nom", " & Me.Text_Stache3 & "
project.SelectTaskField 1, "Durée"
project.SetTaskField "Durée", "2"
 
'Sélection des tâches pour faire des sous-tâches de Tâche 1
project.SelectRow -3, , 3
project.OutlineIndent
 
'Jalon Fin
project.SelectTaskField 0, "Nom"
project.SetTaskField "Nom", "Fin"
project.SelectTaskField 0, "Durée"
project.SetTaskField "Durée", "0"
 
'Enregistrement du fichier
project.FileSaveAs "C:\" & Me.ID & "\" & Me.Titre & ".mpp"
 
'Fermeture du fichier
project.FileExit pjSave
 
End Sub

Mais si j'ai besoin de votre aide, dans mon formulaire principale ou j'aimerais ajouter ce bouton, j'ai 3 sous-formulaire, j'aimerais indiquer que mes sous-tâches sont les indications des sous-formulaire et mes tâches principales sont des champs du formulaire.

Ce code fonctionne mais si qqn connait un moyen plus simple, je suis preneur.

Bonne journée.

28/07/2014, 14h09
argyronet

Bonjour,

Plus simple...
Créé une fonction générique spécifique qui alimente ta feuille de projet et passe lui des paramètres correspondants aux valeurs de tâches et sous-tâches associé aux éléments requis pour ouvrir/créer le projet cible.

Ton bouton appelle alors la fonction...

Argy