Macro Openoffice Calc

Question

Je viens de transférer un fichier Excel sous OpenOffice, j'avais un bouton macro me permettant d'ajuster la hauteur des lignes qui ne fonctionne plus. J'ai voulu créer cette macro dans OpenOffice calc, sans connaitre Basic je l'ai enregistré. Outils / Macro / Enregistrer / puis j'ai sélectionné tout le document et en cliquant sur un inter-ligne au hasard, toutes les lignes s'ajustent, puis Terminer 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.

Afficher la suite

lami20j · Accepted Answer

Salut,

si tu mets cette option au début de ta macro

OPTION VBASupport 1

le code vba pourra s'exécuter sur ooopenoffice.org ;-)

donc pas besoin d'une conversion

Dark Tigrou · Answer

C'est malheureusement normal... Les macros sont difficilement importable dans OpenOffice.
Les macros ne sont pas gérés de la même façon car le code source des formats MS office n'est pas disponible. Il faut donc y aller à coup de reprogrammation pour retrouver les précieuses macros qu'on utilise tous les jours... :(

Pour créer tes macros, je te revois vers le lien suivant qui peut être utile : http://perso.wanadoo.fr/pedagologic/documents/MacroOOo.pdf

En espérant que cela t'aidera.

JEANMI · Answer

Rien ne fonctionne correctement dans cet suite bureautique il suffit pour s'en convaincre de faire le petit test suivant créer un tableau avec deux colonnes une numéro et l'autre prenom on tape quelques prénoms puis dans la colonne numéro inscrire  un 1 au hazard devant certain des prénom. Ensuite faire outils/macros/enregistrer macro. sélectionner  le mini tableau que vous venez de créer puis données/filtre/filtre standard   indiquer la colonne numéro choisir = et 1. votre tableau est filtré maintenant sélectionné la partie triée faites copié aller sur la feuille 2 puis coller revenez sur la feuille une afin de supprimer le filtre et arrèter l'enregistrement donner un nom a votre macro avant d'executer la macro  je vous conseil de faire une sauvegarde de vos macro précédentes ceci fait lancer la macro et admirer le résultat. Si chez vous cela fonctionne correctement  chapeau car chez moi cela j'ai tenté a plusieurs reprise de la faire et le résultat est toujours le mème un échec cela semble fonctionner a peut avec filtre auto sur la version 2.0 mais lors dela copie sur la deuxieme feuille je me retrouve avec des prénoms qui ne font pas partis de la sélection filtré vous avez une alternative  a MS OFFICE je dirais plutôt un casse tête incompréhensible pour une action si simple

lami20j · Answer

Bonsoir Claire,ESt-ce un problème de fonctionnalité, de langage ou autre..Oui, c'est un problème de language. Dans le pack MsOffice on utilise VBA (Visual Basic pour Application ) et dans Open Office on utilise OooBasic.Voilà ta macro.Sub ajuster_lignes()    ThisComponent.currentController.activeSheet.Rows.Height = 400End SubLa macro ajuste les lignes de la feuille active ( 400 c'est pour une hauteur de 0,40 cm)Si tu ne sais pas où tu doit écrire le code dit le, je t'expliquerai.lami20j

tomylef · Answer

Bonjour à tous,
J'aimerais savoir si il est possible de faire un bouton dans openOffice calc  qui lorsque l'on appuierai dessus, incrémenterai la valeur d'une case?
En fait il faudrait d'abord cliquer sur la case qu'on veut puis cliquer sur le bouton pour incrémenter la valeur de cette case. 
Est-ce possible??
Cordialement

Doudou95 · Answer

Bonjour moi mon problèeme est le suivant: je fais une programme pour le "boulot" et le problème c'est que jusqu'à présent même sans trop de connaissance j'ai pu modifié le prog sur excel et sur openoffice calc seulement il y avait un macro sur le prog excel (microsoft) qui permettait en cliquant dessus d'envoyer le fichier sur lequel on est en pièce jointe à une adresse donnée (tout cela contenu dans le macro) sachant qu'on ne programme plus de la même mannière sur openoffice calc pourriez vous me passer les lignes du programme car je suis niveau zéro pour cela :)   (visula basic le macro normalement) Merci beaucoup

