Re: [fr-users] Pb Macro

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 à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy