Macro para Guardar Imagen en carpeta especifica
Me podrían apoyar con una macro con para lo siguiente:
1- Mediante un commandbutton abrir el explorador donde pueda seleccionar una imagen de cualquier formato y posteriormente guardarla automáticamente en esta ruta \\mxnpr1fs0001.bns.mx\mxmtycpr1riecbz11\imagen tickets.
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro.
Sub Copiar_Imagen() ' 'Por.Dante Amor ' 'copiar imagen ' With Application.FileDialog(msoFileDialogFilePicker) .Title = "Selecciona imagen" .Filters.Clear .Filters.Add "Todos los archivos", "*.*" .Filters.Add "jpg", "*.jp*" .Filters.Add "bmp", "*.bm*" .Filters.Add "png", "*.pn*" .Filters.Add "gif", "*.gi*" .FilterIndex = 2 .AllowMultiSelect = False .InitialFileName = ThisWorkbook.Path & "\" If Not .Show Then Exit Sub archivo = .SelectedItems.Item(1) End With ' nueva = "\\mxnpr1fs0001.bns.mx\mxmtycpr1riecbz11\imagen tickets\" 'nueva = ThisWorkbook.Path & "\pruebas\" If Dir(nueva, vbDirectory) <> "" Then d = InStrRev(archivo, "\") nomb = Mid(archivo, d + 1) ruta = Mid(archivo, 1, d) FileCopy ruta & nomb, nueva & nomb MsgBox "Archivo copiado" Else MsgBox "La ruta destino no existe" End If End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