Doudou95 · Answer

il me le faut sous forme de macro car c'est très important et la version EXCEL (microsoft) l'a en macro c'est pour simplifier au maximum ils cloiquent et ca envoie... la macro est sur EXECL il me la faut adaptée sur la verion CALC (openoffice)

jackryan195 · Answer

Bonsoir à tous
Dans le cadre de mon boulot, je dois faire passer un copier dans une feuille calc. dans un document writer à un endroit précis
Le mieux serait d'avoir une macro dans calc avec un bouton d'action.
Merci d'avance

manaelle · Answer

Bonjour, 

j'ai un gros problème qui me bloque dans l'avancement d'un projet tres important,

j'ai un tableau mais d'une cellule a une autre le contenu n'est pas le même je voudrais donc sue par magie lorsque le contenu est different une ligne vide apparaisse.

est ce possible?

si oui pourriez vous m'aidez svp

lato · Answer

Bonjour
je rencontre le même probleme que vous  : macro openoffice calc

avez vous trouver une solution depuis 2005 ?
Merci pour votre réponse
@+
lato716@hotmail.com

bruno · Answer

Bonjour, je suis novice dans la programmation, j'aurais voulu savoir si il y avait un moyen de transférer d'un tableau open office, des données bien précise vers un autre tableau open office déja existant par le biais d'une seule touche autre que copier coller ou truc du genre.Peux etre avec VB, j'en sait rien mais bon.

Sipa · Answer

Bonjour à tous, un gros problème pour le développement d'un projet perso, Besoin d'aide

Je vous transmets ci dessous une macro VB, qui me permet de transposer des valeurs vers un tableau dans la première ligne vide. Je ne sais pas la transformer en Ooo BASIC.

Sub transpose_dans_tableau()
'Atteindre une feuille et mémoriser les données
    Sheets("Feuil1").Select
    Range("C4:C21").Select
    Selection.Copy
'Test pour détermminer la ligne où coller les infos dans le tableau
    Sheets("Feuil2").Select
    valeurD12 = Range("D12").Value
    If valeurD12 = "" Then
    Range("D12").Select
    Else
    Range("D11").Select
    Selection.End(xlDown).Select
    ligne_active_base = ActiveCell.Row
    Range("D" & ligne_active_base + 1).Select
    End If
'Memorise le n° de la ligne où coller'
   ligne_active_base = ActiveCell.Row
'Collage avec transposition'
   Range("D" & ligne_active_base).Select
   Selection.PasteSpecial Paste:=xlPasteValues, _
   Operation:=xlNone, SkipBlanks:=False, Transpose:=True
'Rendre vierge la feuille'
    Sheets("Feuil1").Select
    Range("C4:C10,C12:C21").Select
    Selection.ClearContents
    Range("C4").Select
'Aller dans un autre tableau'
    Sheets("Feuil3").Select
    Range("B6").Select
End Sub

lami20j · Answer

Salut,

Tu gardes le mot clé que pour les commentaires, mais d'après ce que j'ai vu il n'y a pas de commentaires, donc tu peux enlever Rem

boyington · Answer

Salut Lami20j
Serait-il possible de te faire parvenir le fichier complet ? et par quel moyen ? sur le site ?
JM

lami20j · Answer

Salut,

Tu peux le mettre sur cjoint.com
Et tu m'envoies le lien pour le télécharger.

boyington · Answer

Merci Lami20j
Je te l'ai fait parvenir je l'ai sauver sous MS 97 mais je m'aperçois qu'il ne fait que une centaine de Kbt alors que c'est beaucoup plus ?
N'aurais-pas du le sauver sur .ODP ?
Merci

lami20j · Answer

Re,

Ben, si c'est OpenOffice.org alors sauvegarde le dans un format OpenOffice.org
Tu peux compresser le fichier s'il est trop grand.

boyington · Answer

Bonsoir Lami20j,
J'espère avoir envoyer sous le bon format (Modèle) mais ca me parait bien léger !
Bonne soirée
JM

