Chat en red local desde excel (actualizado 25/09/15)

[AlexanderS]

Buenos días/ tardes/ noches

A raíz de este tema, cree este aporte, utilizando una base de datos access y un libro de excel.

Para que funcione se debe copiar el archivo "Chat.accdb" a una carpeta compartida o a la carpeta publica, a la cual los usuarios que utilizaran el chat tengan acceso, cada uno de los usuarios debe tener el archivo "chat.xlms".

Se debe cambiar la ruta de la base de datos en el modulo1.

Actualización 25/09/15

*Ahora se pueden compartir imágenes.

*Se crea una carpeta llamada "media" en el directorio de la base de datos, para almacenar las imágenes compartidas.

*Los cuadros de msj se ajustan mejor al contenido del mismo.

*Aumentado el tamaño del formulario.

*Mejora del diseño (cualquier parecido con Whatsapp es pura coincidencia ).

*El formulario ahora se puede minimizar (esta API puede ser incompatible en algunos equipos por lo que se adjunta una versión sin esta también) .

*Se puede trabajar en otros libros de excel mientras el chat esta abierto( modal=false).

*Algunas otras correcciones.

La ruta de la base de datos debe tener una estructura similar a esta:

\\10.10.200.254\Users\Public\Documents

Saludos a todos.

Chat Excel_RIDDLE V2.rar

[Manuel Franco]

Excelente [uSER=143023]@Riddle[/uSER] , nunca pensé que se pudiera hacer este tipo de cosas en excel... Simple mente excelente...

[kanll]

Gracias, pero me marca error en:

Private Sub UserForm_Initialize(): On Error Resume Next

Call Conecta

Set Rs = New ADODB.Recordset

y emite el siguiente mensaje.

"La caracteristica de la biblioteca de objetos no es compatible"

No se si me falta activar algun complemento.

[AlexanderS]

[uSER=128107]@kanll[/uSER] cual es tu versión de excel??

Ese error se da muchas veces por una mala instalación del office, lo he probado en excel 2010 y 2013 sin problemas.

[bigpetroman]

Excelente aporte [uSER=143023]@Riddle[/uSER], muy bueno

[uSER=128107]@kanll[/uSER], no necesariamente tiene que ser un problema de instalación de office, entra en el editor de VB (ALT+F11) luego en menú herramientas le das a Referencias, debe salir una ventana con las referencias del libro, alguno debe decir algo como FALTA, MISSING, (por ejemplo Microsoft ActiveX Data.....) si es así es que NO tienes esa version de esa libreria, desmarcala y MARCA la que tengas en tu maquina (la buscas en la lista).

suerte

[pajuma]

yo uso excel 2007 ami me sale lo mismo que kanll revise lo indicado por bigpetroman pero aun asi persiste este error la caracteristica de la biblioteca de objetos no es compatible ...

[pajuma]

hola solucione el problema active estas referencias y listo funciona.

[kanll]

Muchas gracias, tema solucionado.

[marroco312]

que buen aporte [uSER=143023]@Riddle[/uSER] , excelente

tengo una inquietud, cuando pasa de un dia a otro, se podría hacer que no se muestre lo conversado del dia anterior?

saludos

[AlexanderS]

[uSER=179514]@marroco312[/uSER], perdona por no contestar antes, prueba el adjunto solo mostrara las conversaciones del día.

Salu2

Chat Excel_RIDDLE.rar

[marroco312]

[uSER=143023]@Riddle[/uSER] , excelente

genial y nuevamente gracias

[marroco312]

hola, pregunta se puede agregar la imagen que tiene por defecto cada computador,

saludos

[Muscaria]

esta genial, una pregunta, se puede mientras estas usando otro archivo de excel.

espero que se posible.

Saludos,

[yordin]

