Problema em Macro SalvarComo

[diego_janjao]

Boa tarde, minha macro está retornando o seguinte erro:

Tipos Incompatíveis

 

Alguém saberia me dizer o que poderia ser?

Sub SalvarComo()        NameFolder = "\\ln008svr03\processos\Projeto BPF Bonsucesso\01_Controle_de_Qualidade\08_Não_Conformidades\Internas"    NameFile = Replace([AU19], "/", "_") & ".xlsx"    ThisWorkbook.SaveAs (NameFolder & "\" & NameFile) End Sub

[Wendell Menezes]

Aparentemente não tem nada de errado com o código, poderia postar a planilha?

[diego_janjao]

Aparentemente não tem nada de errado com o código, poderia postar a planilha?

Já encontrei meu erro, Wendell

 

aproveitando a sua ilustre presença, rs

 

poderia me dizer como inserir uma mensagem dizendo: "Arquivo [AU19] Salvo!"?

 

Meu erro estava que a AU19 estava retornando um caracter inválido

[Wendell Menezes]

MsgBox [AU19], vbInformation, "# Assunto"

Dá para trocar o tipo de mensagem assim:

MsgBox [AU19], vbExclamation, "# Assunto"MsgBox [AU19], vbCritical, "# Assunto"

[diego_janjao]

MsgBox [AU19], vbInformation, "# Assunto"

Dá para trocar o tipo de mensagem assim:

MsgBox [AU19], vbExclamation, "# Assunto"MsgBox [AU19], vbCritical, "# Assunto"

Perfeito!

 

Só não consigo salvar em .xlsx

O código não me deixa escolher esse não sei porquê

[Wendell Menezes]

Experimenta deixar o .xlsx no NameFile mas da seguinte maneira:

ThisWorkbook.SaveAs NameFolder & "\" & NameFile

ou

ThisWorkbook.SaveAs NameFolder & "\" & NameFile, 51

[diego_janjao]

 

Experimenta deixar o .xlsx no NameFile mas da seguinte maneira:

ThisWorkbook.SaveAs NameFolder & "\" & NameFile

ou

ThisWorkbook.SaveAs NameFolder & "\" & NameFile, 51

Não deu certo, veja se era assim:

Sub SalvarComo()        NameFolder = "\\ln008svr03\processos\Projeto BPF Bonsucesso\01_Controle_de_Qualidade\08_Não_Conformidades\Internas"    NameFile = Replace([AU19], "/", "_")    ThisWorkbook.SaveAs (NameFolder & "\" & NameFile & ".xlsx")    MsgBox [AU19], vbInformation, "O arquivo foi salvo como:"    End Sub

Deu certo com a segunda opção, com final ,51