vba(excel97)Copie une feuille

**stargates** · 03/10/2006, 19h00

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** · 03/10/2006, 19h21

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** · 03/10/2006, 19h34

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** · 03/10/2006, 19h43

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

**stargates** · 03/10/2006, 19h54

non il n'est pas protégé

**conconbrr** · 03/10/2006, 20h19

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

**stargates** · 03/10/2006, 20h41

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

**SilkyRoad** · 03/10/2006, 21h30

bonsoir

tu peux faire un essai en ajoutant

Code :

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

Range("A1").Select

en tout début de procédure

Code :

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

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

michel

**conconbrr** · 03/10/2006, 22h51

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 :

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")

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

**SilkyRoad** · 04/10/2006, 05h53

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

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 :

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