DEFINIR UNE VARIABLE SUR 4 DIGIT

Merci
@lermite222 je vais essayer !!!!!!!!

J'ai essayé mais en vain j'y arrive pas. ç

ça doit etre que je suis trop Nul.
En faites ce que je voulais c'est de lire les données d'une feuille excel. sur la premiere colone je recupere l'année actuelle suivi des 4 digit que j'incremente a chaque nouvelle click sur un bouton.
L'affichage sur le label doit etre : nom_annéeactuelle-4digit
exemple : nom_2012-0001 , nom_2012-0002, nom_2012-0003 quand je click sur un bouton commande jincremente les 4 digit et j'affiche sur un label.
PS : LE CODE EST LOIN D'etre bien. Comme je l'ai mentionné je suis débutant et à mon avis je commence DURE
Voici le code en question :


Public Class Accueil

Dim appliExcel As Microsoft.Office.Interop.Excel.Application 'Appel ouverture Excel
Dim classeur As Microsoft.Office.Interop.Excel.Workbook 'Appel classeur
Dim feuille As Microsoft.Office.Interop.Excel.Worksheet 'Apple Feuille
Dim cellule As Microsoft.Office.Interop.Excel.Range 'Appel cellule

Dim convertCellule As String
Dim i As Integer
Dim j As Integer
Dim convertVar As String = "0000"


Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click 'Btn4.Click

'Ouverture de la page 1
Page1.Show()
'Appel de l'application d'excel
appliExcel = CreateObject("Excel.Application")
'Masque l'application Excel
appliExcel.Visible = False
'Evite une erreur si le classeur n'existe pas
On Error Resume Next
classeur = appliExcel.Workbooks.Open("D:\Catalogue")
feuille = classeur.Worksheets(1)
On Error GoTo 0
'Premeire feuille par defaut
' feuille = classeur.Worksheets("feuille1")
'cellule = feuille.Range("A65535").End(Microsoft.Office.Interop.Excel.XlDirection.xlUp).Offset(1, 0)

cellule = feuille.Range("A65535").End(Microsoft.Office.Interop.Excel.XlDirection.xlUp).Offset(1, 0)
'Page1.Lbl1.Text = cellule



convertVar = CStr(j)
j = "0000"

If i = Year(Now) Then
Page1.Lbl1.Text = " nom" & "_" & i & "-" & j
MsgBox(Page1.Lbl1.Text)
j = j + 1
Else
i = Year(Now)

End If


'Sauvegarde du classeur
'classeur.Save()
'Fermeture du classeur
classeur.Close(False)
'Fermeture de l'application
appliExcel.Quit()
'Libération mémoire
classeur = Nothing
appliExcel = Nothing




End Sub

Private Sub Btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click
Page2.Show()

End Sub
End Class

Re
Lermite222;
Oui je te remercie j'ai pu resoudre le probleme ;)
Merci Beaucoup
A la prochaine