Ca marche pas
Voilà le code que j'utilise :
Pour créer une nouvelle feuille et copier des infos (en fait formater les cellules) :
Dans mon 1er classeur "Patient" je crée une nouvelle feuille "Name"
J'ouvre 1 2eme classeur nommé "Data" et je formate le feuille "Name" comme
la feuille "Diagnostique" du classeur "Data"
Je referme "Data"
Workbooks("Data.xls").Activate
Workbooks("Data.xls").Sheets("Diagnostique").Cells.Copy
Workbooks("Patients.xls").Activate
Workbooks("Patients.xls").Sheets(Name).Cells.PasteSpecial Paste:=xlFormats
Pour enregistrer et fermer :
Je déplace et enregistre la nouvelle feuille "Name" dans le répertoire "Chemin"
Workbooks("Patients.xls").Sheets(Name).Move
ActiveWorkbook.SaveAs Chemin
Workbooks(2).Close
Et là, re, le message d'alerte : groose quantité d'infos dans le presse-papiers, voulez-vous garder ou effacer...
Cao, Magdi.