Recupérer nom image

Bonjour,
Dans le cadre d'un jeu de cartes que j'essaye de réaliser, je ne vois pas du tout comment faire pour :
1) Récupérer le nom de l'image de façon a pouvoir par la suite lui attribuer sa valeur préalablement définie, par exemple, si le joueur 1 joue la carte la plus forte, à savoir le 2 de coeur (2c.jpg)
j'ai besoin de récupérer le "2c"

J'espère avoir été assez clair...
Merci d'avance pour votre aide !

Avec sa sa devrais passer

'--------------------------------------------------------------------------------------
Dim vCarte As String

vCarte = "2c.jpg"

Debug.Print Left(vCarte, InStrRev(vCarte, ".") - 1)
'--------------------------------------------------------------------------------------

"Le difficile c'est ce qui peut-être fait tout de suite. L'impossible, c'est ce qui prend un peu plus de temps.", George Santayana

Oki merci mais j'ai dû mal m'exprimer alors.. :)
le problème est de récupérer "2c.jpg" au moment ou le joueur joue la carte et non de récupérer "2c" à partir de "2c.jpg"
Les 52 cartes sont toutes sur le tapis cachées bien évidemment
une fois cliqué sur distribuer, s'il y a 2 joueurs, il y aura 2*26 picture box pour leurs cartes.
Et c'est lorqu'il joue une carte que je veux récupérer le "2c" de façon à connaitre la valeur de la carte.
Mercii

Je me doute que c'est des picturebox ?

dans ce cas Picture1(x).Tag = Valeur

@+

E.B.

Merci à vous 2

Désolé de vous embéter encore mais je n'arrive pas à faire la suite à savoir :
Maintenant que les 52 cartes st chargées ds 52 picture box et que je connais leur nom, je voudrais les distribuer au hasard bien sur, entre 2 joueurs.
J'arrive bien à les distribuer par contre je n'arrive pas à garder leur nom une fois ds le jeu des joueurs...

Voici le code :


Private Sub Form_Load()
'chargement des images dans le tableau
Dim Fic As String
Dim X As Integer
Fic = Dir("img\*.gif", vbNormal)
Do While Fic <> vbNullString
ReDim Preserve Cartes(X)
Cartes(X).Chemin = "img\" & Fic
Cartes(X).Nom = Left(Fic, Len(Fic) - 4)
'Cartes(X).Force = Left(Fic, Len(Fic) - 8)
X = X + 1
Fic = Dir()
Loop
'Affichage des images dans picture1(0)
'1er picturebox chargé a l'ecran
JeuCarte(0).Picture = LoadPicture(Cartes(0).Chemin)
'chargement de nv picturebox pour chaque nv carte
For i = 1 To UBound(Cartes)
Load JeuCarte(i)
JeuCarte(i).Visible = True
JeuCarte(i).Left = JeuCarte(i - 1).Left + (JeuCarte(i - 1).Width) / 3
JeuCarte(i).Picture = LoadPicture(Cartes(i).Chemin)
Next i

k = 0
NbCarte = 0
Compteur = 0
Flag = False
Val = 0
X = 3
Statut = 1
Tour = 1
Timer1.Enabled = False
End Sub

Private Sub Distribution_Click()
DistributionCarte (26) ' On distribue 26 cartes à chaque joueur
End Sub

Private Function TireUneCarte() As Long
Dim N As Long
Randomize
Do
' Tire une carte au hasard
N = Int(Rnd * 52)
' Jusqu'a ce que ce soit une carte non encore distribuée
Loop While Distribuee(N)
' Marque cette carte comme distribuee
Distribuee(N) = True
' Renvoie le numéro de la carte
TireUneCarte = N
End Function

Private Sub ChargeCarte(Idx As Long, Carte As Long, Aqui As String)
Dim Pic As PictureBox
Dim SuperDiviseur As Integer

' On affecte à l'objet Pic la bonne image
Select Case Aqui

Case "Joueur1"
Set Pic = Tapis2.Joueur1(Idx)
'Joueur1(Idx).Tag = Tapis2.Carte(Carte).Tag
If (Carte = 0) Then
SuperDiviseur = 1
Else
SuperDiviseur = (Int(Carte / 4)) + 1
End If

CarteValeurJr1(Compteur) = Cartes(Compteur).Nom

MsgBox (CarteValeurJr1(Compteur))

Case "Joueur2"
Set Pic = Tapis2.Joueur2(Idx)
'Joueur2(Idx).Tag = Tapis2.Carte(Carte).Tag
'MsgBox (Pic)
If (Carte = 0) Then
SuperDiviseur = 1
Else
SuperDiviseur = (Int(Carte / 4)) + 1
End If

CarteValeurJr2(Compteur) = SuperDiviseur
Compteur = Compteur + 1

'MsgBox (Compteur)
End Select
' Charge la bonne image
Pic.Picture = Tapis2.JeuCarte(Carte)
'MsgBox Cartes(Idx).Nom
End Sub

Private Sub DistributionCarte(Nb As Long)
Dim i As Long, N As Long
' Remise à zéro. Toutes les cartes sont dans la pioche
For i = LBound(Distribuee) To UBound(Distribuee)
Distribuee(i) = False
Next
' On distribue Nb cartes au joueur1 et au joueur2
For i = 0 To Nb - 1
ChargeCarte (i), TireUneCarte, "Joueur1"
ChargeCarte (i), TireUneCarte, "Joueur2"
Next
End Sub

Je voudrais, par exemple, cliquer sur une carte du joueur1 et que ça m'affiche le nom de cette carte...

Merci d'avance !!!