Ma feuille n'est pas créee automatiquement

[L.Patrick]

Bonjour j'ai un souci avec mon petit programme, quand je saisie les infos en cliquant "nouvelle fiche" une nouvelle feuille (modèle) doit se créer sous le nom saisie auparavant mais rien ne se passe, quelqu'un pourrait m'aider s'il vous plait car je ne connais pas encore le vba, j'ai joint le fichier (Lpatrick.zip). Merci d'avance.

Private Sub CmdCancel_Click()
Unload UserForm1
End Sub

Private Sub CmdOK_Click()
Sheets("Liste").Select
ActiveSheet.[DEB].Select
Selection.End(xlDown).Select
If Selection.Address = "$A$65536" Then
Range("DEB").Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
ActiveCell.Value = UserForm1.txtNom
ActiveCell.Offset(0, 1).Value = UserForm1.txtPrenom
ActiveCell.Offset(0, 2).Value = UserForm1.TxtTelDom
ActiveCell.Offset(0, 3).Value = UserForm1.TxtTelBur
'Sheets("Modèle").Select
'Sheets("Modèle").Copy
Worksheets("Modèle").Copy after:=Worksheets("Modèle")

ActiveSheet.Name = UCase(UserForm1.txtNom) & " " & UserForm1.txtPrenom
ActiveSheet.Range("D5") = UserForm1.txtNom
ActiveSheet.Range("D6") = UserForm1.txtPrenom
ActiveSheet.Range("D13") = UserForm1.TxtTelDom
ActiveSheet.Range("D17") = UserForm1.TxtTelBur
Unload Me
End Sub

 

[petchy]

bonsoir le forum

j'ai essayer ton fichier et je saisi un nouveau dans l'USF j'ai bien une nouvelle feuille qui se crée avec le non que j'ai saisi.
j'ai peut etre mal compris ta question!
@ plus
petchy

 

[schmail]

Bonsoir L.Patrick

Sous XL2000, je n'ai aucun pb avec ton fichier. Une nouvelle feuille est bien créée avec le nom de l'enfant.

@+ et bon WE

 

[schmail]

Coucou Petchy

On s'est croisé. Dis donc t'es tout triste ou quoi ? Tu ne nous met plus de gifs ;-))

Bon WE et @+

 

[petchy]

Le Forum

moi j'ai excel XP
Schmail
non non je ne suis pas triste ,mais il faudrait que je change ma bibliotheque de gifs car se sont toujours les memes