VBA copie d'une feuille à la suite d'une feuille d'un autre classeur!

Odesta

XLDnaute Impliqué

• 25 Octobre 2011

• #2

Re : VBA copie d'une feuille à la suite d'une feuille d'un autre classeur!

Bonjour

"a la suite" signifie dans la même feuille, en dessous, ou-bien en ajoutant après (comme lorsque l'on fait "Déplacer ou Copier") ?

Pour la nouveau nom je conseil un "inputbox"

Cdt
O

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 25 Octobre 2011

• #3

Re : VBA copie d'une feuille à la suite d'une feuille d'un autre classeur!

en ajoutant après comme déplacer copier!

j'ai créé ce code:
Sub cop()
Workbooks.Open Filename:= _
"S:\METHODES\16 - monprojet\2- Prototypes\monfichier1.xls"
Sheets("onglet1").Select
Sheets("onglet1").Copy After:=Workbooks( _
"monfichier2.xls").Sheets(2)
Windows("monfichier1.xls").Activate
ActiveWindow.Close
End Sub

seulement lorsque j'active la macro (pour le moment), windows me demande si je veux enregistrer les modifications sur le fichier initial (celui ou je vais chercher la copie), ce que je ne souhaite pas.
je vais essayer inputbox merci

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 25 Octobre 2011

• #4

Re : VBA copie d'une feuille à la suite d'une feuille d'un autre classeur!

Après reflexion, je souhaiterais que la copie du fichier prenne le nom du bouton sur lequel j'active la macro de copie :s

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 25 Octobre 2011

• #5

Re : VBA copie d'une feuille à la suite d'une feuille d'un autre classeur!

J'ai simplifier mon problême, voila le code:


Sheets("feuil1").Select
Sheets("feuil1").Copy Before:=Sheets(2)
Sheets("feuil1 (2)").Select
Sheets("feuil1(2)").Name = "NOUVEAUNOM"

donc ça me convient merci

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #6

Re : VBA copie d'une feuille à la suite d'une feuille d'un autre classeur!

Bonjour


Tu peux encore simplifier en te passant des Select

Code:

Sheets("feuil1").Copy Before:=Sheets(2)
ActiveSheet.Name = "NOUVEAUNOM"

 

Dernière édition: 25 Octobre 2011

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 25 Octobre 2011

• #7

Re : VBA copie d'une feuille à la suite d'une feuille d'un autre classeur!

Re.

adi399 à dit:

Windows("monfichier1.xls").Activate
ActiveWindow.Close
End Sub

seulement lorsque j'active la macro (pour le moment), windows me demande si je veux enregistrer les modifications sur le fichier initial (celui ou je vais chercher la copie), ce que je ne souhaite pas.

Cliquez pour agrandir...

Pour fermer sans sauvegarder

Workbooks("monfichier1.xls).Close savechanges:=False

Cliquez pour agrandir...

Cdt

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 26 Octobre 2011

• #8

Re : VBA copie d'une feuille à la suite d'une feuille d'un autre classeur!

Super merci à vous deux!

 

Vote positif 0 Vote négatif