E
Eric D
Guest
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
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