Copier une feuille vers un autre classeur

[Nanir]

Bonjour à tous,

Voici mon problème : j'essaye de copier une feuille (qui comporte, combos, macro, images...) vers une autre feuille d'un nouveau classeur vierge.

J'aimerai tout copier sauf les macros. Ci-dessous mon code, qui fonctionne, mais à l'arrivé il me manque les images (logo de l'entreprise, combobox...)


Sub export()

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
ActiveWindow.Zoom = 70
Application.CutCopyMode = False
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
End Sub

Avez vous une autre solution pour copier absolument tout sauf les macros?

Je vous remercie pour votre aide...

 

[Nanir]

Re : Copier une feuille vers un autre classeur

Peut être une solution.

Afin de resperter la cohérence des données entre le fichier source et le nouveau classeur, peut on coller uniquement en image?