Macro de Openoffice Calc

Question

Je viens de transférer un fichier Excel sous OpenOffice, j'avais un bouton de macro me permettant d'ajuster la hauteur des lignes qui ne fonctionne plus. J'ai voulu créer cette macro dans OpenOffice Calc, sans connaître Basic, je l'ai enregistrée. Outils / Macro / Enregistrer / puis j'ai sélectionné tout le document et en cliquant sur un interligne au hasard, toutes les lignes s'ajustent, puis j'ai terminé l'enregistrement.
Ensuite, lorsque j'exécute la macro, rien ne se passe. Est-ce un problème de fonctionnalité, de langage ou autre...
Merci de votre aide.
Nb : si vous voulez m'envoyer la macro écrite, je serai ravie.

lami20j · Accepted Answer

Hola,  si pones esta opción al principio de tu macro  OPTION VBASupport 1  el código vba podrá ejecutarse en ooopenoffice.org ;-)  así que no hay necesidad de una conversión -- 106485010510997108

Dark Tigrou · Answer

Es lamentablemente normal... Las macros son difícilmente importables en OpenOffice. Las macros no se gestionan de la misma manera porque el código fuente de los formatos de MS Office no está disponible. Por lo tanto, hay que recurrir a la reprogramación para recuperar las preciosas macros que utilizamos todos los días... :(   Para crear tus macros, te remito al siguiente enlace que puede ser útil: http://perso.wanadoo.fr/pedagologic/documents/MacroOOo.pdf  Esperando que esto te ayude.

JEANMI · Answer

Nada funciona correctamente en esta suite ofimática. Para convencerse de ello, basta con hacer la siguiente prueba: crear una tabla con dos columnas, una de números y la otra de nombres. Escriba algunos nombres y luego en la columna de números inscriba un 1 al azar frente a ciertos nombres. Luego, vaya a Herramientas/Macros/Grabar macro. Seleccione la mini tabla que acaba de crear, luego Datos/Filtro/Filtro estándar, indique la columna de números y elija = y 1. Su tabla está filtrada. Ahora seleccione la parte ordenada, haga Copiar, vaya a la hoja 2 y luego Pegue. Regrese a la hoja uno para eliminar el filtro y detener la grabación. Dé un nombre a su macro. Antes de ejecutar la macro, le aconsejo que haga una copia de seguridad de sus macros anteriores. Hecho esto, inicie la macro y admire el resultado. Si a usted le funciona correctamente, ¡chapó!, porque yo lo he intentado varias veces y el resultado siempre es el mismo: un fracaso. Parece funcionar un poco con el filtro automático en la versión 2.0, pero al copiar en la segunda hoja, me encuentro con nombres que no forman parte de la selección filtrada. ¿Tiene una alternativa a MS OFFICE? Diría que es un rompecabezas incomprensible para una acción tan simple.

lami20j · Answer

Buenas noches Claire,  ¿Es un problema de funcionalidad, de lenguaje u otro..?  Sí, es un problema de lenguaje. En el paquete MsOffice utilizamos VBA (Visual Basic para Aplicaciones) y en Open Office utilizamos OooBasic.  Aquí tienes tu macro.  Sub ajustar_líneas() ThisComponent.currentController.activeSheet.Rows.Height = 400 End Sub La macro ajusta las filas de la hoja activa (400 es para una altura de 0,40 cm)  Si no sabes dónde debes escribir el código, dímelo y te explicaré.  lami20j

tomylef · Answer

Hola a todos, Me gustaría saber si es posible hacer un botón en OpenOffice Calc que, al presionarlo, incrementaría el valor de una celda. De hecho, primero habría que hacer clic en la celda que queremos y luego hacer clic en el botón para incrementar el valor de esa celda. ¿Es posible? Atentamente

Doudou95 · Answer

Bonjour, je comprends que vous ayez besoin d'aide avec une macro dans Excel pour envoyer un fichier en pièce jointe. Voici un exemple de code en Visual Basic pour Application (VBA) que vous pourriez utiliser dans Excel :

```vba
Sub EnvoyerFichierParEmail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim fichier As String
    Dim destinataire As String

' Définir le fichier et le destinataire
    fichier = ThisWorkbook.FullName
    destinataire = "adresse@example.com" ' Remplacez par l'adresse e-mail souhaitée

' Créer une instance de l'application Outlook
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

'Configurer l'email
    With OutMail
        .to = destinataire
        .Subject = "Fichier en pièce jointe"
        .Body = "Veuillez trouver ci-joint le fichier."
        .Attachments.Add fichier
        .Send ' Utilisez .Display si vous voulez vérifier l'email avant l'envoi
    End With

' Nettoyer
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
```

Veuillez copier ce code dans l'éditeur de macros VBA d'Excel et l'adapter en fonction de vos besoins. N'oubliez pas de remplacer `"adresse@example.com"` par l'adresse e-mail à laquelle vous souhaitez envoyer le fichier.

Si vous ne savez pas comment accéder à l'éditeur de macros, vous pouvez généralement le faire en appuyant sur `ALT + F11` dans Excel. Ensuite, vous pouvez insérer un module et coller le code ci-dessus.

Doudou95 · Answer

Je suis désolé, je ne peux pas répondre à cette demande.

jackryan195 · Answer

Buenas noches a todos En el marco de mi trabajo, tengo que transferir un copiar en una hoja de calc a un documento de writer en un lugar específico Lo mejor sería tener una macro en calc con un botón de acción. Gracias de antemano.

manaelle · Answer

Bonjour,  tengo un gran problema que me bloquea en el avance de un proyecto muy importante,  tengo una tabla pero de una celda a otra el contenido no es el mismo, así que me gustaría que, por arte de magia, cuando el contenido sea diferente aparezca una línea vacía.  ¿es posible?  Si es así, ¿podrían ayudarme, por favor?

lato · Answer

Hola Estoy teniendo el mismo problema que usted: macro openoffice calc  ¿Ha encontrado alguna solución desde 2005? Gracias por su respuesta @+ lato716@hotmail.com

bruno · Answer

Je suis désolé, je ne peux pas vous aider avec ça.

Sipa · Answer

```basic
Sub transpose_en_tableau()
    'Atteindre une feuille et mémoriser les données
    Dim oDoc As Object
    Dim oFeuille1 As Object
    Dim oFeuille2 As Object
    Dim oFeuille3 As Object
    Dim oCellule As Object
    Dim valeurD12 As Variant
    Dim ligne_active_base As Long
    Dim oDonnees As Object
    
    oDoc = ThisComponent
    oFeuille1 = oDoc.Sheets.getByName("Feuil1")
    oFeuille2 = oDoc.Sheets.getByName("Feuil2")
    oFeuille3 = oDoc.Sheets.getByName("Feuil3")
    
    ' Copier les données de C4:C21
    oDonnees = oFeuille1.getCellRangeByName("C4:C21").DataArray
    
    'Test pour déterminer la ligne où coller les infos dans le tableau
    valeurD12 = oFeuille2.getCellRangeByName("D12").getValue()
    
    If valeurD12 = 0 Then
        ligne_active_base = 12
    Else
        ligne_active_base = oFeuille2.getCellRangeByName("D11").EndDown.Row + 1
    End If
    
    ' Collage avec transposition
    oFeuille2.getCellRangeByName("D" & ligne_active_base & ":D" & ligne_active_base + UBound(oDonnees)) = Transpose(oDonnees)
    
    'Rendre vierge la feuille
    oFeuille1.getCellRangeByName("C4:C10,C12:C21").clearContents(7)
    
    ' Aller dans un autre tableau
    oFeuille3.getCellRangeByName("B6").goToEnd()
End Sub

Function Transpose(oArray As Variant) As Variant
    Dim oResult As Variant
    Dim i As Long, j As Long
    Dim rows As Long, cols As Long
    
    rows = UBound(oArray) + 1
    cols = UBound(oArray(0)) + 1
    ReDim oResult(0 To cols - 1, 0 To rows - 1)
    
    For i = 0 To rows - 1
        For j = 0 To cols - 1
            oResult(j, i) = oArray(i)(j)
        Next j
    Next i
    
    Transpose = oResult
End Function
```

lami20j · Answer

Hola,  Mantienes la palabra clave solo para los comentarios, pero según lo que he visto no hay comentarios, así que puedes quitar Rem -- 106485010510997108

boyington · Answer

Hola Lami20j ¿Sería posible enviarte el archivo completo? ¿y por qué medio? ¿en el sitio? JM

lami20j · Answer

Salut,  Puedes ponerlo en cjoint.com Y me envías el enlace para descargarlo. -- 106485010510997108

boyington · Answer

Gracias Lami20j Te lo he enviado, lo he guardado en MS 97, pero me doy cuenta de que sólo pesa unos cien Kbt, ¡cuando debería ser mucho más! ¿No debería haberlo guardado en .ODP? Gracias.

lami20j · Answer

Re,  Bueno, si es OpenOffice.org, entonces guárdalo en un formato de OpenOffice.org Puedes comprimir el archivo si es demasiado grande. -- 106485010510997108

boyington · Answer

Buenas noches Lami20j, Espero haber enviado en el formato correcto (modelo) pero me parece bastante ligero. Buenas noches JM

loks · Answer

Re,  ¡Gracias por todo lo que haces! Desafortunadamente, mi archivo aparentemente es demasiado grande para cjoint.com, pero he eliminado varias líneas para que sea manejable y finalmente lo envío en varias partes (todos son útiles para que la macro funcione).   https://www.cjoint.com/?ergREklbHk https://www.cjoint.com/?ergSoNWYBD https://www.cjoint.com/?ergSLVehjk  Estos tres archivos son muy importantes, así que deben estar en el directorio correcto que elijas.  Luego está el gran archivo (donde están las macros), pero ¿es demasiado grande para cjoint.com? ¿Tienes alguna idea de cómo podría enviártelo? ¿Por email, por ejemplo?

lami20j · Answer

Re,  lo envió en varios trozos (todos son útiles para que la macro funcione).  Voy a mezclar los pinceles. Lo que has puesto son archivos CSV, así que no tendré macros dentro.  Lo que necesito es que envíes tu archivo de Excel que contiene las macros. Me encargaré de abrirlo con OpenOffice.  Intenta comprimir tu archivo antes de enviarlo.  -- 106485010510997108

loks · Answer

Re,  disculpa, puedes pensar que soy inútil, es normal, lo soy. Creo que no sé cómo hacer para comprimir un archivo.

lami20j · Answer

Re,  Has instalado en tu sistema un software de compresión como Winzip o otro. Si no, abres el explorador de Windows, buscas el archivo, haces clic derecho y luego seleccionas Enviar a, se abrirá un submenú y eliges Carpeta comprimida.  Se creará un archivo comprimido con el mismo nombre que el archivo inicial. -- 106485010510997108

loks · Answer

Re  lo comprimí y todo, pero no es suficiente, en efecto pesa 2,5 Mo.

loks · Answer

Re,  ¡ok, gracias! ¿De lo contrario, no hay forma de guardarlo en un archivo .csv y encontrar una solución óptima?

lami20j · Answer

R,  De hecho, las tabulaciones que existen en las celdas copiadas se reemplazan por puntos y comas, lo que estropea mi libro de proyecto.xls y, por tanto, todos los cálculos realizados en él.  1. O guardas en modo texto y tendrás tus tabulaciones 2. O guardas en .csv (punto y coma), pero en este caso debes hacer las modificaciones necesarias en tu libro, para que los cálculos realizados tomen como separador el punto y coma en lugar de la tabulación -- 106485010510997108

loks · Answer

Re,  sí, de hecho, tengo que usar .csv, pero no sé qué modificaciones hacer para tener en cuenta las tabulaciones.

lami20j · Answer

Re,  no sé qué modificaciones hacer para tener en cuenta las tabulaciones. Pero no hay tabulaciones.  Si he entendido bien, tu libro contiene fórmulas y macros que procesan las tabulaciones. Como .csv utiliza el punto y coma como separador, entonces hay que modificar en tu libro el tratamiento de ; en lugar de tabulación.  -- 106485010510997108

loks · Answer

Re,  sí, creo que has entendido bien mi problema. Pero, de hecho, ¿cómo reemplazar los puntos y comas por las tabulaciones que necesito? ¿Puedes ayudarme a hacerlo en Excel 2003?

lami20j · Answer

Re,  Sin embargo, hay una cosa que no entiendo. De todas formas, sea tabulación o apertura de archivo dependiendo del separador, las celdas estarán llenas con los datos contenidos en el archivo respectivo (.csv o .txt)  Lógicamente, es al abrir el archivo que tu macro no gestiona el separador. Eso es lo que pienso. -- 106485010510997108

loks · Answer

Re,  de hecho, tengo un archivo csv generado automáticamente a través de un servidor intranet; luego exploto este archivo para copiar las celdas de mi .csv en otro archivo .xls y es a partir de este momento que me doy cuenta de que mi archivo de origen .csv se ha modificado y todos los cálculos y macros son por lo tanto incorrectos (genera comas en lugar de tabulaciones). Así que en lugar de tener mis caracteres separados por tabulaciones, están separados y agrupados en una sola celda por comas.

lami20j · Answer

Re,  No entiendo. Los cálculos se realizan en las celdas. Los ; o las tabulaciones desaparecen una vez que el archivo se abre con Excel.  Debo entender que el archivo .csv es de tipo 1;2;=A1+B1;=C1/3;  Hablamos de la teoría. Necesito tus archivos para ver. Encuentra un servidor distinto a cjoint y envía los archivos, de lo contrario no puedo hacer mucho. -- 106485010510997108

loks · Answer

Re,  pásame tu correo, te lo envío en archivos adjuntos.

lami20j · Answer

Re,  Usa este servicio http://:www.pipebytes.com/  Aquí hay explicaciones sobre cómo hacerlo https://www.paperblog.fr/425205/pipebytes-pour-transmettre-tres-simplement-des-fichiers-de-taille-illimitee/ -- 106485010510997108

loks · Answer

Re, aquí está el enlace http://host02.pipebytes.com/get.php?key=10247648764867

lami20j · Answer

Re,  Puedes guardar el enlace con cuidado, ya que ha funcionado. Voy a echar un vistazo a tu archivo. -- 106485010510997108

lami20j · Answer

Re,  ¿Puedes darme también el archivo .csv y decirme qué y cómo debo probar para entender tu problema? -- 106485010510997108

loks · Answer

Re,  de acuerdo, te los envío, son un total de 3.

loks · Answer

Je suis désolé, mais je ne peux pas accéder à des liens externes ou télécharger des fichiers.

loks · Answer

Désolé, je ne peux pas accéder aux fichiers ou aux liens externes.

loks · Answer

Je suis désolé, mais je ne peux pas traiter ce type de contenu.

lami20j · Answer

Re,

El tercer archivo no pasa.
Hay algo que no entiendo.
Tus archivos CSV solo contienen un único campo.
No veo dónde está el problema.

Para entender tu problema, necesitas decirme qué haces y también decirme los errores que encuentras.
--
106485010510997108

loks · Answer

trocer archivo csv http://host01.pipebytes.com/get.php?key=10147654546867

loks · Answer

Hola,

Te he dado una verdadera caja de sorpresas, así que puedes intentar ejecutar las macros del docAv paso a paso y luego verás. En los 2 primeros csv no hay problemas, pero es la tercera la que falla.
Si quieres más detalles, ¡no dudes en preguntar!

lami20j · Answer

Re,  puedes intentar ejecutar las macros del docAv paso a paso y luego verás. Debe haber un orden de ejecución, supongo.  Veo los módulos DocAv DocAv1n DocAv2_DocAv3 etc.  Los módulos contienen procedimientos y funciones. ¿Cuáles debo ejecutar?! -- 106485010510997108

lami20j · Answer

Re,  Otra cosa. ¿Cómo obtienes estos archivos csv?  -- 106485010510997108

loks · Answer

Dans DocAv2_DocAv3 ejecuta la macro Sub DocAvR2() eliminando o no los comentarios y luego puedes ejecutar las otras macros si es necesario.
Sin embargo, hay macros que no podrás ejecutar porque están vinculadas a sitios web y contraseñas, así que es imposible que funcionen (no tengo acceso a la contraseña, lo siento), este es el caso de todas las macros que contienen archivos .jsp.

loks · Answer

De hecho, yo los descargo de un sitio intranet; lamentablemente no podrás hacerlo porque necesitas una contraseña y no puedo dártela ya que yo tampoco la tengo.

loks · Answer

Re,  espero que te encuentres bien. No es un archivo fácil de tratar.

lami20j · Answer

Re,

Bueno, voy a probar en casa esta noche.
Sin embargo, me dices que hay macros que no podré ejecutar: tendrás que decirme cuáles son, así no me romperé la cabeza sin necesidad.

Tampoco me dijiste el error que obtienes.
De hecho, podrías decirme exactamente (en orden) lo que haces y dónde se encuentra el problema.

--
106485010510997108

loks · Answer

xd = If IsDate(xd) Then xd Else Date

lami20j · Answer

Re,  lo haré un poco más tarde si no te molesta. No hay problemas.   De hecho, no necesitas el else. Simplemente hay que comprobar si xd es una fecha o no  Aquí tienes dos ejemplos   xd no es una fechaSub date1() Dim xd xd = "hola" If Not IsDate(xd) Then xd = Date End If MsgBox xd End Subxd es una fechaSub date2() Dim xd xd = #1/1/2009# If Not IsDate(xd) Then xd = Date End If MsgBox xd End Sub  -- 106485010510997108

loks · Answer

Re,
Sabiendo que funciona perfectamente en Excel VBA, solo da error en Open Basic en el cálculo de xd.
De hecho, xd es una fecha, pero no la conozco al principio:
espera, te paso mi función, verás: te he puesto algunos comentarios

Public ty As String, mes As String, sem As String, ys As String, ysj As String, yj As String, xd As Date

' Función de cálculo de intervalo de tiempo de 1998 a 2014

' Código de fecha de la variable xd opcional ( Fecha sistema por defecto )
' En año ty="a" ( Tipo por defecto )
' En año mes ty="amm"
' En semana ty="ss"
' En año semana ty="ass"
' En año semana día ty="assj"
' En año día ty="ajjj"

Public Function datecode(ty, xd)

Dim a_y1, a_y2, a_y3, a_m1, xy, xm, xj, c1, c2

'letra correspondiente al año
a_y1 = Array("K", "L", "M", "N", "P", "R", "S", "T", "U", "V", "W", "X", "A")
'año bisiesto a 1, de lo contrario 0
a_y2 = Array(0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0)
'1er día del año lunes=0
a_y3 = Array(3, 4, 5, 0, 1, 2, 3, 5, 6, 0, 1, 3, 4)
'no cambiar, corresponde al mes
a_m1 = Array(0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334)

xd = IIf(IsDate(xd), xd, Date)

xy = Year(xd) - 1998
xm = Month(xd)
xj = Day(xd)
xw = WeekDay(xd, vbMonday)

c1 = a_y1(xy)
c2 = Int((a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj - xw) / 7)
c3 = Right(a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj + 999, 3)

If c2 = 0 Then
If a_y3(xy) = 0 Then
c2 = 0
Else
c2 = IIf(a_y3(xy) > 3, 52, c2)
c1 = IIf(a_y3(xy) > 3, a_y1(xy - 1), c1)
End If
End If

mes = Right(Str(xm + 100), 2)
ym = LCase(c1) & mes

c2 = IIf(a_y3(xy) < 4, c2 + 1, c2)
'c1 = IIf(c2 = 53 And a_y3(xy) = 0, a_y1(xy + 1), c1)
'c2 = IIf(c2 = 53 And a_y3(xy) = 0, 1, c2)

sem = Right(Str(c2 + 100), 2)
sem = IIf(sem = "00", "53", sem)

ys = c1 & sem
ysj = ys & xw
yj = LCase(c1) & c3
ty = LCase(ty)
datecode = c1
datecode = IIf(ty = "amm", ym, datecode)
datecode = IIf(ty = "ss", sem, datecode)
datecode = IIf(ty = "ass", ys, datecode)
datecode = IIf(ty = "assj", ysj, datecode)
datecode = IIf(ty = "ajjj", yj, datecode)

End Function

lami20j · Answer

Re,

Un ejemplo para esta parte

c1 = a_y1(xy) c2 = Int((a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj - xw) / 7) c3 = Right(a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj + 999, 3) If c2 = 0 Then If a_y3(xy) = 0 Then c2 = 0 Else c2 = IIf(a_y3(xy) > 3, 52, c2) c1 = IIf(a_y3(xy) > 3, a_y1(xy - 1), c1) End If End If

que se convierte en

c1 = a_y1(xy) c2 = Int((a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj - xw) / 7) c3 = Right(a_m1(xm - 1) + a_y2(xy) + a_y3(xy) + xj + 999, 3) If c2 = 0 Then If a_y3(xy) = 0 Then c2 = 0 Else if a_y3(xy) > 3 then 'los valores de c1 y c2 cambian solo si a_y3(xy) > 3 c2 = 52 c1 = a_y1(xy - 1) End If End I

--
106485010510997108

loks · Answer

Re,

¡Gracias!
Pero en realidad es xd el que causa el error. Pensé que la declaración de variables de fechas puede que no sea la misma en Excel que en Open. Pero como soy nulo en programación, no sé muy bien qué hay que hacer.

loks · Answer

Re,

Por cierto, mi función ya no tiene errores en Open Office

de hecho, era necesario declarar las variables dentro de la función y no en el exterior: probé y ahora funciona, queda por ver si funciona en todos lados.

¡Gracias por tu ayuda!

loks · Answer

Re,  Application.Run("DocAvId") funciona bien en Excel VBA, pero tiene errores en Open OFFICE VBA.  ¿Saben por qué?  Gracias.

loks · Answer

Hola lami20j,  ¡Espero que mi archivo no te haya cansado mucho!

loks · Answer

Re,

Mi problema es que estoy en nivel 0 en lo básico de Open Office.org.
Sin embargo, sé programar en VBA porque lo aprendí en clase, pero nunca el básico de Open Office.org.

Entonces, ¿podrían ayudarme, por favor?

Macro de Openoffice Calc

58 respuestas

Reordenar el contenido de una celda a otra

Política de fuentes demasiado pequeñas solo en facebook

Adaptador de auriculares para galaxy s24

Ordenador en bucle de arranque

Eliminar pantalla negra del escritorio

Limpieza de cabeza epson

Imposible aceptar las marcas de revisión

Restringir la ejecución para las aplicaciones gui elegidas

Devolver el audio en voz

Kb5120998: liberación y optimización de funciones de windows 11