n° incrémenté + feuille copiée sur nouvelle

[Simons]

Salut tout le monde,

J'ai encore un p'ti souci avec mon classeur.
Comme indiqué dans mon précédent mail, mon problème est que j'arrive à obtenir mon résultat une fois et ensuite 'message d'erreur'.

Voila ce que j'aimerais :
Sur la 1ère page cliquer sur 'nouveau'
'le numéro s'incrèmente sur la feuille2 et cette feuille est selectionnée
On clique ensuite sur 'valider'
Pas de problème jusqu'ici ! La feuille est copiée et elle est recopiée sous une nouvelle feuille qui porte comme nom le numéro qui est incrémenté.
C'est quand on recommence la manip que mon problème se pose :
on clique encore sur 'nouveau' on retombe sur la feuille2 et la si on valide le message d'erreur apparait !

Question subsidiaire : Si on clique non après avoir validé la feuille est quand même copiée. Comment éviter ca ???

Merci d'avance pour votre aide.

Je vous remet mon fichier en pièce jointe. [file name=Bordereau_20050517134327.zip size=18254]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Bordereau_20050517134327.zip[/file]

 

[dg62]

Bonjour Simons


Pour utiliser sheet(2) il faut que ta feuille soit en 2e position.


sheet(2), ce n'est pas feuil2

Sub commandbutton2_click()
Dim rep As Integer
Dim nom As String
rep = msgbox('Valider le bordereau ?', vbYesNo)
rep = vbYes
nom = Sheets(2).Range('a1').Value
'Sheets(2).Range('a1').Copy

Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
Application.ActiveSheet.Name = nom




'worksheets.Add
'ActiveSheet.Name = nom
'Sheets(nom).Paste
'ActiveSheet.Move After:=worksheets(2)
Feuil1.Select
If rep = vbNo Then Exit Sub
End Sub

 

[Simons]

Merci Didier le code est super.
Pour ce qui est d'annuler la copie de la feuille en cas de 'vbno' après le 'messagebox' je vais essayer de chercher un peu avant d'éventuellement redemander de l'aide.

Merci encore !