probleme vb6 et open office

Question

Bonjour,
J ai un petit probleme je fais un logiciel pour un particulier qui n'a pas excel mais son équivalent gratuit openoffice.
Donc je voudrai utiliser les valeurs d'un des tableaux pour les mettre dans un combobox mais je n'y arrive pas pourtant quand je crée le même fichier sous excel ca fonctionne donc pourriez vous m'aider 
voici le code en question

Private Sub Form_Load()
    Label2.Caption = "Dans cette page, vous devez entrer les informations liées au lieu de l'acceident."
    Dim y As Long
    Dim x As String
    Dim monclasseur As Excel.Workbook
    Set monclasseur = Workbooks.Open("c:\accident\liste.ods")
        y = 2
suite:
        x = Sheets("info").Range("A" & y)
        If x = "" Then GoTo fin
            Combo1.AddItem x
            y = y + 1
        GoTo suite
fin:
    monclasseur.Close
End Sub

merci

Nous entrainerons nos coeurs et nos corps afin d'acquérir un esprit sans faiblesse.
 .:Vive le Shidokan:.

bouv · Answer

Dim monclasseur As Excel.Workbook

Cela ne peut pas fonctionner avec OpenOffice. Regarde dans les références de ton projet si tu ne peux pas ajouter une référence pour piloter OpenOffice. 

Dans le menu : Projet >>Références

Enfin, si tu trouves cette référence il te faudra certainement revoir tout ton code. Les instructions Open, Sheets, Range ont peut etre d'autres appelations avec OpenOffice.

Bonne prog
++

Phiphi41 · Answer

Bonjour

Voici un article qui devrait t'aider : http://silkyroad.developpez.com/VBA/PiloterOpenOffice/

Il est fait pour qu'Excel pilote OpenOffice, mais est adaptable en VB6.

jrivet · Answer

Salut,
Je crois même qu'il existe une dll qui pilote OpenOffice depuis VB6. je l'avais trouvée par hasard sur le net un jour.

@+: Ju£i€n
Pensez: Réponse acceptée

Probleme vb6 et open office

3 réponses

Votre réponse

Discussions similaires