bonjour,
tout d'abord, je tiens a signaler que je suis nul, archi nul en excel , et que je me suis lancé dans un projet pour rendre service à quelqu'un , et que ce n'est pas mon boulot, je ne tire aucun profit du code ou du fichier,  je prefere dire cela pour repondre en avance aux eventuelles remarques du genre : " tu veux qu'on fasse le boulot à ta place" , ces remarques sont fondées, mais je ne peux pas faire autrement .... désolé, c'est mon seul recours...( j'ai deja bien galerer pour "pondre " ce code qui marche sur excel  .... )
je cherche donc une ame charitable qui pourrait me convertir un code que j'ai mis sur un bouton , et qui evidemment ne marche pas pour calc  
ce code permet de :
1 sauvegarder le document en lui attribuant un nom qu'il prend d'une case "A3" auquel il rajoute la date et l'heure
2- imprimer le document
3- afficher une fenetre avec l'intitulé " intervention archivée " et une validation par OK
4- decocher toutes les cases a cocher
5- effacer le contenu d'une case "A3"
je vous livre le code qui marche sur excel ,si une ame charitable pouvait me le traduire pour qu'il soit compatible avec calc , ca me rendrait un enorme service.
d'avance merci
 
Sub nad()
'
' nad Macro
'
 
'
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Chemin = "C:\"
 
Fichier = Range("A3" ) & "_" & Format(Date, "yyyymmdd" ) & "_" & Format(Time, "hhmmss" ) & ".xls"
ActiveWorkbook.SaveCopyAs Chemin & Fichier
MsgBox "intervention archivee", vbOKOnly, "confirmation"
Range("A3" ).MergeArea.ClearContents
 
 
Dim chk As CheckBox
For Each chk In ActiveSheet.CheckBoxes
chk.Value = 0
Next
 
End Sub
 

Salut, qqs liens
http://www.developpez.net/forums/f [...] penoffice/
http://documentation.openoffice.or [...] icXref.pdf
http://ooo.developpez.com/faq/

merci pour les liens .
toujours en attente d'une ame charitable qui puisse m'aider a convertir le code.