excel afficheur et timer

Salut,
Remplace le Dim j as integer par Static j as integer car sinon j est remis a 0 a chaque fois que tu sors de la procedure

@+, Julien
Pensez:
Moteur de Recherche,

Merci Julien mais si je fais ce que tu me dis:

_________________________________
Private Sub Timer1_Timer()
Static j As Integer
Dim Lblire As String
   Lblire = "peut importe ce que c'est"
   wsExcel.Cells(j, 1) = Lblire
   wbExcel.Save
   j = j + 1  
End Sub
___________________________________

il me met une erreur: "application-defined or object-defined error"
il faudrait que j'initialise ce j quelque part...? Mais d'ou?

Wisdeco

Salut,
Sinon avec le code de départ

Private Sub Timer1_Timer() 
Static j As Integer 
Dim Lblire As String 
   Lblire = "peut importe ce que c'est" 
   If J = 0 Then j = 1 
   wsExcel.Cells(j, 1) = Lblire 
   wbExcel.Save 
   j = j + 1    
End Sub 

 

Coloration syntaxique automatique [AFCK]
       

@+, Julien
Pensez: Moteur de Recherche,
Réponse Accpetée, <