Code To Control New Team Foundation Server Buttons on Project Pro

[Doug]

I need the VBA code to control the new "Publish" button added to Project Pro
2003 as part of the "Team" (as in "Team Foundation Server") additions to
Project.

Here is what I am trying to do: Write a Macro that will publish the changes
to Team Foundation Server.

I had posted a similar question over in the "Server" news group, but I
believe this is the better forum for this question.

Thanks in advance.

 

[Doug]

I have had partial success!

How can I trick Project to think an enterprise project file has not changed?

I have a business need to publish an enterprise project plan to both Project
Server 2003 AND to Team Foundation Server.(TFS) I have solved most of the
problems but one.

I have written a Macro in Project Pro 2003 to publish a project to TFS , and
it works fine. (I first save the project file and publish to Project Server.)

Here's my problem: Publishing to TFS somehow set the project "Saved"
property to false (indicating that the file has changed since the last
published to Project Server. Any subsequent Publishing to Project Server
causes duplicate entries in the Project Web Access Timesheet.

The Saved property is read only and I do not see an isDirty property, like
some other Office Applications.

So how can I publish a plan to TFS without Project thinking the plan has
changed?



My code example follows.



Sub JointPublish()
' Publish to Project Server
Call PublishProjServer
Dim cbar As CommandBar
For Each cbar In Application.CommandBars
If cbar.Name = "Team" Then
cbar.Visible = True
Call PublishTFS

End If
Next

End Sub



Sub PublishTFS()
' Publish to TFS Server
Dim ctl As CommandBarButton

For Each ctl In CommandBars("Team").Controls
If ctl.Caption = "Publish" Then
ctl.Execute
End If
Next
End Sub


Thanks in advance

Doug
wwww.cooltimbers.com
"Art for your soul"