Conectarme a una Unidad de Red por medio de una Macro
Buenas Tarde Estimad@s, tengo el siguiente código me funciona ok, solo que es necesario estar conectado a la unidad de red "X:", sabrás si existe algún código que me conecte con la unidad de red "disco X" cuando esta este desconectado.
Sub SaveWithVariableFromCell()
On Error GoTo opcion2
Application.ScreenUpdating = False
Call Desprotejer_hojas
Sheets("SEMÁFORO JV").Select
Range("A3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Dim SaveName As String
SaveName = ActiveSheet.Range("A2").Text
ActiveWorkbook.SaveCopyAs Filename:="X:\CENP\N cos y BNC\_Privados\Jdv\Semáforo\" & _
SaveName & ".xlsm"
Call Protejer_hojas
Sheets("SEMÁFORO JV").Select
MsgBox "INFORMACIÓN COPIADA EN EL DISCO X:"
Exit Sub
opcion2:
MsgBox "NO ES POSIBLE UBICAR LA CARPETA (SEMÁFORO) EN EL DISCO X:, POR FAVOR VALIDE: CONEXIÓN EN LA RED Y QUE LA CARPETA NO HA SIDO BORRADA"
End Sub
Muchas Gracias