Récupérer le numéro du mois à partir de son nom

Version imprimable

Bonjour,

Je souhaite recuperer le nom du mois à partir de son num, j'ai trouvé cette fonction sur internet
Code:

1 2 3 4 5 6 7 8 9 10 Public Function MonthName( _ ByVal Month As Integer, _ Optional ByVal Abbreviate As Boolean = False _ ) As String Dim thisMonth As Integer Dim name As String thisMonth = 4 ' Set Abbreviate to True to return an abbreviated name. name = MonthName(thisMonth, True) ' name now contains "Apr".
Mais Visual basic NE RECONNAIT pas cette Reference, j'ai essayé de chercher dans bibliotheque pour ajouter sans succés.
Merci de votre aide
Cdlt,
sabine

06/05/2014, 16h41
casefayere

Bonjour,,
Sans savoir de quelle référence tu parles, évites déjà d'employer, pour tes variables, des mots clés réservés "Dim name As String", changes de nom même si ce n'est pas ta problématique.
06/05/2014, 16h51
sabrine1311

Récupérer le numéro du mois à partir de son nom

La fonction MonthName est une fonction qui existe deja dans VB(elle retourne automatiquement le nom du mois)
voir lien suivant :
http://msdn.microsoft.com/fr-fr/libr...(v=vs.80).aspx
il faut donc cocher dans reference de visualBasic Un fichier DLL mais je ne sais pas le quel pour pouvoir utiliser cette fonction dans mon code.

avez vous une solution, ou ayant dejà trouver une fonction qui recupere le non du mois a partir de son num qui marche sur vb ?
Merci de votre help
Cdlt,
Saabine
06/05/2014, 16h55
casefayere

Je conçois ce que tu dis mais tel n'est pas mon propos, relis mon Post. Pour la référence à cocher, quelqu'un te répondra certainement.

Citation:

Envoyé par sabrine1311

Bonjour,

Je souhaite recuperer le nom du mois à partir de son num, j'ai trouvé cette fonction sur internet

Code:

1
2
3
4
5
6
7
8
9
10
Public Function MonthName( _
   ByVal Month As Integer, _
   Optional ByVal Abbreviate As Boolean = False _
) As String
Dim thisMonth As Integer
Dim name As String
thisMonth = 4
' Set Abbreviate to True to return an abbreviated name.
name = MonthName(thisMonth, True)
' name now contains "Apr".

Mais Visual basic NE RECONNAIT pas cette Reference, j'ai essayé de chercher dans bibliotheque pour ajouter sans succés.
Merci de votre aide
Cdlt,
sabine

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function MonthName(MyMonth As Integer, Optional Abbreviate As Boolean = False) As String
Dim Mois()
Dim MoisAbj()
Mois = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
MoisAbj = Array("", "Janv", "Févr", "Mars", "Avr", "Mai", "Juin", "Juil", "Août", "Sept", "Oct", "Nov", "Déc")
If Abbreviate = False Then MonthName = Mois(MyMonth) Else MonthName = MoisAbj(MyMonth)
End Function
 
Sub test()
 
Dim moisname As String
Dim moisname2 As String
moisname = MonthName(12)
moisname2 = MonthName(2, True)
' name now contains "Apr".
End Sub

Salut, curieux problème car par défaut cela fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Function NomMois(ByVal iMois As Integer, _
        Optional ByVal bAbreviation As Boolean = False) As String
Dim sNomMois As String
    sNomMois = MonthName(iMois, bAbreviation)
    NomMois = sNomMois
End Function
 
Sub Test()
  Debug.Print NomMois(7, True)
  Debug.Print NomMois(7, False)
End Sub

06/05/2014, 17h44
sabrine1311

Bonjour,
Merci à vous 2 pour vos réponses!
j'ai testé que la premiere,
Rudrupt, cela fonctionne parfaitement.
Cdlt,
sabine
06/05/2014, 18h08
Philippe Tulliez

Bonjour,
Comme te l'as écrit Philippe (kiki29) la fonction MonthName est nativement présente dans VBA et donc en créant une fonction portant le même nom et de plus utiliser des variables avec des noms réservés comme te l'a fait remarquer Dominique, tu multiplies les problèmes.
Essaye cette ligne de code dans une nouvelle procédure et dans un nouveau classeur, tu verras que cela fonctionne.

Code:

MsgBox MonthName(10, True)
06/05/2014, 23h59
clementmarcotte

Bonjour,

Citation:

Envoyé par sabrine1311

La fonction MonthName est une fonction qui existe deja dans VB(elle retourne automatiquement le nom du mois)
voir lien suivant :
http://msdn.microsoft.com/fr-fr/libr...(v=vs.80).aspx
il faut donc cocher dans reference de visualBasic Un fichier DLL mais je ne sais pas le quel pour pouvoir utiliser cette fonction dans mon code.
Saabine

Ton lien porte sur l'utilisation de la fonction dans VB2005. Il s'agit de VB.net et non pas de VBA; même si c'est probablement le même code machine, ou presque, que l'on retrouve derrière les deux fonctions. En effet, dans cette version de VB.net, (VB2005) il faut avoir une référence à l'assembly (une dll) .net VisualBasic. Comme d'autres répondeurs te l'ont signalé, la fonction est native dans VBA. Dès que tu vois 2005, 2008, 2010, 2012 ou 2013; il s'agit automatiquement de VB.net et non pas de VBA ou de VB6. Les dll de VB.net et du Framework .net ne peuvent pas être utilisées par VB6 ou VBA sans quelques acrobaties un peu ésotériques.
07/05/2014, 09h46
sabrine1311

Bonjour,

Je vous remercie pour cette explication,j'ai compris pourquoi ca ne marchait pas "Monthname" maintenant !
J'ai utilisé la solution de "rdurupt" est cela marche!
Cordialement,
sabine