I
Isabelle
Guest
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?
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?