ou melhor, logo em seguida tenho este comando

wbAtual.SaveAs Filename:=sLocalTemp & sNomeArquivo + G1

Poderia adicionar aqui a Celula G1 ?

fazerbem,

Bom dia!

Já tentou assim:

sNomeArquivo = wbAtual.Worksheets("PEDIDO GAUER") & " - " & Range("G1").Value

sim , Bom dia amigao

erro em tempo de execucao 438
O Objeto nao aceita esta propriedade ou metodo

então cole seu arquivo e explique como chegar até esse erro.

fazerbem,

Bom dia!

Já tentou assim:

sNomeArquivo = wbAtual.Worksheets("PEDIDO GAUER") & " - " & Range("G1").Value

Isso tem que funcionar.

ja tentei e nao deu, acho que e porque falta o .Name

segue comando

Inclusive abri outro post que se refere a esta Macro , porem assuntos diferentes.
Nao quis misturar com este topico.

Sub A3_EnviaPlanilhaAtiva_Gauer()

Dim oOutlook As Object
Dim oEmail As Object
Dim wbAtual As Workbook
Dim sNomeArquivo As String
Dim sLocalTemp As String
Dim resultado  As VbMsgBoxResult
Dim aba As String
aba = Range("F4").Value  'referente Celula aba "Pedido Gauer"

Dim corpo As String
corpo = Sheets(aba).Range("AS20")

Application.ScreenUpdating = False
Set oOutlook = CreateObject("Outlook.Application")
Set oEmail = oOutlook.CreateItem(0)
sLocalTemp = "C:UsersAndreDesktop"

' Copia a planilha ativa e salva em local temporário
ActiveSheet.Copy
Set wbAtual = ActiveWorkbook

' Aqui você define qual planilha deve ser gravada
sNomeArquivo = wbAtual.Worksheets("PEDIDO GAUER").name


On Error Resume Next
Kill sLocalTemp & sNomeArquivo
On Error GoTo 0
wbAtual.SaveAs Filename:=sLocalTemp & sNomeArquivo

With oEmail
    .To = "gauer@gauerdobrasil.com.br"
    .Subject = "Pedido " & [G1].Value & " - " & [F4].Value
    .Body = corpo
    .Attachments.Add wbAtual.FullName
    .ReadReceiptRequested = True ' confirmação de leitura

resultado = MsgBox("Deseja ver o Envio e Adicionar um anexo( SIM ) ou ( NÃO ) ?", vbYesNo, "Tomando uma Decisão")
    
If resultado = vbYes Then
    .Display
 Else
    .Send
End If

'Envia o email a Gauer
'NovoArquivoXLS.SendMail "gauer@gauerdobrasil.com.br", "Pedido " & [F4].Value, True


End With

'Deleta o arquivo temporário
wbAtual.ChangeFileAccess Mode:=xlReadOnly
Kill wbAtual.FullName
wbAtual.Close SaveChanges:=False

Set oEmail = Nothing
Set oOutlook = Nothing


End Sub

Tenta assim

Sub A3_EnviaPlanilhaAtiva_Gauer()

Dim oOutlook As Object
Dim oEmail As Object
Dim wbAtual As Workbook
Dim sNomeArquivo As String
Dim sLocalTemp As String
Dim resultado  As VbMsgBoxResult
Dim aba As String
aba = Range("F4").Value  'referente Celula aba "Pedido Gauer"

Dim corpo As String
corpo = Sheets(aba).Range("AS20")

Application.ScreenUpdating = False
Set oOutlook = CreateObject("Outlook.Application")
Set oEmail = oOutlook.CreateItem(0)
sLocalTemp = "C:UsersAndreDesktop"

' Copia a planilha ativa e salva em local temporário
ActiveSheet.Copy
Set wbAtual = ActiveWorkbook

' Aqui você define qual planilha deve ser gravada
sNomeArquivo = wbAtual.Worksheets("PEDIDO GAUER") & " - " & Range("G1").Value

