Save as filename

Bonjour à tous

J'ai crée une procédure qui ajoute un classeur et le sauve dans D:\user\toto.xls. Je voudrais qu'à chaque lancement il crée toto1, toto2 toto3 etc.... et les sauve dans le même repertoire.
Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub AddNew() Dim Newbook As Workbook On Error Resume Next Set Newbook = Workbooks.Add(xlWBATWorksheet) On Error Resume Next With Newbook .Title = "Result toto" .Subject = "Result" .SaveAs Filename:="D:\user\Result toto.xls" End With End Sub

---

Salut pour moi j'ai remplis un tableau sur mon classeur de départ.

Code:

---

1 2 3 4 5 6

Dim star as variant dim starter as string star =right (range("A1"),1) range("A1").value = "toto" & star +1 starter = range("A1").value 'et la tu utilise starter comme variable du nom

---

De la bricole mais ca dépanne.

Ok, merci c'est une idée géniale
je vais l'adopter.

Ben... Moi je compterais les fichiers de ce classeurs qui ont l'extension .xls et dont le nom commence par toto... en utilisant la commande Dir. Je crois que l'utilisation de Dir est dans l'aide. J'en suis même certaine... Sinon, il doit bien y avoir une rubrique dans la FAQ (VB ou VBA) et dans les tutoriels (VB ou VBA).

Bonne lecture!

Bonjour,


tu peu aussi utiliser une solution plus, comment dirai-je "brutale"

Code:

---

1 2 3 4 5 6 7 8 9 10

dim i as integer i =1 ...   While dir ("D:\user\toto" & i & & ".xls") <> "" i= i+1 wend .SaveAs Filename:="D:\user\toto" & i & & ".xls" ...

---

Chut! Fallait pas le dire tout de suite sans une petite recherche...