vba(excel97)Copie une feuille

Bonjour,


J'ai sur une feuille(sheet3"Commande") un bon de commande.
Je voudrais que lorsque je clique sur un bouton, il me crée un nouveau bon de commade(cpie la feuille et la place après)

J'ai essayé avec l'enregistreur de macro et il me retourne une erreur

Run-time error '1004'
Copy method of worksheet class failed
le débogueur s'arrête sur la ligne 2

Code:

---

1 2 3 4 5

Sheets("Commande").Select Sheets("Commande").Copy After:=Sheets(3) Sheets("Commande (2)").Select Sheets("Commande (2)").Name = "Commande" & Date

---

une idée merci

Essaie ça, ça ira déjà mieux au niveau de l'écriture :)

Code:

---

1 2	worksheets("Commande").Copy After:=worksheets(worksheets.count) activesheet.name="Commande" & cstr(Date)

---

Je n'ai pas tenté mais ça doit être ça. Remarque que j'ai mis Cstr() devant Date qui te renvoie un variant (peut être pas nécessaire mais bon ;))

P.S:Evite a tt prix les .select ou .activate (comme te les donne justement l'enregistreur)

j'ai essayé ton code mais toujours une erreur

Code:

---

1 2 3 4

worksheets("Commande").Copy After:=worksheets(worksheets.count) activesheet.name="Commande" & cstr(Date)

---

attention excel 97

Ton classeur ne serait pas protégé par hasard ?
A+

non il n'est pas protégé

oops dsl c'est le format de la date qui pose problème...
Essaie ça :

Code:

---

1 2	worksheets("Commande").Copy After:=worksheets(worksheets.count) activesheet.name="Commande" & Format(Now, "dd-mm-yyyy" & " à " & "hh""h""mm""'""ss""''""")

---

A adpater si tu ne veux pas l'heure ...

toujours le même problème malgré ton changement de format de date

bonsoir

tu peux faire un essai en ajoutant

Code:

---

Range("A1").Select

---

en tout début de procédure

Code:

---

1 2 3

Range("A1").Select Sheets("Commande").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "essai" & Format(Date, "yyyy_mm_dd")

---

michel

Re-bonjour,

Alors je ne pense pas que le select soit très utile (ou alors il faut m'expliquer :)) par contre j'avais persisité dans mon erreur puisque le format que je te donnais incluais des caractères incompatibles avec un nom de page (les "'" de secondes).
Essaie donc ça

Code:

---

1 2	worksheets("Commande").Copy After:=worksheets(worksheets.count) activesheet.name="Commande" & Format(Now, "dd-mm-yyyy")

---

Une remarque quand même, si tu avais lu message d'erreur qui s'affichait tu aurais pu trouver (enfin je pense)

Bonne soirée

bonjour Concombr

tu as raison concernant le format Date mais dans ce cas cela doit bloquer sur la 3eme ligne, alors qu'apparament le soucis est au niveau de la copie dans 2eme ligne

Citation:

---

le débogueur s'arrête sur la ligne 2

---

Stargates a précisé qu'il utilisait Excel97: il y a un bug connu quand ce genre de macro est lancé depuis un CommandButton avec cette version d'Excel

d'ou le

Code:

---

Range("A1").Select

---

qui effectivement n'est pas utile si la macro est lancée depuis un module standard...;o)


bonne journée
michel

Oki prof ;) c'est vrai que j'avais occulté le pb de version.

ok merci