Discussion :

[arundel]

Bonjour à tous,

Je développe une application Access (2010, FR) qui génère 2 fichier texte de mappage vers MS-Project (2010, FR).

Dans un MS-Project vide qui me sert de modèle, j'ai enregistré

• chacun des mappages en mode "Ajouter les données au projet actif"
• une macro qui les exécute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub WBS_Mapping()
 
Dim strPath As String: strPath = ActiveProject.Path & "\"
 
FileOpenEx Name:=strPath & "ExportMSP-Task.txt", ReadOnly:=False, Merge:=3, map:="ACCESS_Import_Task"
FileOpenEx Name:=strPath & "ExportMSP-Ress.txt", ReadOnly:=False, Merge:=3, map:="ACCESS_Import_Ress"
 
ViewApply Name:="Diagramme de Gantt"
SelectSheet
SetTaskMode Manual:=False
 
End Sub

Si je lance cette macro depuis MS-Project, tout est OK, mais je souhaite la lancer depuis Access par la commande run "nom_de_la_macro"

Et la ça ne va plus au niveau du mappage des ressources : les taux horaires sont à ZERO (tout le reste étant OK).

Je précise que dans le fichier texte de mappage ces taux horaires sont de la forme 80,00 (sans unité et avec virgule décimale).

D'où ma question : pourquoi la macro se comporte-t-elle différemment selon qu'elle est lancée depuis MS-Project ou depuis Access ?

Merci d'avance pour votre aide.

[arundel]

Re-bonjour,

Après avoir testé en Excel et avoir désossé le code VBA Access j'ai fini par trouver la solution.

Après exécution de la macro j'ai le bout de code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 .FileSaveAs Name:=strMSPProj, FormatID:="MSProject.MPP" , _
    ClearBaseline:=True, ClearActuals:=True, ClearResourceRates:=True, ClearFixedCosts:=True

Le problème se trouve sur la 2ème ligne : les Clearxxxx = True remettaient les champs à zéro !

Tout est OK à présent.