Discussion :

[stargates]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[conconbrr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[stargates]

j'ai essayé ton code mais toujours une erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

attention excel 97

[ouskel'n'or]

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

[stargates]

non il n'est pas protégé

[conconbrr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...