hermano esta excelente el aporte ya en uso, solo quedaría ajustarle que la pantalla de chat o el excel pueda minimizarse o moverse para que no este siempre abierta sin necesidad de cerrarla, y en el chat activo que sea mas largo la linea de textoxq si escribo mas de 200 caracteres no se espande sino que se queda a maximo 5 centimetros, te paso paso la imagen de como pude ampliar el texboxt pero no se xq no se amplia mas el recuadro de mensaje

[yordin]

otra cosa amigo un error que esta generando en el archivo lo instale en toda la red de recursos humanos de mi oficina, corre excelnete en 7 equipos con window 7 y office 2010 pero en dos que tienen window xp con office 2007 da el error siguiente que veras en la imagen

[AlexanderS]

Estoy trabajando en una actualización del archivo, para corregir algunas cosas y darle una mejor apariencia, también para tener la posibilidad de adjuntar imágenes.

Apenas termine las pruebas lo subo.

[uSER=173994]@yordin[/uSER], por lo que estuve leyendo el error que te da debe ser por la falta de alguna librería.

Salu2

[yordin]

si pudieras ayudarme te agradeceria xq he revisado y no logro conseguir el error en los office 2007, y si deberias agregarle alertas de cuando tiene nuevos mensajes y que se logre minimizar la sala de chat xq suponiendo aca cree sala1 general y sala2 para jefes de departamento, y si chat en una sala para cambiar tengo q cerrarla y abrir la otra, y cuando vuelvo a la que habia cerrado mis mensajes no se colocan debajo de los anteriores sino al principio de la conversacion, jejeje si estas actualizando agregale los emoticones que ya mis compañeras lo estan pidiendo jejeje luego de eso patenta la aplicacion xq buscando en internet es la primera que veo

[AlexanderS]

Subida la actualización, ver los cambios y el archivo en el 1 mensaje

Salu2

[yordin]

excelente compa, hasta el momento lo acabo de probar solo da un titileo cuando se comparte una imagen se envía bien y se ve dentro del chat, pero queda un bug de la pantalla luego de enviarse, y si se da click a la imagen para abrirla se cierra la ventana de chat completa

[marroco312]

[uSER=143023]@Riddle[/uSER]

excelente aporte saludos

[carluci]

seria excelente que enviara un sonido cada vez que envían un mensaje

[JUANJG]

Excelente, estoy creando un aplicativo a base de excel y este es el complemento perfecto para el mismo.

Gracias por compartirlo

[yordin]

Subida la actualización, ver los cambios y el archivo en el 1 mensaje

Salu2

excelente compa, hasta el momento lo acabo de probar solo da un titileo cuando se comparte una imagen se envía bien y se ve dentro del chat, pero queda un bug de la pantalla luego de enviarse, y si se da click a la imagen para abrirla se cierra la ventana de chat completa y como dice el amigo [uSER=169315]@carluci[/uSER] seria bueno que notificara cuando llega un mensaje nuevo, aunque estaba viendo que si se esta en otra sala no se va poder recibir notificaciones, ademas solo permite ver una sala de chat al mismo tiempo, aunque el aporte es genial amigo.

[winkey777]

hola [uSER=143023]@Riddle[/uSER] un bmuy buen aporte, solo q tengo un prblemita, quiero hacerle unos cambios para mi uso pero cuando entro al editor y quiero abrir el form del chat.. se abre y se cierra solo. no puedo trabajar en el.. nose que pasa.. yo uso office 2016.. talvez me ayudas con eso para seguir aportando a este excelentisimo trabajo..

Gracias.

[JUANJG]

Hola [uSER=162198]@winkey777[/uSER] debes cerrar el excel, abrirlo nuevamente y sin realizar ninguna acción en excel ingresar al editor de vba, a mi también me pasaba y creo que es porque en cuanto ejecuto cualquiera de las macros empieza a ejecutarce en el codigo de este proyecto el "Application.OnTime" cada segundo y sabemos que si el form esta en ejecución no me deja modificar el código.

Espero te sirva.