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

Philou250

Habitué
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 :

Code:
Private Sub CommandButton1_Click()
Dim Wb As Workbook
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim Ws3 As Worksheet
Dim Ws4 As Worksheet
Dim Ws5 As Worksheet

Set Wb = Workbooks.Add 'Ouverture d'un classeur Excel qui doit recevoir les feuilles
Set Ws1 = Workbooks("Recap Multipass MàJ 2011").Worksheets("T des données")
Set Ws2 = Workbooks("Recap Multipass MàJ 2011").Worksheets("Net Delta P")
Set Ws3 = Workbooks("Recap Multipass MàJ 2011").Worksheets("Eff Moy")
Set Ws4 = Workbooks("Recap Multipass MàJ 2011").Worksheets("Eff Init")
Set Ws5 = Workbooks("Recap Multipass MàJ 2011").Worksheets("Eff %")

Ws1.Copy Wb.Worksheets(1)
Ws2.Copy Wb.Worksheets(2)
Ws3.Copy Wb.Worksheets(3)
Ws4.Copy Wb.Worksheets(4)
Ws5.Copy Wb.Worksheets(5)
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 ?
 

zeb

Modérateur
Salut Philou :hello:

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

Ma feuille 1 contient un graphique :
Code:
Set ws1 = ThisWorkbook.Worksheets(1)
For Each x In ws1.Shapes
    MsgBox x.Name
Next
La boîte de dialogue dit : "Chart 2".

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

Philou250

Habitué
Salut Zeb,

Si. Tu as compris la question, j'ai essayé ton code et ça marche ^^, ça copie également les tableaux.
Du coup, je ne sais pas trop pourquoi mon code ne fonctionnait pas.

Merci
 

Philou250

Habitué
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.
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 102
Membres
1 586 287
Dernier membre
lucilleguffey
Partager cette page
Haut