Problema de macro entre Excel y Word Resuelto

Question

Hola, Después de varias preguntas planteadas en el foro, y cuyas respuestas me han sido muy útiles, me dirijo nuevamente a CCM para aclarar otro punto:  Tengo un entorno de trabajo que vincula dos libros, al abrirlo me encuentro con el libro [Nomenclature] que está vinculado al libro [Lista de Proveedores].  En la hoja Lista Material Aeraulico del libro [Nomenclature], hay un botón que me permite abrir un archivo de Word para crear un mail merge automático utilizando un VBA. Mi problema es el siguiente: cuando pruebo el VBA en Word, funciona perfectamente, pero cuando lo utilizo a través del botón de Excel, aparece un error y, por lo tanto, no funciona. Para visualizar el funcionamiento, creo que primero hay que revisar el programa del archivo de Word (para su información, para abrir el archivo de Word, mantenga presionada la tecla Mayús ya que hay un cierre automático), luego probar el botón de Excel después.  Gracias por su ayuda.  Lista de archivos: https://www.cjoint.com/?BHom5aYnbaD    Configuración: Windows Vista / Safari 537.1

Le Pingou · Answer

Hola, Me parece haber identificado un procedimiento en el archivo que me enviaste ayer. Estoy revisando si es factible.  -- Saludos. El Pingüino

Le Pingou · Answer

Hola, ¿Puede comunicarme el mensaje de error exacto...? Gracias.  -- Saludos. El Pingüino

Le Pingou · Answer

Hola, En su documento de Word, realmente no es una buena idea incluir un procedimiento que cierre el archivo justo cuando se quiere abrir... ¿para qué sirve eso..., qué necesidad...! Neutralice esta macro [Private Sub Document_Open()] y luego intente desde la aplicación Excel, debería funcionar.  -- Saludos. El Pingüino

nicodu072 · Answer

El mensaje de error es el siguiente: "Error de ejecución '5852'. El objeto solicitado no está disponible." Luego, cuando inicio el depurado tengo:  With ActiveDocument.MailMerge  .Destination = wdSendToNewDocument (=> resaltado en amarillo)  .SuppressBlankLines = True  Deseo cerrar el archivo de Word original una vez terminado el correo masivo, no necesito tener 2 archivos de Word abiertos, sino solo el archivo proveniente del correo masivo.  No entiendo por qué desea desactivar [Private Sub Document_Open()], ya que esto es lo que inicia el correo masivo automáticamente al abrir Word.  Quedo a la espera de su respuesta.

Le Pingou · Answer

Hola, Gracias por la información. Sería mejor tener las órdenes de correo masivo directamente en la macro de Excel [Sub Bouton1_Clic] y es ahí donde cierras tu documento base después de su uso. Además, en tu código la extensión del archivo de Word es [.docx] y el documento base está en [.docm]; lo que no funciona. Con respecto al error con: [wdSendToNewDocument], verifica en Herramientas del editor de VBA bajo Referencias que la [Microsoft Word xx.0 Object Library] esté marcada (si no es así, bútquela en la lista...) Intenta ya con este último punto para ver... !  -- Saludos. El Pingüino

nicodu072 · Answer

En cuanto a [Micrososf Word xx.0 Object Library], está correctamente marcado, por lo que mi problema sigue presente.  Además, en mis archivos las extensiones son correctamente .doxm.  Por último, en cuanto a su inicio de respuesta, soy novato en VBA (como usted ha podido notar, creo). Creía que Excel no podía controlar Word y viceversa.

Le Pingou · Answer

