Vba Ms Project 2003

Question

Gostaria de saber se alguem tem conhecimento de fazer macros no Project. Estou precisando fazer uma macro que salve no project Server, apos fazer algumas validações, na bucha quero substituir o salvar (salvar como) do project...

Answer 1

Talvez voce encontre algo no blog abaixo
http://zo-d.com/blog/archives/programming.html

 

Answer 2

 

 

Gostaria de saber se alguem sabe ?????????????

Answer 3

 

Olá McBryan,

 

Você precisa é utilizar os métodos do Project para customizar o projeto, neste seu caso SALVAR um projeto.

 

 With Application.ActiveProject.ProjectSummaryTask
     

       .EnterpriseProjectText40 = CboSituacao.Value
         .EnterpriseProjectOutlineCode2 = CboGestorConta.Value
         .EnterpriseProjectOutlineCode3 = CboGerenteProjetos.Value
         .EnterpriseProjectText3 = txtSponsor.Text
         .EnterpriseProjectText23 = Trim(txtSolicitante.Text)

       .

       .

       .
       
    End With
   
    Dim v_proj_name As Variant
  
    ' Pergunta se quer salvar projeto agora
    vMsg = MsgBox("Salvar agora o projeto?", vbYesNo + vbQuestion)
    If vMsg = vbYes Then
        v_proj_name = Replace(Replace(txtNomeProjeto.Text, ".publicada", ".Publicada"), ".Publicada", ".Publicada")
   
        If vNovo = True Then
            ' Se projeto é novo
            txtNomeProjeto.Text = txtNomeProjeto.Text & ".Publicada"
            Application.ActiveProject.ProjectSummaryTask.Name = txtNomeProjeto.Text
            FileSaveAs Name:="<>\" & txtNomeProjeto.Text, UserId:="", DatabasePassWord:="", FormatID:=""
         end if

end if   

 

 

Qualquer duvida...