Discussion :

[sabrine1311]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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.

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

[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.

[Invité]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sabrine1311]

Bonjour,
Merci à vous 2 pour vos réponses!
j'ai testé que la premiere,
Rudrupt, cela fonctionne parfaitement.
Cdlt,
sabine

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox MonthName(10, True)

[clementmarcotte]

Bonjour,

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.

[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