Copie d'une feuille dans un autre Classeur

[Manu62]

Bonjour le forum,

J'ai le code suivant : imprime + enregistre
Sub Bouton1_Clic()
Sheets("Commande").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Commande").Select
mon_wbk = ActiveWorkbook.Name
madate = Replace([B72], "/", "_")
mon_nom = [B73]
Sheets("Commande").Copy
ActiveWorkbook.SaveAs "C:\" & madate & "_" & mon_nom & ".pdf"
Windows(mon_wbk).Activate
End Sub

Ici on active la feuille en cours.
Comment puis je l'associé à une feuille

Merci d'avance

Manu

 

[RENAUDER]

Re : Copie d'une feuille dans un autre Classeur

Bonjour,

Je ne comprends pas bien la question.
Ton exemple fonctionne alors que veux tu faire exactement ?

 

[Manu62]

Re : Copie d'une feuille dans un autre Classeur

Bonjour Renauder,

En fait j'ai trouvé entre temps.
Merci Quand même.

Par contre, je remarque que :
Il m'ouvre le fichier après l'enregistrement 'Peux t'on l'enlever'
Peux t'on faire juste une copie mais que en valeures et format.

Merci de ton aide

Manu

 

[RENAUDER]

Re : Copie d'une feuille dans un autre Classeur

Bonjour,
Il ne te ré-ouvre pas le fichier, il t'active le classeur source puisque tu as fait une copie de Commande et elle se met dans un nouveau classeur.
Tu peux faire
Windows(mon_wbk).Close Savechanges:=False
Pour ne mettre que les valeurs et formats dans ta nouvelle feuille, il faut utiliser le Collage Spécial

 

[Manu62]

Re : Copie d'une feuille dans un autre Classeur

Bonjour le forum, Renauder,

Pouvez vous me donner un petit coup de pouce ! pour le collage spéciale !

Merci

manu