[Excel] Referencia externa: libros cerrados

Hola

El/los cuadernos fuente deben cumplir condiciones bien precisas
en particular las celdas objetivo deben ser del tipo lista de datos; es decir, datos del mismo tipo en una misma columna: texto, número, fecha
y los formatos no se copian

También hay algo raro en esta sintaxis
LeerCelda_CuadernoCerrado = Rst(0).Value

Por otro lado, si tienes pocos datos de celdas para copiar, puedes usar la macro llamada walkenbach
un ejemplo básico para adaptar (ruta, nombre del archivo, celdas...)

Sub leer_cerrado() Dim ruta As String ruta = ThisWorkbook.Path Range("A3") = ExecuteExcel4Macro("'" & ruta & "\[source.xls]Hoja1'!R1C1") Range("B4") = ExecuteExcel4Macro("'" & ruta & "\[source.xls]Hoja1'!R2C2") Range("C8") = ExecuteExcel4Macro("'" & ruta & "\[source.xls]Hoja1'!R5C3") Range("E9") = ExecuteExcel4Macro("'" & ruta & "\[source.xls]Hoja1'!R7C4") End Sub 

si utilizas ADo, adjunta un extracto de tu cuaderno fuente

para adjuntar un archivo
pon el cuaderno sin datos confidenciales como adjunto
https://www.cjoint.com/
y hacer un clic derecho en el enlace propuesto luego "copiar la dirección del enlace" y pegar en el mensaje de respuesta

--
Michel

Gracias por tu respuesta, Michel.

Cuando hablas de tipo, ¿entendes "formato"? Si es así, los datos de mi tabla fuente son todos del mismo tipo en cada columna. Pero después de todo, tu comentario me parece una buena pista, ya que ya había tenido un problema de formato en esa tabla fuente; de hecho, esa tabla se exporta desde el software de la empresa.

Efectivamente, ya había visto la macro de Walkenbach, pero tengo la intención de usar mi propia función para posteriormente explotar toda una base de datos (para otro libro de Excel, éste me sirve más como prueba). Por otra parte, me gustaría, si es posible, mantener el enfoque de "función" para que los usuarios del libro puedan hacer un seguimiento de los valores de las celdas.

Para ser claro, porque sé que antes de intentar programar cualquier cosa hay que definir bien lo que queremos, me gustaría una función del tipo indirect.ext, es decir, la función indirecta pero que funcione sobre libros cerrados. Indirect.ext es una función del complemento MoreFunc, pero no puedo descargarlo (prohibido por la empresa) y es imposible recuperar el código VBA porque está escrito en C.

Aquí tienes un extracto de mi libro fuente:

http://cjoint.com/?AJAnhkY3STv

Un peu compliqué XLD....

Const racine As String = "D:\documents\excel\essai\adodemo\" 'a adapter Const onglet As String = "TestBD" Const plage As String = "A1:P1000" Sub compiler() Dim ss_dossier, Cptr As Byte, Chemin As String Dim Source As Object, Requete As Object, texte_SQL As String Dim derlig As Long ss_dossier = Array("ccmA", "ccmB") 'a adapter For Cptr = 0 To UBound(ss_dossier) 'recherche des classeurs dans les sous dossiers Chemin = racine & ss_dossier(Cptr) ChDir Chemin fichier = Dir(Chemin & "\rapport_nomclient" & "*.xlsx") 'connection au classeur Set Source = CreateObject("ADODB.Connection") With Source .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _ & fichier & ";Extended Properties=""Excel 12.0;HDR=YES;""" .Open End With ' éxécute l'extraction des données Set Requete = CreateObject("ADODB.Recordset") texte_SQL = "SELECT * FROM [" & onglet & "$" & plage & "] " Set Requete = Source.Execute(texte_SQL) 'restitution If Not Requete.EOF Then derlig = Columns(2).Find("*", , , , , xlPrevious).Row + 1 Sheets(1).Cells(derlig, 2).CopyFromRecordset Requete End If Next Sheets(1).Activate End Sub 

https://www.cjoint.com/?3JAtTXYFpVj

Mais à partir de maintenant, je m'abstiendrai de me casser le cul pour aider quelqu'un en allant vérifier s'il n'a pas posé la question sur un autre forum sans prévenir...triste pour ce qui est de l'entraide
Michel

Efectivamente tu solución es simple y muy eficaz Patrice, casi me siento culpable por no haberlo pensado, pero no es lo que busco... a menos que se convierta en una función o pueda introducir mis argumentos.
Me gusta la idea de crear mi propio directorio de funciones, porque me siento más cómodo en Excel que en VBA y además mis usuarios podrán ver de inmediato de dónde provienen los valores de las celdas, porque cuando ya no esté (estoy en prácticas) quiero que puedan salir adelante si cambian la ubicación de las carpetas (así que las direcciones) y la configuración de los libros (así que las celdas), de lo contrario mi trabajo no habrá servido de nada!
Estoy viendo tu solución Michel, aunque no sea tampoco una función, pero seguramente me ayudará para el procesamiento de mi base, intentaré ver qué sale mañana!