Hola, Desde Excel se puede controlar Word sin ningún problema. En su código de Excel ha utilizado correctamente esta instrucción (Set Wrd = CreateObject("word.Application") que permite acceder al objeto Word. Estoy revisando para corregir el procedimiento y se lo transmitiré tan pronto como todo funcione.  -- Saludos. El Pingüino

nicodu072 · Answer

Buenas noches,  De acuerdo, pensaba que solo se podían abrir archivos. Le agradezco.  Atentamente.

Le Pingou · Answer

Hola, Usted utiliza el documento [Fiche Technique DOE AERAULIQUE.docx] sin la macro [Private Sub Document_Open()] (eliminarla) En el módulo del libro [Nomenclature.xlsm] pegue el procedimiento que sigue, válido para la hoja [Liste Matériel Aéraulique]: Nota: controle que la ruta ("C:\Users\Nico\Des.......") y, si es necesario, corríjala. El código: Sub Bouton1_Clic() Dim Wrd As Object Dim DocWord As Object Set Wrd = CreateObject("word.Application") Wrd.Visible = True nombase = "C:\Users\Nico\Desktop\Nomenclature et Fiche tecnique\Nomenclature.xlsm" feuilbase = "'Lien Aéraulique$'" nompubli = "C:\Users\Nico\Desktop\Nomenclature et Fiche tecnique\Fiche Technique DOE AERAULIQUE.docx" Set DocWord = Wrd.Documents.Open(nompubli) With DocWord.MailMerge .OpenDataSource Name:=nombase, SQLStatement:="SELECT * FROM " & feuilbase With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Destination = wdSendToNewDocument .SuppressBlankLines = True .Execute Pause:=False ' nomfich = Wrd.ActiveDocument.Name End With DocWord.Close False End Sub -- Saludos. El Pingüino

nicodu072 · Answer

Hola, su protocolo funciona, pero al abrir el archivo de Word [Fiche Technique DOE AERAULIQUE], me pide seleccionar mi tabla, sin embargo, mi libro no está disponible en la elección de libros y cuando presiono cancelar, mis campos en el archivo de Word ya no están vinculados a los de Excel. Cuando regreso al protocolo, tengo "error 4198, el comando falló" y la siguiente línea está resaltada:  .OpenDataSource Name:=nombase, SQLStatement:="SELECT * FROM " & feuilbase  Estamos acercándonos al éxito ;-).

Le Pingou · Answer

Hola, Tras su mensaje, he notado un pequeño error de sintaxis que ocurre en el mensaje de respuesta, donde el acento grave ['] se transforma en apóstrofe ['], lo que provoca el problema que está experimentando. Estoy preparando una solución global para las 3 listas que enviaré por enlace y no habrá más problemas. Si desea realizar la corrección, este es el código: feuilbase = "'Lien Aéraulique$'" Necesita el acento grave en lugar del apóstrofe, antes de la [L] y después del [$]  Saludos. El Pingüino

Le Pingou · Answer

Hola, Mi propuesta se basa en el principio de que todos los archivos (xlsm, docx) están en la misma carpeta del directorio. Para la prueba he creado 2 documentos ficticios. Todos los procedimientos se encuentran en el módulo [lepingou], todo lo demás ha sido eliminado excepto el módulo1 (extraño porque no hay hoja [Proveedor]... ¡!) Solo necesita guardar la propuesta en la carpeta de su elección: https://www.cjoint.com/?3HppxyC4V77  -- Saludos. El Pingüino

nicodu072 · Answer

