Discussion :

[bmeda72]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jolzeviking]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[bmeda72]

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

[zazaraignée]

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!

[JackOuYA]

Bonjour,


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"
...

[zazaraignée]

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