RepublishAssignments

[Craig]

For reasons I won't get into here I need to republish approximately 70
projects every night. As you can imagine this can be very time consuming.
It took a while but I created a macro to help and it is working very nicely
but it still prompts me to click ok for every project it goes to publish.
The current Macro is listed below. Currently I open a work space that has
all my projects in it and then run it.
Any suggestions on how I can get around having to click ok every time it
goes to republish? I want it to just run and not prompt me at all. Once I
can get it to do that I can automate the whole process. Any help is
appreciated.

Sub publishtest()

Dim X As Integer
X = Projects.Count
For I = 1 To X
RepublishAssignments False, pjPublishScopeAll, False, True, False, ""

Dim Tim As Single
Tim = Timer
Do Until Timer - Tim > 10
DoEvents
Loop

FileClose False
Next I

End Sub

 

[Gérard Ducouret]

Craig,

Did you try to insert the following instruction?
DisplayAlerts = False

Hope this helps

Gérard Ducouret

 

[Craig]

That worked great thanks!

Craig,

Did you try to insert the following instruction?
DisplayAlerts = False

Hope this helps

Gérard Ducouret

 

[Gérard Ducouret]

Your are welcome, Craig!

Gérard

That worked great thanks!