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.