[Résolu] [Calc] Enregistrer avec le nom d'une cellule

[Macrocenter]

Bonjour à tous.

Merci pour ce forum fort passionnant.

Je voudrais savoir comment faire pour enregistrer un formulaire en fonction du nom.
En prenant exemple sur l'image ci-dessous je voudrais lorsque j'appuie sur le bouton "enregistrer" que le formulaire soir enregistré (sauvegarder sous) avec le nom (à chaque fois différent) que j'aurais écris en B4.



Merci.

[Loopingss]

Bonjour et bienvenue sur le forum.
Ce problème a déjà été abordé et résolu.
Voyez ce fil : http://user.services.openoffice.org/fr/ ... strer+calc
COOordialement

[Macrocenter]

J'ai trouvé ce truc sur un autre post et ça marche.

Code : Tout sélectionner

sub enregistre
rem ----------------------------------------------------------------------
rem definitions des variables
rem ----------------------------------------------------------------------
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
rem ----------------------------------------------------------------------
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
rem Récupération du contenu de la cellule B8
rem ----------------------------------------------------------------------
MonDoc = ThisComponent
MaFeuil = MonDoc.CurrentController.ActiveSheet
MonTxt = MaFeuil.GetCellRangeByName("B8").String
rem ----------------------------------------------------------------------
rem Enregistrement du nouveau fichier
rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Documents/historique/" & MonTxt & ".ods"
args1(1).Name = "FilterName"
args1(1).Value = "calc8"
args1(2).Name = "SelectionOnly"
args1(2).Value = true

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())

rem ----------------------------------------------------------------------
rem fin de la macro
rem ----------------------------------------------------------------------

end sub

Bien sûr dans mon cas je devrais changer "B8" par "B4"

Mais si je veux en plus ajouter à mon nom de fichier le contenu de la cellule "B8" (dans mon exemple la date) que dois-je faire ?

[jjk]

Il faut ajouter

Code : Tout sélectionner

MonTxt2 = MaFeuil.GetCellRangeByName("B8").String

après la ligne "MonTxt..." et remplacer

Code : Tout sélectionner

args1(0).Value = "file:///C:/Documents/historique/" & MonTxt & ".ods"

par

Code : Tout sélectionner

args1(0).Value = "file:///C:/Documents/historique/" & MonTxt & MonTxt2 & ".ods"

[Macrocenter]

Merci pour ta réponse.

En cherchant et en réfléchissant j'avais trouvé la même chose que toi.

Attention, la date il ne faut pas l'écrire sous la forme 14/04/2009 sinon ça ne marche pas.