Discussion :

[leonserbe]

Bonjour,

J'ai un classeur ayant des feuilles du genre :
tableauBord, s1, s2, s3, s4, ...sn

Le tableauBord est une consolidation des autres feuilles.

J'aimerai ?
Copier les Valeurs, le formatage, les couleurs de la feuille tableauBord dans un nouveau classeur dediés avec en nom de fichier la date de jour.

voici mon debut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
NouveauNom = "c:\Friday_list  " + Format(Date, "d/mm/yyyy") + ".xls"
        ActiveWorkbook.SaveCopyAs NouveauNom
        ThisWorkbook.Close False

mais je bloque sur la copie des valeurs uniquement et d'une seule feuille...

Merci de votre aide.

[ouskel'n'or]

Je n'ai pas tout compris... Pour copier valeurs seules et format, tu dois copier l'un et l'autre séparément (deux constantes pour un seul paramètres)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Workbooks("Classeur2").Worksheets("Feuil1").Cells.Copy
    Workbooks.Add
    Sheets("Feuil1").Cells.PasteSpecial Paste:=xlPasteValues
    Sheets("Feuil1").Cells.PasteSpecial Paste:=xlPasteFormats

Un autre moyen consiste à copier "tout" d'une feuille dans l'autre, puis de recopier la feuille sur elle même valeurs seules.
A+