Se connecter avec
S'enregistrer | Connectez-vous

Copier une feuille (avec les graphiques) d'un classeur dans un autre classeur

Dernière réponse : dans Programmation

Bonjour,

Je souhaiterais pouvoir copier une feuille (avec des données dans les cellules et des tableaux dans cette feuille) d'un classeur et la mettre dans un autre classeur. J'ai cherché dans plusieurs topics mais les solutions proposées ne me plaisent pas à 100%.

J'ai tapé ce code :

  1. Private Sub CommandButton1_Click()
  2. Dim Wb As Workbook
  3. Dim Ws1 As Worksheet
  4. Dim Ws2 As Worksheet
  5. Dim Ws3 As Worksheet
  6. Dim Ws4 As Worksheet
  7. Dim Ws5 As Worksheet
  8.  
  9. Set Wb = Workbooks.Add 'Ouverture d'un classeur Excel qui doit recevoir les feuilles
  10. Set Ws1 = Workbooks("Recap Multipass MàJ 2011").Worksheets("T des données")
  11. Set Ws2 = Workbooks("Recap Multipass MàJ 2011").Worksheets("Net Delta P")
  12. Set Ws3 = Workbooks("Recap Multipass MàJ 2011").Worksheets("Eff Moy")
  13. Set Ws4 = Workbooks("Recap Multipass MàJ 2011").Worksheets("Eff Init")
  14. Set Ws5 = Workbooks("Recap Multipass MàJ 2011").Worksheets("Eff %")
  15.  
  16. Ws1.Copy Wb.Worksheets(1)
  17. Ws2.Copy Wb.Worksheets(2)
  18. Ws3.Copy Wb.Worksheets(3)
  19. Ws4.Copy Wb.Worksheets(4)
  20. Ws5.Copy Wb.Worksheets(5)
  21. End Sub


Le problème c'est que ce code me permet uniquement de copier les cellules mais pas les tableaux.

- Ma question est donc, est-il possible de copier la feuille (avec les graphiques) pour la coller dans un autre classeur ?
Philou250 a édité ce message
Lassé par la pub ? Créez un compte
Expert Programmation

Salut Philou :hello: 

Ben je ne comprends pas ta question.
Je viens de tester avec Excel 2003 ce code simplifié :
  1. Dim Wb As Workbook
  2. Set Wb = Workbooks.Add
  3. Set Ws1 = ThisWorkbook.Worksheets(1)
  4. Ws1.Copy Wb.Worksheets(1)


Ma feuille 1 contient un graphique :
  1. Set ws1 = ThisWorkbook.Worksheets(1)
  2. For Each x In ws1.Shapes
  3. MsgBox x.Name
  4. Next

La boîte de dialogue dit : "Chart 2".

Alors on ne doit pas parler de la même chose. :/ 

En fait nan, ça ne marche pas.
J'avais essayé ton code sur un autre ordinateur et ça fonctionnait très bien, mais pas sur l'ordinateur du boulot :( 

Peut être que c'est dû aux différentes versions (Excel français 2010 sur l'ordinateur où ça marchait, et Excel anglais 2007 sur le pc où ça ne fonctionnait pas).

En tout cas, c'est pas trop grave. Je vais faire un code qui crée des tableaux dans les worksheets du nouveau workbook.
Philou250 a édité ce message
Lassé par la pub ? Créez un compte
  • Contenus similaires :
Tags :