[Résolu][Calc] Nommage d'un CSV avec le nom d'une cellule

[sylpard]

Bonjour,

j'ai la Macro en piéce jointe qui permet de faire une extraction csv .

est il possible dans le code de donner comme nom d' enregistrement de fichier, le nom d' une cellule qui se trouve dans une feuille ?

Merci d' avance

[zeguedon]

Bonjour,

J'avais déjà préparé une réponse :

Code : Tout sélectionner

doc = ThisComponent
	lesFeuilles = Doc.Sheets
    uneFeuille = lesFeuilles.getByName("Feuille1")
    Doc.CurrentController.ActiveSheet = uneFeuille
    CelNomDuFichier = lesFeuilles(0).getCellRangeByName("A1") 
	url = doc.url
	pieces = Split(doc.url,"/")
	pieces(UBound(pieces)) = CelNomDuFichier.string
	url = Join(pieces,"/")
	Dim args(1) As New com.sun.star.beans.PropertyValue
	args(0).name = "FilterName"
	args(0).value = "Text - txt - csv (StarCalc)"
	args(1).name = "FilterOptions"
	args(1).value = "9,39,ANSI,2"
	doc.StoreToURL(url,args)

Pour définir la feuille qui contient la cellule qui contient le nom à donner au fichier, il faut modifier le paramètre 0 (zéro) de cette ligne et le nom de la cellule concernée. Zéro correspond à la première feuille du classeur, 1 à la deuxième etc...

Code : Tout sélectionner

CelNomDuFichier = lesFeuilles(0).getCellRangeByName("A1")

Et le fichier qui va avec

A+

[sylpard]

ca m' a l' air super ca !

je teste cela Lundi....

Merci pour toute l' aide ! super sympa

Bon week end !

[sylpard]

Bonjour,

après avoir testé, il y a un pti soucis, il crée bien le fichier par rapport a la cellule A1 mais par contre le fichier est sans extension .

Merci !

[Piaf]

Bonjour
Pas tout suivi mais

mais par contre le fichier est sans extension .

Pour avoir une extension, il suffit de l'ajouter dans la ligne

Code : Tout sélectionner

pieces(UBound(pieces)) = CelNomDuFichier.string

avec

Code : Tout sélectionner

pieces(UBound(pieces)) = CelNomDuFichier.string & ".csv"

A+

[sylpard]

Super !! ca fonctionne au poil !!

Merci ! à Tous