[Résolu][Calc] Récupération Date sous format Date

[boulauventre]

Bonjour,

J'ai dans mon code, une macro qui me permet de récupérer une information, une date en l’occurrence.

Malheureusement, lorsque je récupere cette date, elle n'est pas sous le format date mais "41236,21542365412".

Que dois-je rajouter à mon code afin de pouvoir récupérer la date comme elle est affiché dans mon tableur ?

Merci d'avance


Voici mon code:

Code : Tout sélectionner

Private Recherche as String, DatePerception as String
'Private args(0) as new com.sun.star.beans.PropertyValue
Private args as Object
Private oFuncAcces As Object
Private Matrice As Object, Valeur As String

Sub RechercheSurNumSerie

	oFuncAcces = CreateUnoService("com.sun.star.sheet.FunctionAccess")
	Valeur = "1800" 'Je recherche la valeur 
	Matrice = ThisComponent.sheets.getByName("Feuille1").GetCellRangeByName("C2:E10")
	args = array(Valeur,Matrice,3,0)

	Recherche = oFuncAcces.callFunction("VLOOKUP",args)


End Sub

Sub Test


Call RechercheSurNumSerie
DatePerception = Recherche
Print "La date est " & DatePerception & " !"
		
				
End Sub

En PJ le fichier test

[OOotremer971]

Bonjour,

lorsque je récupere cette date, elle n'est pas sous le format date mais "41236,21542365412".

ET ce n'est directement lié à ta macro mais au fait que tu utilises la fonction RECHERCHEV(). Si tu fais le test directement dans une cellule tu t’apercevras que le résultat est identique :

Code : Tout sélectionner

=RECHERCHEV(C2;C2:E9;3;0)

Par contre si tu utilise la fonction EQUIV() pour récupérer le numéro de ligne où se trouve ton critère de recherche, tu peux plus facilement récupérer la valeur de la colonne concernée sur cette même ligne :

Code : Tout sélectionner

oFuncAcces = CreateUnoService("com.sun.star.sheet.FunctionAccess")
Valeur = "1800" 'Je recherche la valeur 
Matrice = ThisComponent.sheets.getByName("Feuille1").GetCellRangeByName("C2:C10")
args = array(Valeur,Matrice,0)
ligne = oFuncAcces.callFunction("MATCH",args)
Recherche = ThisComponent.sheets.getByName("Feuille1").GetCellByPosition(4,ligne).String

A+

[boulauventre]

Bonjour OOotremer971

Merci pour ta réponse, je ne connaissais pas cette fonction "MATCH" qui fonctionne parfaitement.

Merci beaucoup

[Dude]

Salut,

je ne connaissais pas cette fonction "MATCH" qui fonctionne parfaitement

Relis ce que t'écrit OOotremer971.
MATCH est la traduction en anglais du EQUIV.
Obligatoire lorsqu'on veut utiliser des fonctions par programmation.