Copier une feuille dans un autre classeur

[DJ FA]

Bonjour voilà mon code qui ne fonctionne pas, je souhaite copier la feuille (ct) dans le classeur (ct2). A savoir que le classeur ct2 n'est pas ouvert. Merci

Sub exporter()
Sheets("ct").Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\DJ FA\Desktop\ct2.xls"
Sheets("ct").Copy Before:=Workbooks("ct2.xls").Sheets(1)
End Sub

 

[hbenalia]

Re : Copier une feuille dans un autre classeur

Bonjour à tous,


Un essai avec le code suivant:

Sub exporter()
    ChDir "C:\Users\DJ FA\Desktop"
    Workbooks.Open Filename:="C:\Users\DJ FA\Desktop\ct2.xls"
    Windows("Classeur1").Activate
    Sheets("ct").Select
    Sheets("ct").Copy Before:=Workbooks("ct2.xls").Sheets(1)
End Sub

NB: "Classeur1" est le nom du classeur qui contenait la feuille "ct", le changer selon nécessité...

Cordialement,

hbenalia

 

[néné06]

Re : Copier une feuille dans un autre classeur

Bonsoir DJ FA

un petit extrait d'une routine que j'utilise

cordialement
Néné06

 

[DJ FA]

Re : Copier une feuille dans un autre classeur

Merci, j'essaye d'adapter ta macro sur mes classeurs et je te dis ça.😛

 

[DJ FA]

Re : Copier une feuille dans un autre classeur

Adapter, je n'y arrive pas, par contre sur ma macro avez-vous une idée?

Elle bloque ici :

Sheets("ct").Copy Before:=Workbooks("ct2.xls").Sheets(1)

Le classeur s'ouvre mais ne veut pas copier la feuille.

 

[job75]

Re : Copier une feuille dans un autre classeur

Bonjour le fil,

Préciser le classeur à droite n'est pas forcément nécessaire, par contre à gauche il faut le préciser : ThisWorkbook.Sheets("ct").Copy si la macro est dans le classeur où se trouve la feuille copiée.

A+

 

[DJ FA]

Re : Copier une feuille dans un autre classeur

Je viens de réussir ce que je voulais faire, merci à vous.😀