loks · Answer

Re,

Merci pour tout ce que tu fais!!
Malheureusement mon fichier est apparemment trop grand pour cjoint.com mais j'ai supprimé plusieurs lignes pour qu'il soit adaptable et enfin je l'envoie par plusieurs morceaux(tous sont utiles pour que la macro fonctionne).


https://www.cjoint.com/?ergREklbHk  
https://www.cjoint.com/?ergSoNWYBD
https://www.cjoint.com/?ergSLVehjk

ces trois fichiers sont hyper importants alor il doivent etre dans le bon repertoire que tu choisira.

il y'a ensuite le gros fichier(la ou il ya les macros) mais il est trop grand pour cjoint.com?? ta une idée pour ke je te le fasse parvenir? par mail par exemple

lami20j · Answer

Re,

je l'envoie par plusieurs morceaux(tous sont utiles pour que la macro fonctionne). 
Je vais mélanger les pinceaux.
Ce que tu as mis ce sont des fichier CSV donc je ne vais pas avoir des macros dedans.

Ce que j'ai besoin c'est d'envoyer ton fichier excel qui contient les macros
Je vais m'en occuper moi même pour l'ouvrir avec openoffice.

Essaie de compresser ton fichier avant de l'envoyer.

loks · Answer

Re,

excuse moi tu peux me trouver nul c normal je le suis je pense car je ne sais plus comment faire pour compresser un fichier?

lami20j · Answer

Re,

Tu as installé sur ton système, un logiciel de compression Winzip ou autre.
Sinon tu ouvres l'explorateur windows, tu cherches le fichiers, tu fait un clic droit et ensuite sélectionne Envoyer vers, un sous menu s'ouvrira et tu choisi Dossier compressé.

Un fichier compressé avec le même nom que le fichier initial sera crée.

loks · Answer

Re

je l'ai compressé et tout mais cela ne suffit pas il vaut en effet 2,5Mo

loks · Answer

Re,

ok merci!
sinon il n'y a pas moyen de le sauvegarder en fichier .csv et trouver une solution optimale??

lami20j · Answer

R,

En effet, les tabulations qui existent dans les cellules recopiées sont remplacés par des points virgules ce qui fausse mon classeur projet.xls et ainsi tous les calculs réalisés dedans. 

1. Soit tu enregistre en mode texte et tu auras tes tabulations
2. Soit tu enregistre en .csv (point virgule) mais en ce cas tu dois faire les modifs nécessaires dans ton classeur, pour que les calculs réalisés prennent comme séparateur le point-virgule au lieu de tabulation

loks · Answer

Re,

oui en fait je suis obligé d'utiliser .csv mais je ne sais pas les modifs à faire pour prendre en compte les tabulations.

lami20j · Answer

Re,

je ne sais pas les modifs à faire pour prendre en compte les tabulations.
Mais il n'y a pas des tabulations.

Si j'ai bien compris, ton classeur contient des formules, macros qui traite les tabulations.
Comme .csv utilise le point-virgule en tant que séparateur, alors il faut modifier dans ton classeur le traitement de ; au lieu de tabulation.

loks · Answer

Re,

oui je crois ke tu a bien compris mon probléme.
Mais en fait comment remplacer les points virgules par les tabulations dont j'ai besoin?
Est ce que tu peux m'aider à le faire sur Excel 2003?

lami20j · Answer

Re,

Toutefois il y a une chose que je ne comprends pas.
De toute façon que ça soit ; ou tabulation, à l'ouverture de fichier en fonction de séparateur les cellules serront remplies avec les données contenues dans le fichier respectif (.csv ou .txt)

Logiquement c'est à l'ouverture de fichier que ta macron ne gère pas le séparateur. C'est ça que je pense.

loks · Answer

Re,

en fait j'ai un fichier csv générer automatiquement via un serveur intranet; ensuite j'exploite ce fichier afin de recopier les cellules de mon .csv dans un autre fichier .xls et c'est à partir de ce moment que je me rend compte que mon fichier de départ .csv est modifié et tous les calculs et macros sont donc faux(il génére des virgules à la place des tabulations). Du coup au lieu d'avoir mes caractéeres sépares par tabulations, ils sont séparés et regroupés dans une seule cellule par des virgules.