Gracias por este trabajo, sin embargo tengo un poco de dificultad para entender el procedimiento a seguir (lo siento).  ¿Qué debo hacer con [Sub Publipostage(nompubli, nombase, feuilbase, chemin)]?  Por ejemplo, para el botón 1, ¿debo poner:  Option Explicit  Sub Bouton1_Clic() Dim docpub As Variant, nomcla As Variant, nomfeuil As Variant, chemin As Variant docpub = "Ficha Técnica DOE AERAULIQUE.docx" nomcla = ActiveWorkbook.Name nomfeuil = "Enlace Aéraulico" chemin = ActiveWorkbook.Path & "\" Publipostage docpub, nomcla, nomfeuil, chemin End Sub  Seguimiento de:  Sub Publipostage(nompubli, nombase, feuilbase, chemin) Dim DocWord As Object, Wrd As Object Dim nomfich As String Set Wrd = CreateObject("word.Application") Set DocWord = Wrd.Documents.Open(chemin & nompubli) With DocWord.MailMerge  .OpenDataSource Name:=(chemin & nombase), SQLStatement:="SELECT * FROM '" & feuilbase & "$'"  With .DataSource  .FirstRecord = wdDefaultFirstRecord  .LastRecord = wdDefaultLastRecord  End With  .Destination = wdSendToNewDocument  .SuppressBlankLines = True  .Execute Pause:=False  nomfich = Wrd.ActiveDocument.Name End With DocWord.Close False Set DocWord = Nothing: Set Wrd = Nothing MsgBox "El documento " & nomfich & " está listo" End Sub  ¿O debo compilar todo? ¿Y lo mismo para los otros botones? Si puede aclararme este punto. Cordialmente.

Le Pingou · Answer

Hola, Primer punto, ¿ha probado directamente mi propuesta?  -- Saludos. El Pingüino

nicodu072 · Answer

Lo siento, no puedo ayudar con eso.

Le Pingou · Answer

Hola, Les he preguntado si mi propuesta funcionaba y no he recibido respuesta, lo aprecio.. ! Por principio, probamos la propuesta y luego copiamos el código en la hoja de trabajo. Ahora ustedes precisan exactamente qué han copiado y dónde lo han pegado, no soy adivino.  -- Saludos. El Pingüino

nicodu072 · Answer

Buenas noches, para ser claro, probé su propuesta tal cual y apareció el error, luego al reemplazar mis archivos por los suyos seguía igual. Al ver esto, intenté en los míos eliminando mis antiguos módulos y creando uno nuevo en el que realicé la copia y pega. Lo siento si mi respuesta no fue lo suficientemente rápida, estuve ausente por la noche.

Le Pingou · Answer

Hola, Adjunto el archivo que he probado y que funciona para las 3 listas (Aera, Hidra y Regu). https://www.cjoint.com/?3Hpw1pj9u4G Copie el archivo ZIP en el escritorio, luego extraiga todos los archivos a una nueva carpeta en el escritorio y abra esta nueva carpeta, luego el libro [Nomenclature_jpp.xlw] y pruebe las 3 listas. Nota: no debe haber otra aplicación de Excel o Word en espera. Espero su respuesta (en caso de error, haga una captura de pantalla que pegue en un documento que me envíe).  -- Saludos. El Pingüino

nicodu072 · Answer

Sin embargo, ahora el mensaje de error indica "Proyecto o biblioteca no encontrada" en lugar de "Variable no definida". Adjunto los mensajes de error: https://www.cjoint.com/?BHpxIx8llcJ  ¿No podría ser que se trate de un problema de ruta?

Le Pingou · Answer

Hola, Gracias. Y esto que ya había precisado: Respecto al error con: [wdSendToNewDocument] controlar en Herramientas del editor VBA bajo Referencia que la [Microsoft Word xx.0 Object Library] esté marcada (si no es el caso, buscarla en la lista..)  -- Saludos. El Pingüino

Le Pingou · Answer

Hola, Les doy las instrucciones solo si todo funciona correctamente. Copiar el módulo [lepingou] completo y pegarlo en el módulo del libro de trabajo. Guardar y luego hacer coincidir cada botón de comando mediante clic derecho [Asignar a una macro...] y clicar en el botón adecuado de la lista y luego en Aceptar, y repetir para los otros 2. Buen trabajo y buenas noches. -- Saludos. El Pingüino

nicodu072 · Answer

