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 :
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 ?
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 ?