lami20j · Answer

Re,

Je ne comprends pas.
Les calculs se font sur les cellules. Les ; ou les tabulations disparaissent une fois le fichier ouvert avec Excel.

Je dois comprendre que le fichier .csv est de genre1;2;=A1+B1;=C1/3;

On parle de la théorie.
J'ai besoin de tes fichiers pour voir.
Trouve un serveur autre que cjoint, et envoie les fichiers, sinon je ne peux pas faire grande chose.

loks · Answer

Re,

passe moi ton mail je te l'envoie en fichier joints

lami20j · Answer

Re,

Utilise ce service http://:www.pipebytes.com/

Voici des explications comment il faut faire https://www.paperblog.fr/425205/pipebytes-pour-transmettre-tres-simplement-des-fichiers-de-taille-illimitee/

loks · Answer

Re,
voici le lien 
http://host02.pipebytes.com/get.php?key=10247648764867

lami20j · Answer

Re,

Tu peux garder précieusement le lien, puisque ça à marché.
Je vais jeter un coup d'oeil sur ton fichier

lami20j · Answer

Re,

Tu peut me donner aussi le fichier .csv et me dire ce et comment je dois tester pour comprendre ton problème.

loks · Answer

Re,

ok je te les envoie, ils sont au nombre de 3.

loks · Answer

premier fichier : http://host01.pipebytes.com/get.php?key=10147653907867

loks · Answer

second fichier : http://host01.pipebytes.com/get.php?key=10147654021867

loks · Answer

http://host01.pipebytes.com/get.php?key=10147654021867

lami20j · Answer

Re,

Le 3ème fichier ne passe pas.
Il y a une chose que je ne comprends pas.
Tes fichiers CSV ne contient qu'un seul champ.
Je ne vois pas où est le problème.

Pour comprendre ton souci il faut que tu me dises ce que tu fais et aussi me dire les erreurs que tu rencontres.

loks · Answer

troisieme fichier csv http://host01.pipebytes.com/get.php?key=10147654546867

loks · Answer

Re,

Je viens de te donner une veritable usine à gaz alors tu peux essayer d'executer les macros du docAv pas à pas et ensuite tu verras. Dans les 2 premiers csv il n'ya pas de problemes mais c'est la 3eme qui bug. 
Si tu veux plus de détails n'hésites pas!

lami20j · Answer

Re,

tu peux essayer d'executer les macros du docAv pas à pas et ensuite tu verras. 
Il doit avoir un ordre d'exécution je suppose.

Je vois les modules
DocAv
DocAv1n
DocAv2_DocAv3
etc.

Les modules contiennent des procécures et fonctions.
Les quelles je dois exécuter?!

lami20j · Answer

Re,

Encore une chose.
Ces fichiers csv tu les obtiens comment?

loks · Answer

