VBA - Récupérer une période

[nadir****]

Bonjour.
Je voudrais récupérer le mois et l'année d'une date sous format texte.
Ainsi pour la date 01/12/2010 je voudrais récupérer le texte: décembre - 2010.

J'ai écrit les lignes suivantes pour une date en A1:

    Dim Periode As String
    Range("A2").FormulaR1C1 = "=TEXT(RC[-1],""mmmm - aaaa"")"
    Periode = Range("A2").Value
    Range("A2").ClearContents

Mais ceci implique d'utiliser une cellule (ici A2) qui risque d'être déjà utilisée.
A moins de travailler sur la première cellule vide mais ça sent l'usine à gaz.
Est-ce que quelqu'un pourrait m'aider ?
Merci.
Nadir

 

[C@thy]

Re : VBA - Récupérer une période

Bonjour nadir,

comme disait notre ami Ti, la meilleure macro c'est c'elle qu'on évite d'écrire.

Pourquoi pas une formule, dans la cellule que tu veux?

Edit si tu tiens vraiment à la macro, on recherche la dernière cellule remplie de la colonne A de cette façon :

derligne = Range("A65535").End(xlUp).Row

Biz

C@thy

 

[job75]

Re : VBA - Récupérer une période

Bonjour nadir****, C@thy,

P'tite usine à gaz :

Sub Test()
Dim cel As Range, Periode As String
Set cel = [A1]
Periode = Format(cel, "mmmm - yyyy")
MsgBox Periode
End Sub

A+

 

[nadir****]

Re : VBA - Récupérer une période

Bonjour Cathy.
Je voudrais récupérer ce texte pour l'utiliser à plusieurs reprises dans une macro (sauvegarde dans un nom de fichier, Titres de tableaux...). C'est pour cela que j'aurais bien aimé récupérer ce texte simplement sans passer par une formule dans une cellule spécifique comme dans ma macro que j'ai communiquée.
Merci en tout cas.

 

[nadir****]

Re : VBA - Récupérer une période

Merci Job.
Je ne connaissais pas la fonction Format.
Nadir.