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
