copie feuille(excel 97)

[stargate]

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


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





une idée merci

 

[ziopizza]

Re : copie feuille(excel 97)

Bonjour à tous,
Un petit exemple joint à adapter
Salut

 

[stargate]

Re : copie feuille(excel 97)

attention, je suis en excel 97


Il me retourne la même erreur







merci

 

[ERIC S]

Re : copie feuille(excel 97)

Bonsoir

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

 

[stargate]

Re : copie feuille(excel 97)

toujours la même erreur




Sheets("Commande").Select
Sheets("Comande").Copy After:=Sheets(Sheets.Count) ici l'erreur
ActiveSheet.Name = "essai" & Format(Date, "yyyy_mm_dd")

 

[ERIC S]

Re : copie feuille(excel 97)

re

commande avec 2*m

🙂

 

[stargate]

Re : copie feuille(excel 97)

avec correction des 2m meme erreur


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

 

[ERIC S]

Re : copie feuille(excel 97)

re

joins le fichier

 

[stargate]

Re : copie feuille(excel 97)

voici le fichier

 

[ERIC S]

Re : copie feuille(excel 97)

re

j'ai 97
je regarde demain matin

 

[ERIC S]

Re : copie feuille(excel 97)

Bonjour

un essai à faire : au lieu d'utiliser un bouton de la barre d'outils contrôle, crée-le avec la barre formulaire et affecte lui macro4

 

[ERIC S]

Re : copie feuille(excel 97)

re

sinon avec ton bouton d'origine, le code en direct dans click

Private Sub cmdNouvCommande_Click()

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

Le range(""A1") soit supprimer l'erreur

 

[stargate]

Re : copie feuille(excel 97)

super merci

 

[Ti_]

Re : copie feuille(excel 97)

Dis donc Stargate, je constate que tu as posé la même question sur Vériti, qu'on t'y a répondu, mais que tu n'as pas jugé bon de réagir à cette réponse (es-tu seulement allé la voir ???)
Pas très fair play tout ça...

 

[stargate]

Re : copie feuille(excel 97)

un oubli,désolé

maintenant c'est fait