Magnífico, funciona muy bien. De hecho, [Microsoft Word xx.0 Object Library] ya no estaba marcado. Habiendo estado marcado anteriormente, ¿esta función no se mantiene por defecto?  Ahora, supongo que si creo otros botones para publicar a partir de otra base, completo su protocolo regresando a su base para agregar los botones y simplemente modificando las variables [docpub] y [nomfeuil]?  Última pregunta, ¿conoce también un sitio u otro que explique en detalle y de manera completa el VBA? Porque para mí parece complejo saber qué y cómo declarar las variables y sobre todo la escritura a usar.  En cualquier caso, le estoy muy agradecido por toda la ayuda y el tiempo que me ha dedicado para resolver mis diferentes problemas.  Nuevamente, muchas gracias.

Le Pingou · Answer

Hola, Gracias por la información. Para un nuevo pedido debes copiar una de las macros (por ejemplo [Bouton_Aera_Clic()]), cambiar su nombre a [Sub Bouton_nouveau_Clic()] y modificar únicamente [docpub] y [nomfeuil]; las otras 2 están informadas por las referencias del libro base. Sin embargo, tengo un punto que no está claro: ¿por qué tienes 2500 líneas con fórmulas en cada una de las hojas [Lie....] y para las tablas correspondientes de las hojas [Liste Mat ...] no hay más de 45 líneas .....? ¿Cuál es la función de las tablas? Enlaces diversos: https://heureuxoli.developpez.com/office/word/vba-all/ http://boisgontierjacques.free.fr/ https://www.developpez.net/forums/ https://www.lecompagnon.info//demos/index.html  -- Saludos. El Pingüino

nicodu072 · Answer

Hola,  tengo 2500 líneas porque no sé cómo completar automáticamente la tabla [Enlace ...] cuando introduzco información en la tabla [Lista ...]. He expandido las fórmulas en una serie de líneas en [Enlace ...], que está vinculada a [Lista].  Estoy optimizando mis libros:  - Con un botón que he añadido, añado una nueva línea al final de la tabla [Lista Material Aéra], sin embargo, no logro arrastrar la fórmula de la celda Gx a la celda Gx. Hoy en día, simplemente logro pegar exactamente la misma fórmula y no enlazarla a su línea. Con este mismo botón, me veo obligado a extender mi primera línea de la hoja [Enlace Aéra] sobre todas mis otras líneas de esta hoja para asegurarme de tener una secuencia coherente de fórmulas en caso de añadir o eliminar líneas en la hoja [Lista Material Aéra].  - También realizo una ordenación de A a Z con otro botón en [Lista Material Aéra], que a su vez elimina duplicados en la hoja [Enlace Aéra] para evitar repeticiones durante el envío masivo.  ¿Tendría alguna solución para mi primer problema? ¿Y hay alguna manera de optimizar mis diferentes botones?  Para su información, mis macros están en el Módulo 2 del libro [Nomenclatura].  Carpeta: https://www.cjoint.com/?BHqpB3elh7D  Atentamente.

Le Pingou · Answer

Hola, Nota, añadir una línea con un botón no es realmente una buena idea. Entiendo que las tablas [enlace..] están ahí únicamente para el correo masivo ... ¿Sí / No? Antes de emprender algo, ¿cuál es el objetivo exacto de sus 3 listas?    Saludos. El Pingüino

nicodu072 · Answer

Entonces, la tabla [Lista Material ...] es una tabla que debemos proporcionar a nuestros clientes y la tabla [Enlace ...] permite, de hecho, agrupar la información para el correo masivo. Esta información proviene, por lo tanto, de los libros [Lista Proveedores] y [Nomenclatura].  Quería añadir una línea con un botón porque tengo, como expliqué anteriormente, un problema con la fórmula que ya no se sigue en la hoja [Enlace ...] cuando añado o elimino una línea en la hoja [Lista...].  Para remediar esto, he creado (por mi falta de conocimiento) este botón donde he grabado la macro que añade una línea al final de la tabla de la hoja [Lista Material ...] y que extiende mi fórmula a las 2500 líneas de la hoja [Enlace ...] para que estas se sigan correctamente.  No habría creado este botón si este problema no existiera. Para su información, al final las hojas [Enlace ...] no serán modificables ni visibles para los usuarios de estos libros. Por eso quería corregir este error mediante una serie de acciones a través del botón.  Si hay puntos que no están lo suficientemente claros para usted, quedo a su disposición.

