Bonjour à tous,
Je suis en train de préparer une macro qui a pour but de recopier certaines données d’un fichier (DocSource) vers un autre (DocCible). Même si j’ai quelques notions de programmation, je suis complètement débutant en LibreOffice Basic et je me heurte à une erreur que je ne comprends pas dans la gestion des documents / feuilles de calcul.
Le code ci-dessous s’arrête à FeuilleCible = DocCible.Sheets(0) de la sous-routine RenommerFeuilleCible avec l’erreur “Variable d’objet non définie.” Je ne comprends pas… Merci de votre aide !
Sub CreerFichierCible
Dim Dummy()
Dim Url As String
Url = "private:factory/scalc"
DocCible = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Dummy())
End Sub
Sub RenommerFeuilleCible
FeuilleCible = DocCible.Sheets(0)
FeuilleCible.Name = "Reservation"
End Sub
Sub RoutinePrincipale
REM Déclaration des variables globales
Dim DocSource As Object
Dim DocCible As Object
Dim FeuilleCible As Object
REM Debut de la procedure
CreerFichierCible
DocCible = ThisComponent
RenommerFeuilleCible
End Sub