NbLettre.xla y KB3115262 Resuelto

Question

Hola,
Necesito NbLettre.xla (ConvNumberLetter) para editar mis facturas en Excel.
Desde KB3115262, los complementos no funcionan más:
=ConvNumberLetter(*#) se convierte en
='C:\Users\...Roaming\Microsoft\AddIns\NbLettre.xla'!ConvNumberLetter(*#) (cualquiera que sea la ubicación de almacenamiento del complemento)

¿Hay alguna forma de eludir este problema? ¿Otra manera de escribir números en letras?

He probado mil manipulaciones antes de tener que recurrir a la desinstalación diaria de KB3115262. Por supuesto, también dejo un mensaje diario a Microsoft al mismo tiempo. ¿Todos los complementos están afectados? ¿Microsoft reaccionará finalmente?

Maurice · Accepted Answer

Hola
tengo una vieja función para probar

=chiffrelettre(C2)

 Function chiffrelettre(s) Dim a As Variant, gros As Variant a = Array("", "uno", "dos", "tres", "cuatro", "cinco", "seis", "siete", _ "ocho", "nueve", "diez", "once", "doce", "trece", "catorce", "quince", "dieciséis", _ "diecisiete", "dieciocho", "diecinueve", "veinte", "veintiuno", "veintidós", "veintitrés", "veinticuatro", _ "veinticinco", "veintiséis", "veintisiete", "veintiocho", "veintinueve", "treinta", "treinta y uno", _ "treinta y dos", "treinta y tres", "treinta y cuatro", "treinta y cinco", "treinta y seis", "treinta y siete", _ "treinta y ocho", "treinta y nueve", "cuarenta", "cuarenta y uno", "cuarenta y dos", "cuarenta y tres", _ "cuarenta y cuatro", "cuarenta y cinco", "cuarenta y seis", "cuarenta y siete", "cuarenta y ocho", _ "cuarenta y nueve", "cincuenta", "cincuenta y uno", "cincuenta y dos", "cincuenta y tres", _ "cincuenta y cuatro", "cincuenta y cinco", "cincuenta y seis", "cincuenta y siete", "cincuenta y ocho", _ "cincuenta y nueve", "sesenta", "sesenta y uno", "sesenta y dos", "sesenta y tres", _ "sesenta y cuatro", "sesenta y cinco", "sesenta y seis", "sesenta y siete", "sesenta y ocho", _ "sesenta y nueve", "sesenta y diez", "sesenta y once", "sesenta y doce", "sesenta y trece", _ "sesenta y catorce", "sesenta y quince", "sesenta y dieciséis", "sesenta y diecisiete", _ "sesenta y dieciocho", "sesenta y diecinueve", "ochenta", "ochenta y uno", _ "ochenta y dos", "ochenta y tres", "ochenta y cuatro", "ochenta y cinco", _ "ochenta y seis", "ochenta y siete", "ochenta y ocho", "ochenta y nueve", _ "ochenta y diez", "ochenta y once", "ochenta y doce", "ochenta y trece", _ "ochenta y catorce", "ochenta y quince", "ochenta y dieciséis", "ochenta y diecisiete", _ "ochenta y dieciocho", "ochenta y diecinueve") gros = Array("", "billones", "mil millones", "millones", "mil", "euros", "billon", _ "mil millones", "millón", "mil", "euro") sp = Space(1) chaine = "00000000000000" centime = s * 100 - (Int(s) * 100) s = Str(Int(s)): Lg = Len(s) - 1: s = Right(s, Lg): Lg = Len(s) If Lg < 15 Then chaine = Mid(chaine, 1, (15 - Lg)) Else chaine = "" s = chaine + s 'billones al centavo gp = 1 For k = 1 To 5 x = Mid(s, gp, 1): c = a(Val(x)) x = Mid(s, gp + 1, 2): d = a(Val(x)) If k = 5 Then If t2 <> "" And c & d = "" Then mydz = "Euros" & sp: GoTo Fin If t <> "" And c = "" And d = "uno" Then mydz = "un euro" & sp: GoTo Fin If t <> "" And t2 = "" And c & d = "" Then mydz = "de euros" & sp: GoTo Fin If t & c & d = "" Then myct = "": mydz = "": GoTo Fin End If If c & d = "" Then GoTo Fin If d = "" And c <> "" And c <> "uno" Then mydz = c & sp & "centavos " & gros(k) & sp: GoTo Fin If d = "" And c = "uno" Then mydz = "centavo " & gros(k) & sp: GoTo Fin If d = "uno" And c = "" Then myct = IIf(k = 4, gros(k) & sp, "uno " & gros(k + 5) & sp): GoTo Fin If d <> "" And c = "uno" Then mydz = "centavo" & sp If d <> "" And c <> "" And c <> "uno" Then mydz = c & sp & "centavo" + sp myct = d & sp & gros(k) & sp Fin: t2 = mydz & myct t = t & mydz & myct mydz = "": myct = "" gp = gp + 3 Next d = a(centime) If t <> "" Then myct = IIf(centime = 1, " centavo", " centavos") If t = "" Then myct = IIf(centime = 1, " centavo de euro", " centavos de euro") If centime = 0 Then d = "": myct = "" chiffrelettre = t & d & myct End Function

A+
Maurice

PapyLuc51 · Answer

Hola,

Tengo exactamente el mismo problema con NbLettre.

Tras buscar mucho, encontré un truco menos restrictivo mientras espero la reparación de Microsoft.

Sin modificar la ubicación del archivo en los complementos de Microsoft.

En la pestaña "desarrollador", abrir "complementos", desmarcar NbLettre y aceptar; luego volver a activar y aceptar. El código reaparece en las macros y sigue activo mientras no se cierre el libro

Espero que esto ayude

Saludos cordiales

Vince98800 · Answer

Hola, les expongo mi solución:

El método de instalación del complemento descrito aquí:
http://excel-competence.over-blog.com/article-ecrire-des-nombres-en-toutes-lettres-dans-excel-48213970.html
que consiste en guardar el archivo .xla, declarar la macro desde Excel indicando su ubicación;
este método parece ser rechazado por el parche KB3115262 (que por cierto ahora se instala en 6 ejemplares) que percibe inexorablemente la fuente como no confiable.

He encontrado esta página:
https://answers.microsoft.com/fr-fr/office/forum/office_2010-excel/telechargement-et-instalation-de-nblettre/c17d5df2-c565-43d3-b346-7b2201c47706?rtAction=1471392961855
que propone un ejemplo de uso de ConvNumberLetter que funciona sin manipulaciones diarias.

Esto es lo que hice, y a decir verdad lamento no haber hecho esto desde el principio. Es una pena que este método no esté más promovido en todas partes.

1. Descargar el archivo propuesto en la página mencionada anteriormente (https://www.cjoint.com/c/DIcubVrkMbV o encontrar cualquier otro ejemplo que contenga una macro que te interese.
2. Abrir este archivo, activar las modificaciones, activar el contenido.
3. Abrir tu archivo en el que deseas añadir la macro.
4. En uno u otro documento, escribe alt+f11.
5. En la ventana en la parte superior izquierda (VBAProject) verás aparecer los dos documentos: VBAProject (tu documento) y VBAProject (DIcubVrkMbV...)
6. Debajo del segundo encontrarás un solo módulo, el que nos interesa; arrástralo a VBAProject (tu documento). [¡casi está terminado!]
7. Cierra DIcubVrkMb...
8. En tu documento: ve a Archivo/Opciones/Centro de Gestión de la Confidencialidad/Configuración del Centro de Gestión de la Confidencialidad/Opciones de Confidencialidad/Parámetros Específicos del Documento/ y desmarcar "Eliminar la información personal... al guardar". -sin esto, recibirás un mensaje de advertencia en cada guardado indicándote que ciertos datos personales no pueden ser eliminados (el contenido de la macro)-
9. Para implementar la macro: presiona la tecla fx desde la casilla adecuada, en el menú desplegable selecciona "personalizadas", ahí tienes la macro.

Es pesado de describir, pero en realidad es mucho más rápido e intuitivo a mis ojos.
Es aplicable con cualquier macro y no quita nada a las variantes posibles como la función de Maurice, que, por cierto, funciona porque presentada así, necesariamente debe ser copiada y pegada en VBA y no utilizada externamente como un .xla.

Si deseas eliminar NbLettre.xla, no olvides ir también a Archivo/Opciones/Complementos/"Complementos de Excel": Alcanzar, desmarcar NbLettre, aparece un mensaje para decirte que no se encuentra, acepta (de lo contrario recibirás un mensaje de error cada vez que abras).
Sin embargo, ten cuidado, NbLettre.xla todavía se utiliza por tus documentos antiguos. Incluso si el resultado ya no es modificable debido al parche, simplemente aparece mientras no se realice ninguna modificación.

Espero que mis avances ayuden a otros a progresar.
Buen trabajo a todos y gracias por sus intervenciones.
Saludos cordiales,
Vincent F

PapyLuc51 · Answer

Hola a todos  Hola Vince98800.  He ejecutado tus manipulaciones y todo funciona bien, excepto por un detalle; hay un pequeño error en el código:  el plural de centime se escribe con dos s (centimess) para el euro y el dinar, y esto en todos los idiomas.  Creo que hay una rectificación que hacer en el código, pero no sé hacerlo, no tengo ningún conocimiento en VBA.  Atentamente

PapyLuc51 · Answer

Hola,  Vince98800 intenté la jugada a pesar de mi desconocimiento de VBA y bingo  Hice una comparación con el código del complemento NbLetrre.xla. En la sección "select case devise" que reproduzco a continuación, he retirado las líneas mencionadas en negrita por un lado porque en la case 2 "dólar" no están y por otro lado porque la que sigue a End Select añade un "s" para el plural     Select Case Devise  Case 0  If byDec > 0 Then strDev = " coma "  Case 1  strDev = " Euro"  If dblEnt >= 1000000 And Right(dblEnt, 6) = "000000" Then strDev = " de Euro"  If byDec > 0 Then strCentimes = strCentimes & " Centime"  If byDec > 1 Then strCentimes = strCentimes & "s"  Case 2  strDev = " Dólar"  If byDec > 0 Then strCentimes = strCentimes & " Cent"  Case 3  strDev = " Dinar"  If dblEnt >= 1000000 And Right(dblEnt, 6) = "000000" Then strDev = " de Dinar"  If byDec > 0 Then strCentimes = strCentimes & " Centime"  If byDec > 1 Then strCentimes = strCentimes & "s"  End Select  If dblEnt > 1 And Devise <> 0 Then strDev = strDev & "s"   Atentamente

NbLettre.xla y KB3115262

5 réponses

Windows en primera página no funciona.

Capa de destino oculta

Samsung j5 imposible de contestar

Estafa autopista del suvedene

Nombre de archivo demasiado largo

Sin sonido con ps3 y hdmi

Problemas de conexión a internet con mi ipad

Control remoto de free box roto

Sms con número sospechoso

Estoy recibiendo llamadas de números no asignados.