Redireccionar diferentes archivos a diferentes carpetas de un site con una macro
Es muy interesante tu página y la ayuda que ofreces. Aprendo mucho con tu página. Me gustaría si pudieras ayudarme con lo siguiente. He elaborado una macro para que me trocee un archivo (cada sucursal debe recibir su trozo) y me genere un archivo independiente para cada sucursal. Ahora lo que querría añadir es otra macro que me redireccione cada archivo a un site sharepoint que tenemos, hay 14 sucursales y 14 direcciones de sharepoint. Estoy trabajando en ello pero no acabo de encontrar la solución. Te adjunto la macro. Muchas gracias por anticipado.
Nuria
Sub Generar_ficheros_por_zona()
' indica d?nde se guardar?n los archivos
Donde = "C:\Users\NURIA-SANMIGUEL\Documents\cursos diversos\MACROS EXCEL\Proyecto curso macros\PRUEBA PROYECTO SIAS\"
' indica celda donde está la primera DT
Celda = "b1"
Application.ScreenUpdating = False 'si quieres evitar los movimientos de pantalla,
Donde = Trim(Donde)
Donde = Donde & IIf(Right(Donde, 1) = "\", "", "\")
Range(Celda).Select
If AutoFilterMode = False Then
Selection.AutoFilter
ElseIf FilterMode Then
ActiveSheet.ShowAllData
End If
'1.- Carga matriz de zonas a filtrar
Dim ListDT() As Variant 'DT
DT = 0
NroDT = ""
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value <> NroDT Then
NroDT = ActiveCell.Value
ReDim Preserve ListDT(DT)
ListDT(DT) = NroDT
DT = DT + 1
End If
ActiveCell.Offset(1).Select
Loop
'2.- Filtra ZONA por ZONA
Range(Celda).Select
For DT = 1 To UBound(ListDT)
Selection.AutoFilter Field:=2, Criteria1:=ListDT(DT)
NewFileName = Donde & ListDT(DT) & " Listado SIAS .xls"
Selection.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
Range("A1").Select 'Celda donde se pegar?n los datos en destino
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
Range("A1").Select
Application.DisplayAlerts = False ' si quieres evitar el mensaje de archivo existente,
ActiveWorkbook.SaveAs NewFileName
ActiveWorkbook.Close
Application.DisplayAlerts = True
Next
Application.ScreenUpdating = True
MsgBox "Proceso Terminado", vbInformation, "ARCHIVOS SIAS POR DT GENERADOS!!"
End Sub