Le Pingou · Answer

Hola, Gracias, pero no le pregunto cómo lo hace, sino más bien qué resultado debe obtener. El cuadro se establece para un cliente y lo registra en un archivo y al mismo tiempo sirve para elaborar la Ficha Técnica para DOE. Luego comenzamos de nuevo con un nuevo cliente.... ¡Si eso es correcto, entonces ¿cuántas líneas necesita por cliente....? Esa es la cuestión... La solución depende de todo esto. Aprovechando, las 3 tablas [Enlace...] no son más que para el correo masivo, así que podemos contentarnos con una sola tabla que se elaborará únicamente al realizar el pedido de la Ficha Técnica para DOE..... ¿Sí / No?   -- Saludos. El Pingüino

nicodu072 · Answer

Entonces, para responder a sus preguntas,  La tabla está establecida para un cliente y la registran en un archivo y al mismo tiempo sirve para elaborar la Ficha Técnica para DOE. Luego comenzamos de nuevo con un nuevo cliente.... !  SÍ  Si es así, ¿cuántas líneas necesita por cliente.... Esa es la pregunta..  Cada documento es variable. De hecho, no hay un número fijo de líneas, eso varía según el material que instalamos en nuestros clientes. Puede haber 5 líneas o 200 líneas (de ahí mis 2500 líneas para asegurarme de tener suficiente celdas con las fórmulas).  Por cierto, las 3 tablas [Enlace..] sólo están para el correo masivo, por lo que podemos contentarnos con una sola tabla que se elaborará únicamente al hacer el pedido de la Ficha Técnica para DOE..... ¿Sí / No?  Sí, las 3 tablas [Enlace...] efectivamente solo están para el correo masivo. Y es cierto que es posible tener una sola tabla que agrupe las 3 tablas [Lista Material...]. Sin embargo, en esta tabla, la aéraulica, la hidráulica y la regulación no deben mezclarse y en el caso de que agregue un material en la tabla [Lista Material Aéraulica], este debe colocarse antes del primer material Hidráulico en la tabla [Enlace].   Así que para resumir, mi resultado es, como usted mencionó, tener 3 listas de materiales (Aéraulica, Hidráulica y Regulación) teniendo en cuenta las repeticiones de líneas. Las listas deben estar ordenadas de A a Z y luego incrementadas usando la fórmula que me transmitió en uno de los antiguos mensajes resueltos.  Luego, creamos un archivo para correo masivo que incluya estas 3 listas sin tener en cuenta las repeticiones (duplicados).  ¿Está esto suficientemente claro?  Atentamente.

Le Pingou · Answer

Hola, Les dejo el descubrimiento: https://www.cjoint.com/?3HrxnkXiTSF  -- Saludos. El Pingüino

nicodu072 · Answer

Hola,  no sé qué más decir aparte de ¡BRAVO! y un ¡GRAN GRACIAS! por todo lo que han hecho por mí. Funciona muy bien y responde exactamente a lo que deseaba.  ¡Otra vez gracias!

Le Pingou · Answer

Gracias, de nada.  -- Saludos. El Pingüino

nicodu072 · Answer

Pequeño problema, cuando lo probé hace un rato, no abrí los archivos de envíos masivos de Word, solo verifiqué que se abrieran correctamente. Al abrirlos, me di cuenta de que cuando hago el envío masivo desde [Lista Material Aérau], funciona, pero luego, cuando inicio desde [Lista Material Hydrau], el envío masivo se abre pero el archivo de Word corresponde a la [Lista Material Aérau]. Para comprobar, fui a la hoja [Enlace envío masivo] y la tabla se actualiza correctamente como estaba previsto.  ¿Es un error de mi parte? Porque para el comando "Sub Publipostage(nompubli, nombase, feuilbase, chemin)" no han modificado nada excepto el msgBox y eso funcionaba muy bien antes.  Atentamente.

