[Résolu] [Calc] Il manque des feuilles suite à Enregistrer sous

[Grande Ourse]

Bonjour,
J'ai un problème avec le code ci-dessous; il n'enregistre que 2 feuilles alors que mon classeur en compte 22 et je ne trouve pas l'erreur ou l'omission.

Merçi d'avance pour votre aide.

Code : Tout sélectionner

sub Enregistrer_Sous
GlobalScope.BasicLibraries.LoadLibrary("Tools")
Dim MonDoc as Object, MaFeuille as Object 
Dim LeDossier as String, Nom as String, Url as String, MonFichier as String, Fichier As String 
MonDoc = ThisComponent

'- - - Si le fichier a été modifié on enregistre- - - 
If MonDoc.IsModified Then 
    MonDoc.Store 
    msgbox "Le fichier sera enregistré pour inclure les dernières modifications avant de poursuivre cette macro"
     EndIf 
'- - - Récupère l'adresse du fichier- - - 
sURL =MonDoc.URL
sRep = DirectoryNameOutOfPath(sURL, "/")
sSousRep = sRep & "/Recettes"
'- - - si le répertoire n'existe pas, on le crée- - - 
If Dir(sSousRep,16) = "" Then 
MkDir sSousRep   
End If 
MonDoc = ThisComponent 
MaFeuille= MonDoc.CurrentController.ActiveSheet
MaRecette = maFeuille.getCellRangeByName("A1").getString 
Fichier = Left (ThisComponent.URL, Len(ThisComponent.URL) -4) & "/Recettes/" & MaRecette &" - le " & Format (Now, "DD-MM-YYYY-HH-MM" ) & ".ods"  
'- - - Soit on enregistre et travaille sous le nouveau fichier- - - 	
'- - - monDoc.storeAsUrl(Url, Array())- - - 
'-----Soit on enregistre et continue à travailler sur le fichier source- - - 
ThisComponent.storeToUrl(Fichier, Array())
msgbox " Le fichier de sauvegarde de la recette .ods a été créé avec succès"
End Sub

[Grande Ourse]

C'est corrigé.


Merçi.

[Bidouille]

Bonjour,

Afin de garder la qualité de ce forum optimum, je vous prierais de :

1. rectifier votre message pour que la partie code soit distincte. C'est illisible.
2. mettre un titre en rapport avec le problème exposé : [Calc] Il manque des feuilles suite à Enregistrer sous
3. joindre un classeur au format ODS intégrant la macro afin de permettre d'aider ceux qui vous répondent

Merci

Dernier point : quand vous postez la même question sur un autre forum, il est d'usage de l'indiquer. Cela évite la dispersion de l'effort.
https://www.developpez.net/forums/d2180915/logiciels/logiciels-libres-open-source/bureautique/openoffice-libreoffice/macro-enregistrer-sous/

[Dolev]

Bonjour,

joindre un classeur au format ODS intégrant la macro afin de permettre d'aider ceux qui vous répondent

+1

Si c'est pour sauvegarder le document, il y a la super extension de Alain de la Chaume : viewtopic.php?t=18566

[Grande Ourse]

Après d'installation et réinstallation de Libre Office le code fonctionne comme voulu, toutes les feuilles sont dans le ficher enregistrer sous.