mise en page

[Marie]

Bonsoir à tous

Je me débrouille très mal en VBA.
Par comparaison avec d’autres j’ai réussi à écrire les 2 macros du fichier joint.

La première copie la page « base de données » d’un classeur , et la renomme « visite médicale ».

La seconde fait la mise en page avant l’aperçu.

Les 2 fonctionnent indépendamment, mais lorsque je recopie la seconde au bout de la première l’enchaînement ne se fait pas …
(j’ai retiré end de la première)

Merci de m’éclairer

 

[Pascal76]

salut Marie

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

Pascal

 

[Pascal76]

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

 

[Marie]

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.