none
Vba Ms Project 2003 RRS feed

  • Pergunta

  • 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...
    quinta-feira, 18 de janeiro de 2007 13:33

Respostas

  •  

    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...

    segunda-feira, 9 de julho de 2007 18:41

Todas as Respostas

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

     

    quinta-feira, 18 de janeiro de 2007 16:03
  •  

     

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

    terça-feira, 6 de fevereiro de 2007 19:18
  •  

    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...

    segunda-feira, 9 de julho de 2007 18:41