Bonjour,
Ca marche impeccable ! Merci beaucoup !
et comment fait on pour que la macro affecte une valeur dans une cellule ??
Merci par avance de votre réponse.
Amicalement,
Philippe
Le lun. 29 oct. 2018 à 17:36, Christianwtd <christian...@free.fr> a écrit :
> 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+unsubscr...@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
>
--
Envoyez un mail à users+unsubscr...@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
