sauveguarder une mise en page généré par une macro

[saber]

bonjour a tous,

a l'ouverture de mon fichier excel, j'execute une macro qui me colories les champs de ma table en fonction de leurs valeurs (jaune, gris ...)

j'aimerais savoir si je peux sauveguarder ce resultat dans un fichier excel qui n'utilise pas de macro...
est ce que qqun sait comment je dois faire ?

merci

 

[Riddick]

Bonjour a toi le forum et a touti

Tu peux essayer de coller cela a la fin de ta macro qui met en forme

Dim chemin, nom_fichier As String

chemin = ActiveWorkbook.Path        'recupère le chemin du fichier source
nom_fichier = InputBox('Entrer le nom du fichier')  'Nom du fichier tu peux mettre un nom défini entre ''
Cells.Select                        'Copie la feuille
Selection.Copy
Workbooks.Add                        'Ouvre un nouveau classeur
ActiveSheet.Paste                   'Colle les données
ActiveWorkbook.SaveAs chemin & '\\' & nom_fichier & '.xls'   'Enregistre sous
ActiveWindow.Close                     'Fermele fichier

Voilà les commentaires parle d'eux meme
je n'ai pas mieux
..................................................................................................

 

[saber]

ça marche !!

seul probélme... j'ai plusieur feuilles

est ce que tu sais comment je dois faire pour appliquer le méme code a plusieurs feuilles (d'un méme fichier) ?