Macro excel vers Libreoffice Fermé

Question

Bonjour, 

J'ai un fichier Facture.xlsm avec une macro VBA (créé sous excel 2010).
Je souhaite arrêter de travailler avec Office et me mettre à utiliser LibreOffice et cela de façon définitive.
La macro de mon fichier permet à chaque ouverture du fichier, d'incrémenter la cellule B12 de 1, et à la fermeture du fichier, de créer un nouveau fichier xlsx avec le numéro incrémenté dans le nom de fichier.
Option ExplicitPrivate Sub Workbook_Open()    Range("E12") = Range("E12") + 1    ActiveWorkbook.SaveEnd SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)Dim Chemin As String, Numéro_facture As IntegerChemin = ActiveWorkbook.PathNuméro_facture = Range("E12")Application.DisplayAlerts = False    ActiveWorkbook.SaveAs Filename:= _        Chemin & "\Facture " & Numéro_facture & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=FalseEnd Sub

J'ai enregistré mon fichier d'origine au format ods.

Quelle est la démarche à suivre pas à pas pour pour obtenir le même résultat qu'avec mon fichier Excel ?
PS: Je n'y connais rien en macro, codes, etc... ;-)

Mil merci pour votre aide.

Configuration: Linux / Firefox 47.0 / LibreOffice v5.0.3.2

valttt · Answer

J'ai trouvé sur Internet, un site (https://www.business-spreadsheets.com/vba2oo.asp qui propose de convertir les codes VBA vers Basic Office.

Pour commencer, le code obtenu est-il correct ?

Option ExplicitPrivate Sub Workbook_Open()Dim oSheet as Object[n]oSheet = ThisComponent.CurrentController.ActiveSheet[n]oSheet.getCellRangeByName($1)("E12") = Dim oSheet as Object[n]oSheet = ThisComponent.CurrentController.ActiveSheet[n]oSheet.getCellRangeByName($1)("E12") + 1ThisComponent.SaveEnd Sub$1.Close(False)(Cancel As Boolean)Dim Chemin As String, Numéro_facture As IntegerDim URLStr as String[n]Dim $1 as String[n]GlobalScope.BasicLibraries.LoadLibrary("Tools")[n]URLStr = ThisComponent.getURL()[n]$1 = DirectoryNameoutofPath(URLStr, ""/"")Numéro_facture = Dim oSheet as Object[n]oSheet = ThisComponent.CurrentController.ActiveSheet[n]oSheet.getCellRangeByName($1)("E12")Application.DisplayAlerts = FalseThisComponent.SaveAs Filename:= _Chemin & "\Facture " & Numéro_facture & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=FalseEnd Sub

PS: Je souhaite obtenir la création d'un fichier ODS à la fin, car je ne veux plus de format Excel.

Merci pour votre aide...

Macro excel vers Libreoffice

1 réponse

Discussions similaires