petit problème de cellules

[Isabelle]

Salut,

Voilà mon problème, je veux utiliser un compteur qui me permette d'incrémenter les lignes d'une cellule.
J'utilise une boucle do loop until.

Voici mon script:


____________________________________________________

Dim Dossier$, Fichier$


Dossier = "C:\Files\"

Fichier = Dir(Dossier & "*.xls")




Do



Workbooks.Open Filename:=Dossier & Fichier



i = 11

Sheets("Feuil1").Select
Range("F12").Copy

Workbooks.Open Filename:="C:\Mes documents\classeur.xls"


Range("$Ci").Select
ActiveSheet.Paste


ActiveWorkbook.Close True



Fichier = Dir()

i = i + 1

Loop Until Fichier = ""

End Sub

_________________________________________________

J'ai un problème avec le i.
Je ne sais pas comment le formuler.

Pouvez_vous m'aider?

 

[Marmotte3]

Salut !

Essaye de le déclarer :

Dim I as Integer

Et remplace :

Range("$Ci").Select

Par :

Sheets("Feuille").cells( I , 3 ).select

Voila !

 

[STéphane]

ou range("c" & i).select


bye
stephane