mise en page

salut Marie

As-tu aussi retiré Sub miseenpage() de ta 2ème macro ?

Pascal

Re

excuses je viens de voir qu'après la création de ta feuille et l'avoir renommer tu fais un exit sub donc si tu mets les 2 bout à bout quand ta feuille est créée et nommée la macro s'arrête.

Au lieu de les mettre bout à bout laisse les séparer par exemple et avant exit sub tu mets miseenpage comme ceci :

ActiveSheet.Name = ("Visite médicale") ' renommer la nouvelle feuille
miseenpage
exit sub

Comme cela ta macro de mise en page sera lancée juste après la création de ta feuille.

@ +

Pascal

OK ca marche

de plus j'ai 39 macros identiques qui ont toutes la meme mise en page, donc gain de temps super

merci beaucoup.