none
Salvar em Pdf e Não substituir arquivo se mesmo nome existir RRS feed

  • Pergunta

  • estou com uma tabela para gerar exames de pacientes em minha clinica veterinária, e já consigo salvar em pdf no seguinte modelo:

    nomepaciente - nomeproprietario.pdf

    o problema é quando esse paciente já fez um exame anteriormente, aí ele está substituindo o exame antigo, gostaria de criar algo do tipo:

    nomepaciente - nomeproprietario(2).pdf

    caso já exista o arquivo. aqui vai o codigo que eu estou usando.

    obrigado.

    Sub salvar()
    '
    ' salvar Macro
    '
    Dim nome As String
    nome = "C:\Users\Jean\Desktop\exames pdf\" & Range("E5") & " - " & Range("k7") & ".pdf"
    '
        Sheets("Exame").Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard _
            , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
        Sheets("PREENCHER").Select
        Range("E5:G5").Select
    End Sub

    outra coisa que me irrita é que não consigo fazer o codigo funcionar sem selecionar visualmente a outra planilha, então quando roda a macro a tela fica piscando na alternancia entre o lugar onde está o formulario e onde está o banco de dados.

    terça-feira, 10 de maio de 2016 06:26

Respostas

  • Bom dia Jean, 

    Para verificar se um arquivo existe antes de salvá-lo utilize a função DIR.

    Segue abaixo um vasto material sobre o assunto:

    http://douglasgodoy.com.br/como-verificar-se-um-arquivo-ou-pasta-existe-com-vba/

    https://support.microsoft.com/pt-br/kb/112674

    http://www.macoratti.net/file_vb.htm


    André Santo | basevba.wordpress.com

    terça-feira, 10 de maio de 2016 12:58