Boa noite!!

Tente adaptar...
Autor:Siddharth Rout

Sub Work(ByVal TgtName As String, ByVal SrcName As String)
    Dim TgtWbk As Workbook, SrcWbk As Workbook, WS As Worksheet
    Dim Myarray() As String, FlNm As String
    
    Myarray = Split(TgtName, "")

    FlNm = Myarray(UBound(Myarray))
    
    If FileExists(TgtName) Then

        Set TgtWbk = Workbooks.Open(Filename:=TgtName)
    Else

        Workbooks.Add
        'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & TgtName
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & FlNm
        Set TgtWbk = ActiveWorkbook
    End If

    Set SrcWbk = Workbooks.Open(Filename:=SrcName, ReadOnly:=True)
   
    For Each WS In SrcWbk.Worksheets
        If WksExists(TgtWbk, WS.Name) Then
            Status SrcName, WS.Name, "Worksheet already exists in " & TgtName & ", Skipped."
        Else
            TgtWbk.Worksheets.Add After:=TgtWbk.Worksheets(TgtWbk.Worksheets.Count)
            TgtWbk.ActiveSheet.Name = WS.Name
            CopySheet WS, TgtWbk.ActiveSheet
            Status SrcName, WS.Name, "Worksheet copied to Target."
        End If
    Next WS

    SrcWbk.Close SaveChanges:=False
    Set SrcWbk = Nothing
    
    TgtWbk.Close SaveChanges:=True
    Set TgtWbk = Nothing
End Sub

Sub ImportData_Click()
      
      Work "D:sample.xlsx", "D:aaa.xlsm"
End Sub

Att

Ola Alexandre,

Antes de qualquer coisa muito obrigado por sua prontidão em me ajudar, sua boa vontade é de impressionar.

Porém o exemplo foge daquilo que pretendo.

Vou enviar os dados da minha planilha para uma outra planilha que ja esta aberta na rede.

Valeu

Não entendi, o seu codigo (no primeiro post) já não faz o que deseja?

Ola Reinaldo,

Não, este código não faz.

Hoje eu preciso lançar 2 vezes. Lanço na minha planilha e depois da PLANILHA MAE.

Esse código é como lanço os dados nas 2, mas de forma INDIVIDUAL. Porém eu quero que seja lançado simultaneamente na minha e na planilha mãe, que esta em outro PC, deu pra entender ? Espero que tenha sido claro.

Valeu

Guima, já estou de saida, mas pelo que entendi, você tem de ajustar ou criar uma rotina com o caminho da rede e localização do seu arquivo e executar a sua rotina adaptando os nomes e locais.

Pesquise sobre Rede no forum e encontrara mais sobre o a ssunto.Veja tambem :

Como definir o Caminho da Pasta dados para uso em rede
http://www.tomasvasquez.com.br/forum/vi ... rede#p4395

[]s

Ola Mauro,

Obrigado pelo interesse em me ajudar. A discussão daquele link que me enviou pelo que entendi esta em outro nível, o cara queria puxar dados de uma planilha em internet.

Com ajuda do Felipe eu consegui prosseguir um pouco, mas estacionei num erro de subescrito fora de intervalo na linha onde aponto o caminho da planilha MAE na rede. Se alguem puder me dizer onde esta erro. Segue o código abaixo:

Sub GCLIENT()
    Dim wksMe As Worksheet
    Dim wkbMãe As Workbook
    Dim wksMãe As Worksheet
    Dim lngLin As Long
        
    Set wksMe = Workbooks("BASEGMP.xlsm").Worksheets("PCTA")
    
    'Gravar informações na planilha PCTA da pasta
    'de trabalho ativa:
    With wksMe
        lngLin = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
        .Cells(lngLin, "B") = PCTA.TextBox1
        .Cells(lngLin, "C") = PCTA.TextBox2
        .Cells(lngLin, "D") = PCTA.TextBox3
    End With
    
    'Gravar informações na planilha PCTA da pasta
    'de trabalho mãe. Altere o caminho abaixo:
    Set wkbMãe = Workbooks("\NEGMeus documentosMAE.xlsm")
    Set wksMãe = wkbMãe.Worksheets("PCTA")
    With wksMãe
        lngLin = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
        .Cells(lngLin, "B") = PCTA.TextBox1
        .Cells(lngLin, "C") = PCTA.TextBox2
        .Cells(lngLin, "D") = PCTA.TextBox3
    End With
   ' wkbMãe.Close SaveChanges:=True
    
    MsgBox "Dados gravados com sucesso!", vbInformation
End Sub

A chamada "planilha MAE" está aberta em seu micro?
Se estiver, refira-se a ela da mesma maneira que se referiu a filha.
Se não estiver, será preciso abri-la primeiro (ou efetuar uma conexão ADO a mesma)

Ola Reinaldo,

A planilha MAE esta aberta em outro PC na rede, mas friso ela ja se encontra ABERTA, porém em outro PC.

Valeu

Pelo que conheço, não é possivel um usuario utilizar/modificar uma planilha que esteja em utilização em outro micro/local/usuario;há um bloqueio do proprio sistema operacional. Exceto (creio eu) para planilhas compartilhada, e o seu caso?
Contudo o codigo vba "precisa" se concetar a planilha para que possa "manipular" seus dados; veja no link
https://sites.google.com/site/pfntec/mo ... ados---vba
ou talvez
http://www.tomasvasquez.com.br/forum/vi ... VxHnDcx-RE