Vba access pour manipuler OpenOffice Calc

Fermé
bdagro Messages postés 1 Date d'inscription lundi 19 mars 2012 Statut Membre Dernière intervention 19 mars 2012 - 19 mars 2012 à 14:55
Bonjour,
je souhaite récupérer des données dans un fichier open office pour les intégrer dans ma base access. (Je n'ai pas excel).
Je parviens à ouvrir le fichier mais je ne parviens pas à accèder au contenu des cellules.
    Dim serviceManager As Object
    Dim Desktop As Object, Document As Object
    Dim Fichier As String
    Dim Feuille, Cellule As Object
    Set serviceManager = CreateObject("com.sun.star.serviceManager")
    Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop")
    Set Document = Desktop.loadComponentFromURL(Fichier, "_hidden", 0, Dummy)
    Set Feuille = Document.Sheets("NomFeuille")


Le problème vient aprés:
Set Cellule = Feuille.getCellByPosition(1, 1)

cette ligne renvoie "incompatibilité de type"
Set Cellule = Feuille.getCellRangeByName("A1")

cette ligne renvoie "propriété non gérée"

J'ai cherché dans Outils/Référence pour savoir si quelque chose se rapporter à OpenOffice, mais je n'ai rien trouvé.
Merci pour votre aide





A voir également: