Bonjour,
à tester :
Sub Main
Dim oSheet As Object
Dim oCell As Object
Dim MaChaine As String
oSheet = ThisComponent.Sheets.getByName("Feuille1")
MaChaine = oSheet.getCellByPosition(0,0).String
MsgBox(MaChaine)
End Sub
Bon surf,
Christian
Le 29/10/2018 à 17:10, Philippe BLANCHARD a écrit :
Bonjour à tous,
Voilà quelques semaines maintenant, je vous avez interrogé pour pouvoir
récupérer dans une macro, le contenu d'une cellule :
Voilà mon code :
Sub Main
Dim oSheet As Object
Dim oCell As Object
Dim MaChaine As String
oSheet = ThisComponent.Sheets.getByName("Feuille1")
oCell = oSheet.GetCellRangeByPosition(0, 0)
MaChaine = oCell.String
End Sub
Malheureusement, à l’exécution de la macro, j'ai le message suivant:
Erreur d’exécution BASIC
Une exception s'est produite
Type: com.sun.star.lang.IllegalArgumentException
Message: expected 4 arguments, got 2.
Qu'en dites vous ?
Comment faire pour renvoyer le résultat d'une macro vers une cellule ?
Merci par avance de votre aide
Philippe
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
