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

saber · 26 Mai 2005

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 · 26 Mai 2005

Bonjour a toi le forum et a touti

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

Code:

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 · 26 Mai 2005

ç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) ?

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

saber

Guest

Riddick

XLDnaute Occasionnel

saber

Guest

Discussions similaires