On Error Resume Next
Kill sLocalTemp & sNomeArquivo
On Error GoTo 0
wbAtual.SaveAs Filename:=sLocalTemp & sNomeArquivo

With oEmail
    .To = "gauer@gauerdobrasil.com.br"
    .Subject = "Pedido " & [G1].Value & " - " & [F4].Value
    .Body = corpo
    .Attachments.Add wbAtual.FullName
    .ReadReceiptRequested = True ' confirmação de leitura

resultado = MsgBox("Deseja ver o Envio e Adicionar um anexo( SIM ) ou ( NÃO ) ?", vbYesNo, "Tomando uma Decisão")
    
If resultado = vbYes Then
    .Display
Else
    .Send
End If

'Envia o email a Gauer
'NovoArquivoXLS.SendMail "gauer@gauerdobrasil.com.br", "Pedido " & [F4].Value, True


End With

'Deleta o arquivo temporário
wbAtual.ChangeFileAccess Mode:=xlReadOnly
Kill wbAtual.FullName
wbAtual.Close SaveChanges:=False

Set oEmail = Nothing
Set oOutlook = Nothing


End Sub

...

entao ja tentei assim , como sugerido pelo outro colega

mas nao vai

sNomeArquivo = wbAtual.Worksheets("PEDIDO GAUER") & " - " & Range("G1").Value

veja abaixo
-------------------------------------------------------------------

Re: Adicionar um parametro a Macro
Mensagempor Wagner Morel » Qui Jan 14, 2016 10:39 am

fazerbem,

Bom dia!

Já tentou assim:
CÓDIGO: SELECIONAR TODOS
sNomeArquivo = wbAtual.Worksheets("PEDIDO GAUER") & " - " & Range("G1").Value
Se a resposta foi últil para você, por gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. No canto superior.

Atenciosamente
Wagner Morel
Avatar do usuário
Wagner Morel
Moderador
Moderador

Mensagens: 1837
Registrado em: Sáb Out 20, 2012 1:49 pm
Localização: Fortaleza - CE
Agradeceu : 22 vezes
Foi agradecido: 817 vezes

Se eu entendi direito PEDIDO GAUER é um prefixo, ou seja todos os arquivos teram esse nome a diferença é o nome da celula G1

Se for isso teste assim

sNomeArquivo = "PEDIDO GAUER" & " - " & Range("G1").Value

Se eu entendi direito PEDIDO GAUER é um prefixo, ou seja todos os arquivos teram esse nome a diferença é o nome da celula G1

Se for isso teste assim

sNomeArquivo = "PEDIDO GAUER" & " - " & Range("G1").Value

Seguinte Pedido Gauer e uma ABA fixa que serve de modelo basico para todas as abas temporarias abertas que estao aguardando envio. Esta ABA Pedido Gauer e a que sera enviada para a empresa,mpois a empresa exige este padrao, e as minhas abas temporarias criadas seguem um padrao diferente as minhas necessidades. Quando o envio é processado, alguns dados destas abas temporarias, que nada mais São que os pedidos de cada lojista, e estas abas São todas iguais, mudando-se apenas os dados da loja e produtos pedidos entre outras coisas, existe uma outra Macro antes desta que copia os dados da aba temporaria, cola na aba basica que é a Pedido Gauer , feito isto, aciona esta macro acima para fazer entao o envio a empresa. Quando a empresa recebe o pedido, o assunto vai como : Pedido 14 - Loja do Joao, ou Pedido 15 - Loja do Ze. E o anexo esta indo como Pedido Gauer.xls, eu wuero que va como Pedido Gauer 14 - Loja do Joaoa.

Apos isso a outra macro termina o processo e limpa a aba Pedido Gauer e a deixa pronta ao proximo pedido.

Lembrando que F4 e o nome da aba

aba = Range("F4").Value 'referente Celula aba "Pedido Gauer"

Acho que detalhei bem .

Muito obrigado pela ajuda de sempre, adoro vcs !!!!

Andre

Resolvendo eta aqui agora eu fecho com chave de ouro !