Bonjour,

J'essaie de créer ou trouver une macro pour autopublier tous les plans de projet qui sont ouverts sur project server. Nous avons des responsables de projet qui ne publies pas systématiquement leurs plans. J'ai essayé de trouver une macro sur le web mais que partiellement satisfait.

Celle que j'ai écrise ne semble pas fonctionné lorsqu'elle est enregistrée dans le global enterprise.

Voici:

Private Sub Project_BeforeClose(ByVal pj As Project)
On Error GoTo Handler
SetPublishField
Publish
VBA.SendKeys "{ENTER}{TAB}{ENTER}"
'Publish
'VBA.SendKeys "{ENTER}{TAB}{ENTER}"
Handler:
If Err = 1100 Then
End
End If

End Sub

Sub SetPublishField()

' Sets the task Publish field to No if the % complete of the TASK is set to 100, otherwise, leaves it as previously set,

Dim Temp As Long

Dim Tsk As Task

For Each Tsk In ActiveProject.Tasks

'check to see if a task exists

If Not Tsk Is Nothing Then

' check to see if the task is external or a summary

If Not (Tsk.ExternalTask Or Tsk.Summary) Then

'If Tsk.IsPublished = False Then
'MsgBox ("test")
End

'If Tsk.PercentComplete = 100 Then

'Tsk.IsPublished = False
'FileCloseEx
End If

End If

Next Tsk

End Sub

Merci