changer le début du code

[petchy]

bonsoir
j'ai se code dans un bouton,donc j'envoi les infos dans la feuille sélectionné,mais maintenant je n'est plus qu'une feuille pour recevoir les infos elle se nome "archivage":
comment changer le début du code pour envoyé les infos dans cette feuille.

Private Sub CommandButton2_Click()
Dim rep As Byte
Dim feuille As String

feuille = ActiveSheet.Name
Range("A5:h5").Select
Selection.Insert Shift:=xlDown

With Sheets(feuille)
.Range("c5").Value = Label12
.Range("e5").Value = TextBox4.Text
.Range("G5").Value = Label13
.Range("f5").Value = TextBox5.Text
.Range("H5").Value = TextBox6.Text
.Range("f5").Value = TextBox7.Text
.Range("a5") = Format(Calendar1, " DD/MM/YYYY")

End With

merci
@ plus
petchy

 

[petchy]

Re

en plus l'USF s'ouvre sur une autre feuille
merci
petchy

 

[Papaye]

Salut,

Et si tu mettais :

feuille = "archivage" au lieu de feuille = ActiveSheet.Name ?

Papaye

 

[petchy]

bonjour Papaye et le forum

merci pour ta réponse,mais ça ne fonctionne pas.il n'envoi pas les infos

@ plus
petchy

 

[Ti]

je ne vois pas exactement ce que tu veux faire, mais je pense que tu devrais remplacer :

feuille = ActiveSheet.Name
Range("A5:h5").Select
Selection.Insert Shift:=xlDown

With Sheets(feuille)
.Range("c5").Value = Label12

par :

feuille = "archivage"

With Sheets(feuille)
.Range("A5:h5").Insert Shift:=xlDown

.Range("c5").Value = Label12