Macro pour dupliquer des onglets dans un nouveau classeur

[martinJ75]

Bonjour

Est ce que quelqu un peut me dire ce qu il ne va pas avec la macro suivante:

Sheets("BAR").Select
Sheets("BAR").Copy
Windows("BARv13g unlock.xls").Activate
Sheets("Graphs").Select
Sheets("Graphs").Copy Before:=Workbooks("Book7").Sheets(1)


Merci

 

[Catrice]

Re : Macro pour dupliquer des onglets dans un nouveau classeur

Bonjour,

Le code suivant fonctionne (il fau adapter les chemins). Le debut du code semble superflu ou bien : dans quel fichier se trouve BAR ?
Qu'est ce qui ne fonctionne pas chez toi ?
Mais je ne sais pas exactement ce que tu veux faire.
voir le fichier joint

Sub Test()
'Sheets("BAR").Copy
'Workbooks("BARv13g unlock.xls").Activate
'Sheets("Graphs").Select
Sheets("Graphs").Copy Before:=Sheets(1) 'Workbooks("Book7").Sheets(1)
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:="C:\data.xls"
Workbooks.Open Filename:="BARv13g unlock.xls"
Workbooks("BARv13g unlock.xls").Activate
End Sub

 

[martinJ75]

Re : Macro pour dupliquer des onglets dans un nouveau classeur

Bonjour,

En fait je cherche une macro susceptible de copier certains onglet de mon classeur dans un nouveau classeur.

 

[Catrice]

Re : Macro pour dupliquer des onglets dans un nouveau classeur

Re,

Ci-joint un exemple qui sauvegarde des onglets et ferme en enregistrant un fichier Data.xls