Copier une feuille sur une autre

[elo]

bonjour,
je cherche à recopier les données d'une feuille sur une autre et cela ne fonctionne pas.
J'ai essayé le code suivant
Private sub
worksheets('Tableau').copy
Activesheet.pastee Destination:=worksheets('resultat')
End Sub


la feuille 'resultat' est déjà créée auparavant

merci

elo

 

[_Thierry]

Hello Elo (!!), le Forum

Tu peux essayer ceci, je ne sais pas vraiment si c'est ce que tu veux, mais ce code devrait faire une copie conforme de ta feuille 'Tableau', vers ta Feuille 'Resultat'... Pour les données, mais pas pour la mise en forme de la Feuille...

Sub TheDataCopier()
Dim PlageToCopy As Range
Dim CellDestination As Range

Set PlageToCopy = Worksheets('Tableau').UsedRange
Set CellDestination = Worksheets('resultat').Cells(PlageToCopy.Row, PlageToCopy.Column)
Worksheets('resultat').Cells.Clear
PlageToCopy.Copy CellDestination
End Sub

Sinon pour la Copy avec la mise en Forme aussi, il faut faire autrement, c'est à dire faire une vraie copie de la feuille :

Sub TheSheetCopier()
With Application
.DisplayAlerts = False
On Error Resume Next
Worksheets('resultat').Delete
On Error GoTo 0
.DisplayAlerts = True
End With

Worksheets('Tableau').Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = 'Resultat'

End Sub

Bon Samedi
@+Thierry

EDITION ! pour PS
PS : dans la seconde macro, en me relisant il faut bien interpréter que la feuille résulat est détruite avant la copie.

Message édité par: _Thierry, à: 02/04/2005 14:19

 

[broster]

si tu essaie click droit deplacer ou copier ; cocher :creer une copie (tu conserves ta mise en formede ta feuille)soit dans le meme classeur où un nvx