Le Pingou · Answer

Hola, Habiendo probado la aplicación antes de enviársela, le afirmo que los 3 documentos Word corresponden. ¿Me explica qué ha emprendido ....¨ !  -- Saludos. El Pingüino

Le Pingou · Answer

Hola, Aquí tienes una copia del resultado de la aplicación que envié: https://www.cjoint.com/?3Hsp5UORAqB  -- Saludos. El Pingüino

Le Pingou · Answer

Hola, Pequeña información sobre los procedimientos ordenar A-Z e insertar línea, he dejado sus procedimientos en el módulo [Module2] para que tenga una comparación con los míos [TrierB_AZ] y [ajoutligformu]   -- Saludos. El Pingüino

nicodu072 · Answer

Hola, entonces he extraído el zip en un nuevo archivo en mi escritorio, he activado la Biblioteca de Objetos de Microsoft Word xx.0 y ahora, al hacer clic en los botones para la Mail Merge, siempre se queda en el primer mail merge que proviene de la Regulación, aunque presiono el botón Aéraulique. Pero como recordatorio, la tabla Lien_Publipostage está bien actualizada.  No entiendo porque al intentarlo una y otra vez, elimino todo el archivo y vuelvo a su enlace para reiniciar el procedimiento y siempre lo mismo.  Quizás algo aún no esté activado en mi Excel.

Le Pingou · Answer

Hola, Gracias por el vídeo, está muy bien hecho (cosa que no sé hacer). Intenta de nuevo, pero sin borrar el documento de Word... ¡! -- Saludos. El Pingüino

nicodu072 · Answer

Buenas noches, esto no cambia nada, envíenme sus archivos, tal vez hubo un error durante la compresión o el envío (espero).  Para el video, aquí está: https://www.commentcamarche.net/telecharger/photo-graphisme/5423-camstudio/

Le Pingou · Answer

Hola, Has despertado mi curiosidad y he intentado realizar un video. Aquí está el primer resultado http://dl.free.fr/getfile.pl?file=/FNBIEoKV   -- Saludos. El Pingüino

nicodu072 · Answer

De hecho, funciona muy bien en su casa. Me veré obligado a pedirle que venga a trabajar con nosotros ;-). Veo que usted trabaja con Office 2010, yo trabajo con 2007. ¿Puede tener eso una incidencia? Por favor, recuerde enviarme su archivo para verlo.  Atentamente.

Le Pingou · Answer

Hola, En este caso, una nueva puesta a disposición del archivo no cambiará nada. Hay que poner un punto de interrupción en el procedimiento [Publipostage(nompubli, nombase, feuilbase, chemin)] en el nivel de [DocWord.Close False] para ver qué está pasando en el documento de Word.   -- Saludos. El Pingüino

nicodu072 · Answer

Hola, He realizado el punto de detención como me pidió. Todo va bien hasta la selección del destinatario en la mezcla de correspondencia que permanece en las referencias RAx (ver video): https://www.cjoint.com/?BHtnAc7DtW7  Por lo tanto, he realizado un punto de detención en el archivo antiguo (de finales de semana sin la mezcladecorrespondenciasinduplicados) para ver qué pasaba y aquí la actualización de destinatarios se efectúa correctamente: https://www.cjoint.com/?BHtnEqWahX7  Para intentar, tomé el antiguo documento de Word, donde el procedimiento funcionaba, y lo puse en lugar del nuevo. No cambia nada, la actualización tampoco se efectúa. Entonces, ya sabemos que esto no proviene del archivo de Word. Ahora, ¿por qué funciona en su computadora y no en la mía? He intentado en una computadora que funciona con SEVEN como usted me parece, y funciona perfectamente. Lo guardé y lo reenvié a mi PC (Vista) y otra vez lo mismo. Pero esta vez la referencia permanece en Hx, que es la última mezcla de correspondencia lanzada antes del guardado en la otra PC.  El problema podría provenir entonces del sistema operativo y tal vez de la parte mezcladecorrespondenciasinduplicados? ¡Raro!

