Export contenu de cellules dans nouveau classeur

[Riko]

Bonjour,
en premier lieu je vous explique un peu mon fichier.
Il s'agit d'un calendrier automatique dans lequel j'ajoute les postes de travail en fonction d'un cycle de travail.
Ces cellules sont remplies via des formules. La mise en forme se fait via du VBA.

Je souhaiterai pouvoirajouter un bouton pour créer un nouveau classeur en copiant/collant le calendrier avec la même mise en forme et avec le résultat des formules. Je ne veux pas les macros ni les formules.
J'ai tenté plusieurs chose mais à chaque fois j'ai des erreurs.
Merci d'avance pour vos réponses.
PS: je joins le fichier.
Je travaille avec excel 2010 mais ce doit être compatible excel 2003

 

[Robert]

Re : Export contenu de cellules dans nouveau classeur

Bonjour Riko, bonjour le forum,

Ton code fonctionne très bien si tu supprimes les deux dernière lignes...

Sub Export_cal_couleur()
'
' Export_cal_couleur Macro
''
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

 

[Riko]

Re : Export contenu de cellules dans nouveau classeur

Merci robert mais ça ne fonctionne pas.
Je viens de rechercher sur le forum car j'avais déjà posé la même question.
En effet ce calendrier, je l'avais un peu abandonné. C'est en manipulant que je me suis souvenu qu'il fallait réactivé le classeur source. Voir ce post
Je viens de restester avec la solution que l'on m'avait donné et maintenant ça fonctionne.
Je vais m'attaquer au reste, je voudrais fermer le classeur source sans l'enregistrer pour ne laisser ouvert que le nouveau classeur.
Merci quand même de ta réponse.