Ubuntu-fr

Freddy56

traduire macro VBA excel en macro open Office.org Basic

Bonjour, j'ai fait une macro VBA sous excel, j'aimerais la traduire en langage d'openOffice.orgBasic mais les langages sont différents. Est-ce que quelqu'un peut m'aider SVP?
Macro VBA à traduire:

Sub ChercherFeuille()
Dim vFeuillecherchée As Worksheet
Dim vNomFeuille As String
Dim vDate As Date
Dim vNuméro As Single

vDate = Date
vNomFeuille = InputBox("Entrer le numéro de la feuille." & " Nous sommes le " & vDate)
For Each vFeuillecherchée In Worksheets
If vFeuillecherchée.Name = vNomFeuille Then
vFeuillecherchée.Activate
End If
Next
vNomFeuille = InputBox("Confirmez l'utilisation de la feuille" & vNomFeuille & " ou modifiez le numéro.")
For Each vFeuillecherchée In Worksheets
If vFeuillecherchée.Name = vNomFeuille Then
vFeuillecherchée.Activate
End If
Next
UserForm2.Show

End Sub
End Sub

Private Sub CommandButton10_Click()
Dim Smirnoff As Integer
On Error GoTo Sortie_Sur_Ereur
Workbooks(1).Activate
Smirnoff = InputBox("Combien de Smirnoff vendues ?")
Range("I31").Activate
ActiveCell.Value = Smirnoff + ActiveCell.Value
MsgBox "nombre de Smirnoff vendues aujourd'hui: " & ActiveCell.Value
Sortie_Sur_Ereur:
End Sub

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Merci d'avance de m'aider.

LudoRA

Re : traduire macro VBA excel en macro open Office.org Basic

Salut!

Je te conseille plutôt de t'inscrire à la liste Prog d'OOo qui sont plus spécialisés la dessus: http://fr.openoffice.org/contact-forums.html

Là, tu auras du répondant.

Ciao!

Edit: et puis, 2 "end sub" de suite, c'est bizarre.

Dernière modification par LudoRA (Le 23/12/2006, à 21:54)

---

À Grenoble - L'Atelier de Bidouille Informatique Libre - Un moyen comme un autre de débuter, de poser des questions et de chercher et tester ensemble des solutions