Dans DocAv2_DocAv3  execute la macro   Sub DocAvR2() en enlevant ou pas les commentaires et ensuite tu peux executer les autres macros si tu a en besoin. 
Cependant, il existe des macros que tu ne pourra pas executer car elles sont en lien avc des sites web et des mots de passe donc impossible que ça marche(je n'ai pas acces au mot de passe ,désolais) c'est le cas de toutes les macros contenant des fichiers .jsp

loks · Answer

en fait moi je les télécharge sur un site intranet malheureusement tu pourra pas le faire car il te faut un mot de passe et je peux pas t'en filer car moi même je n'en dispose pas.

loks · Answer

Re,

j'espere que tu t'en sors bien. Ce n'est pas un fichier simple à traiter

lami20j · Answer

Re,

Ben, je vais tester à la maison ce soir.
Toutefois tu me dis qu'il y a des macros que je ne pourrai pas exécuter : il faudra me dire lesquelles, comme ça je ne vais pas me casser la tête pour rien.

Tu ne m'as dit non plus l'erreur que tu obtiens.
En fait, tu pourra par exemple me dire exactement (dans l'ordre) ce que tu fais, et où ça coince.

loks · Answer

Ok je vais te dire exactement ce qu'il faut faire et vu que tu le regardes ce soir je vais le faire un peu plutard si ça ne te pose aucun probléme.

sinon l'expression IIf tu m'avait di que ça équivaut à 
If condition
instruction
else instruction...

mais en fait si je te donne l'expression xd = IIf(IsDate(xd), xd, Date) comment tu le mettrai en if, else... car j'y arrive pas

lami20j · Answer

Re,

je vais le faire un peu plutard si ça ne te pose aucun probléme. 
Pas de problèmes.


En fait tu n'as pas besoin de else. Il suffit de tester si xd est date ou pas

Voici deux exemples


xd n'est pas une dateSub date1()
    Dim xd
    xd = "salut"
    If Not IsDate(xd) Then
        xd = Date
    End If
    MsgBox xd
End Subxd est une dateSub date2()
    Dim xd
    xd = #1/1/2009#
    If Not IsDate(xd) Then
        xd = Date
    End If
    MsgBox xd
End Sub

loks · Answer

Re,
Sachant que ela fonctionne parfaitement sur Excel VBA ce n'est que sous Open Basic que cela bug au niveau du calcul de xd.
En fait xd est une date mais je la connais pas au début:
attend je te passe ma fonction tu verra: je t'ai mis quelques commentaires


 Public ty As String, mois As String, sem As String, ys As String, ysj As String, yj As String, xd As Date
 
 ' Fonction de calcul d'interval de temps de 1998 à 2014
 
 
 ' Datecode de la variable xd facultative ( Date system par defaut )
 '                                 En année              ty="a" ( Type par défaut )
 '                                 En année mois         ty="amm"
 '                                 En semaine            ty="ss"
 '                                 En année semaine      ty="ass"
 '                                 En année semaine jour ty="assj"
 '                                 En année Jour         ty="ajjj"
 
 Public Function datecode(ty, xd)

 Dim a_y1, a_y2, a_y3, a_m1, xy, xm, xj, c1, c2
 
 'lettre correspondant à l'année
 a_y1 = Array("K", "L", "M", "N", "P", "R", "S", "T", "U", "V", "W", "X", "A")
 'année bissextile à 1 sinon 0
 a_y2 = Array(0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0)
 '1er jour de l'année lundi=0
 a_y3 = Array(3, 4, 5, 0, 1, 2, 3, 5, 6, 0, 1, 3, 4)
 'ne pas changer correspond au mois
 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
 
 mois = Right(Str(xm + 100), 2)
 ym = LCase(c1) & mois
 
 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 exemple pour cette partie

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

qui deviensc1 = 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 'les valeurs de c1 et c2  change seulement si a_y3(xy) > 3
      c2 = 52 
      c1 = a_y1(xy - 1) 
  End If 
End I

loks · Answer

Re,

Ok merci!!
Mais en fait c'est xd qui améne le bug. J'ai pensé que la déclaration de variables de dates n'est peut etre la même sous Excel que sous Open? Mais vu que je suis nul en progammation je sais pas trop ce qu'il faut faire?

loks · Answer

Re,

Au fait ma fonction ne bug plus sur open office

en effet il fallait déclarer les variables dans la fonction et non à l'exterieur: j'ai tatonné et ça marche maintenant reste à savoir si elle fonctionne partout.

merci de ton aide!!

loks · Answer

Re,

Application.Run ("DocAvId") fonctionne bien sur Excel VBA mais elle bug sur OPEn OFFICE VBA 

Savez vous pourqoi?

merci

loks · Answer

Bonjour lami20j,

J'espere que mon fichier ne t'a pas beaucoup fatigué!

loks · Answer

Re,

Mon probème est que je suis niveau 0 sur le basic de Open Office.org.
Par contre je sais programmer en VBA car je l'ai appris en classe mais jamis le basic de open office.org.

Alors est ce que vous voulez bien aidez s'il vous plait?

Macro Openoffice Calc

58 réponses

Votre réponse

Discussions similaires

Newsletters