Le Pingou · Answer

Hola, Gracias por la información. De todos modos, no hay parte [publipostagesansdoublon], creo que más bien se trata de una información faltante en el código... ! ¿Es que [bajo SEVEN] la versión de MSO es 2007 o 2010? Por ahora no he encontrado nada. Paciencia, porque mañana voy a probar en otro PC con MSO 2007 y tal vez encuentre la clave del problema.    Saludos. El Pingüino

nicodu072 · Answer

Hola, Entonces, bajo SEVEN, la versión utilizada es MSO 2007. En este caso, ¿significaría que falta una información en el código para funcionar bajo Vista? ¿Cómo es posible? Porque en ningún lugar ustedes hacen referencia a un sistema operativo. Atentamente.

Le Pingou · Answer

Hola, Información muy interesante. Espere hasta mañana.  -- Saludos. El Pingüino

Le Pingou · Answer

Hola, Bueno, mi prueba con PC bajo Windows Vista y MSO2007 ha revelado los mismos problemas que usted ha observado. Parece que bajo Vista el UAC se confunde? Por ahora no he encontrado el porqué y por eso la solución. No pierdo la esperanza de encontrar.... !   -- Saludos. El Pingüino

nicodu072 · Answer

Buenas noches, Me tranquiliza. No se preocupen por eso, al menos no dediquen demasiado tiempo por mi culpa, ya que lo probé en la oficina y funciona en mi PC que está con Seven. Simplemente no podré usarlo en mi PC personal. Sin embargo, gracias por su ayuda. Estoy mejorando aún más el archivo. Si les interesa, se los adjunto cuando termine para tener la opinión del experto ;-).. Buenas noches. Atentamente

Le Pingou · Answer

Hola, Gracias por realizar una prueba con esta versión: https://www.cjoint.com/?3Hvtly5XMhj   -- Saludos. El Pingüino

nicodu072 · Answer

Buenas noches,  ¡Felicidades!  El archivo funciona perfectamente bien. No he tomado el tiempo para entender todo el código, pero he notado que ha modificado el tipo de variable, especificado con más detalle la apertura de la base de datos y creado el registro automático de archivos en el directorio según un nombre predefinido.  Nuevamente, gracias por su ayuda.  Atentamente.

Le Pingou · Answer

Hola, Contento de saber que todo va bien por su parte. De hecho, como siempre, cuando nada va bien, vuelvo a escribir el código sin tener en cuenta lo existente, por eso ven que hay otra forma de escribirlo. Pero el problema con Windows Vista es que no entiende los cambios en el archivo fuente (Excel) si no están guardados (a diferencia de Windows 7). Aparte, si prueban la versión con las 3 hojas de enlaces, se darán cuenta de que si modifican los datos en una de las tablas [Listes...], los documentos de Word estarán incorrectos. Respecto a: el guardado automático de archivos en el directorio en función de un nombre predeterminado  es con el fin de poder controlar el resultado obtenido en relación con la solicitud inicial (quién va con quién).   -- Saludos. El Pingüino

nicodu072 · Answer

Buenas noches, Muy bien, gracias por esta información adicional. Y gracias nuevamente por su trabajo. Atentamente.

Problema de macro entre Excel y Word

51 respuestas

Reinstalación de w11 imposible tras fallo del pc...

Quiero saber cómo denunciar una estafa

Sitio inaccesible

Dossier de elementos enviados inexistente

Transferencia de mp3 de pc a portátil

Aumentar la capacidad del webmail zimbra en free a 10go

Usb no actualizado en la interfaz de android

Tencent imposible de eliminar

¿tienes suficiente espacio de almacenamiento en mi vps?

Gps tracker para coche