Actualizar vinculos por vba ?

26/06/2007 - 18:13 por José A. Castrejón | Informe spam
Buenos dias, al menos aqui en México

Tengo 2 hojas de calculo, la primera se llama Fac_Seg y la segunda Cobranza;

En la hoja de cobranza tengo varias celdas que hacen referencia a celdas de
la primera hoja.

ej : =SI(B14=0,0,'C:\archivos\[FAC_SEG.xls]CTRL_FAC'!$C14).

En la hoja cobranza en el evento Workbook_open he puesto lo siguiente :

code

Dim Ruta
Ruta = ActiveWorkbook.Path & "\FAC_SEG.XLS"
If Dir(Ruta) = "" Then
MsgBox "El archivo de facturación no existe !." & vbCrLf & vbCrLf & _
"El archivo de cobranza debe estar ubicado en la misma carpeta." &
vbCrLf & vbCrLf & _
"Solucione el problema e intente de nuevo", vbInformation, "J-ac"
UserForm1.Show
ActiveWorkbook.Close
end if

sin embargo si el archivo de facturación no existe, Excel me pide que
actualize el vinculo y esto antes de que se ejecute Workbook_open y no quiero
que pase esto.

¿Puedo evitar que excel me pregunte por la ubicacion del archivo en caso de
que no exista ?

¿En lugar de esto puedo hacer que me pregunte la nueva ruta ?

He probado a poner en herramientas-opciones "consultar al actualizar
vinculos automaticos" pero al hacer esto no se recalcula la hoja y si
actualizo de todas formas me pide la nueva ubiacion del archivo.
 

Leer las respuestas

#1 Abraham
26/06/2007 - 19:50 | Informe spam
Esto te puede ayudar:

http://groups.google.com/group/micr...550231171d

Abraham

Preguntas similares