Pb avec 'Pastespecial'

[Eric D]

Bonjour à toutes et tous,

Avec le code suivant, je souhaite donner à la feuille 'Mail1' de mon classeur 'monfichier', le format de la feuille 'resmail' de mon application. Le format est bien copié, mais pas à la bonne feuille, car il genère un nouveau classeur.

FichierTemp = 'monfichier.xls'
Sheets('resmail').Copy 'page à copier (pour le format)
Workbooks.Open FichierTemp
With Sheets('Mail1').Range('A1') 'la première cellule de destination
.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

Je ne comprend pas pourquoi il me génère un classeur. Pouriez vous m'expliquer ?
Merci.
Eric D

 

[BipBip]

Salut

cela vient de ton Sheets('resmail').Copy qui copie effectivement la feuille. Comme tu ne lui dis pas oû il faut la copier, il crée un nouveau classeur. Remplaces Sheets('resmail').Copy par Sheets('resmail').Cells.Copy et cela devrait marcher.