Discussion :

[pelerin98]

Bonjour,
désolé de poser une question basique mais voici 2 heures que je patauge dans les aides sans trouver la solution :
Je veux tout simplement copier un fichier (une feuille) "base" 3 fois mais en lui donnant un nom spécifique à chaque fois ( "Fich01" "Fich02" "Fich03" par exemple.

Je sais faire :

Code :

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

1
2
3
 For n = 3 To 1 Step -1
        Worksheets("base").Copy Before:=Worksheets("Jour")
    Next

mais ça me donne évidemment 3 copies "base(2)" "base(3)" et "base(4")

Comment copier et changer le nom ?

Merci beaucoup

[casefayere]

Bonjour,
et comme ça ? :

Code :

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

1
2
3
4
For n = 3 To 1 Step -1
Worksheets("base").Copy Before:=Worksheets("Jour")
ActiveSheet.Name = "Fich" & Format(n, "00")
Next

[pelerin98]

Bonsoir casefayere,

tout d'abord excuse moi pour cette réponse tardive, mais j'ai eu un gros bug avec mon internet et j'étais . . . sans fil !
C'est réparé.
Merci pour ton aide. Evidemment ça fonctionne parfaitement.

Vous êtes tous formidables.