OVH Cloud OVH Cloud

Copier une feuille

2 réponses
Avatar
Florian
Bonjour



Je voudrai en VBA copier une feuille (qui s'appelle toto) en donnant à cette
nouvelle feuille un nom sous la forme toto (année), ou année est une donnée
se trouvant dans un range d'une autre feuille. voici ce que j'ai écrit mais
cela ne marche pas, car cela renomme la feuille ( toto(an) )sans passer la
valeur de "an"



Merci beaucoup

Flo riant



Sub Dupli_toto()

Sheets("travail").Select
an = Range("D1").Value
Sheets("toto").Select
Sheets("toto ").Copy After:=Sheets(5)
Sheets("toto (2)").Select
Sheets("toto (2)").Name = " toto (an)"
End Sub

2 réponses

Avatar
MPi
Essaie comme ceci
Sheets("toto (2)").Name = " toto (" & an & ")"

Michel


Bonjour



Je voudrai en VBA copier une feuille (qui s'appelle toto) en donnant à cette
nouvelle feuille un nom sous la forme toto (année), ou année est une donnée
se trouvant dans un range d'une autre feuille. voici ce que j'ai écrit mais
cela ne marche pas, car cela renomme la feuille ( toto(an) )sans passer la
valeur de "an"



Merci beaucoup

Flo riant



Sub Dupli_toto()

Sheets("travail").Select
an = Range("D1").Value
Sheets("toto").Select
Sheets("toto ").Copy After:=Sheets(5)
Sheets("toto (2)").Select
Sheets("toto (2)").Name = " toto (an)"
End Sub





Avatar
Florian
Parfait
Merci beaucoup
Flo riant

"MPi" a écrit dans le message de news:

Essaie comme ceci
Sheets("toto (2)").Name = " toto (" & an & ")"

Michel


Bonjour



Je voudrai en VBA copier une feuille (qui s'appelle toto) en donnant à
cette
nouvelle feuille un nom sous la forme toto (année), ou année est une
donnée
se trouvant dans un range d'une autre feuille. voici ce que j'ai écrit
mais
cela ne marche pas, car cela renomme la feuille ( toto(an) )sans passer
la
valeur de "an"



Merci beaucoup

Flo riant



Sub Dupli_toto()

Sheets("travail").Select
an = Range("D1").Value
Sheets("toto").Select
Sheets("toto ").Copy After:=Sheets(5)
Sheets("toto (2)").Select
Sheets("toto (2)").Name = " toto (an)"
End Sub