Bonjour à tous et toutes,

J'ai récupéré une macro d’un fichier Excel, et j'ai donc besoin de l'adapter/convertir le code (VBA) en code Basic pour Calc de LibreOffice.

Le projet initial comportait 2 fichiers*: Beerxcel et Beerxcel_stock_v2
J’ai renommé Beerxcel en Beerxcel_LO et j’y ai intégré la feuille «*Stock «*de Beerxcel_stock_v2 et l’ai renommé «*Inventaire - Stock*» car Beerxcel contenait déjà une feuille nommée «*Stock*»

En cliquant sur le bouton «*Retirer du stock*» sur la feuille Stock cette macro permet:
1) De mettre à jour l’inventaire sur la feuille «*Inventaire - Stock

Votre aide serait grandement appréciée.

Macro en VBA

[CODE]Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
openWB = IsWorkBookOpen("\Beerxcel_LO_stock_v2.ods")
If openWB Then
Set stockWB = Workbooks("\Beerxcel_LO_stock_v2.ods")
Else
stockWB_file = ThisWorkbook.Path & "\Beerxcel_LO_stock_v2.ods"
Set stockWB = Workbooks.Open(Filename:=stockWB_file)
End If
Set stockWS = stockWB.Worksheets("Stock")
For Each cell In stockWS.Range("C6:C32")
cell.Value = cell.Value - Me.Cells(cell.Row, 6).Value
Next cell
If openWB Then
Else
stockWB.Save
stockWB.Close
End If
Application.ScreenUpdating = True
End SUB[CODE]