pb copier coller image avec une macro

bonjour Gael,

essaie avec :

Selection.Paste
Selection.PasteSpecial Paste:=xlPasteValues

isabelle

Bonjour,

J'utilise une macro pour copier une feuille puis la coller sur un autre
classeur excel, c'est un collage spécial valeurs et formats.
Mon problème est que cette feuille contient des images et ces images
n'apparaissent pas dans ma nouvelle feuille de mon nouveau classeur. Faut-il
rajouter un collage spécial pour ces images ou faut -il les paramétrer d'une
certaine manière?

Voici le code que j'utilise pour cette partie:
Workbooks("declaration.xls").Sheets("DECLARATION INCORPORATION").Activate
n = ActiveWorkbook.Name
Windows(ClassDest).Activate
Sheets.Add.Name = Onglet
Windows(n).Activate
Cells.Copy
ActiveSheet.Paste
Windows(ClassDest).Activate
Selection.PasteSpecial Paste:=xlPasteValues
Windows(ClassDest).Activate
Selection.PasteSpecial Paste:=xlPasteFormats


Merci d'avance.

Gael

Bonjour Gael,

Essaie ceci en modifiant le nom des classeurs ...

'-------------------------
Sub CopierUneFeuille()

With Workbooks("classeur1")
.Sheets("Feuil1").Copy _
After:=Workbooks("Classeur2").Sheets(.Sheets.Count)
With ActiveSheet
.UsedRange.Value = .UsedRange.Value
End With
End With
End Sub
'-------------------------


Salutations!



"Gael" <Gael@discussions.microsoft.com> a écrit dans le message de news: EC8A0455-1807-429A-9AC9-CD385659C908@microsoft.com...
Bonjour,

J'utilise une macro pour copier une feuille puis la coller sur un autre
classeur excel, c'est un collage spécial valeurs et formats.
Mon problème est que cette feuille contient des images et ces images
n'apparaissent pas dans ma nouvelle feuille de mon nouveau classeur. Faut-il
rajouter un collage spécial pour ces images ou faut -il les paramétrer d'une
certaine manière?

Voici le code que j'utilise pour cette partie:
Workbooks("declaration.xls").Sheets("DECLARATION INCORPORATION").Activate
n = ActiveWorkbook.Name
Windows(ClassDest).Activate
Sheets.Add.Name = Onglet
Windows(n).Activate
Cells.Copy
ActiveSheet.Paste
Windows(ClassDest).Activate
Selection.PasteSpecial Paste:=xlPasteValues
Windows(ClassDest).Activate
Selection.PasteSpecial Paste:=xlPasteFormats


Merci d'avance.

Gael

Bonjour,

As-tu vu ta question personnelle, juste pour toi ? ;-)

salut Clément,

%-) ha! pas de chance, c'est surement pas moi la "championne" en question.

isabelle ;-)

Bonjour,

As-tu vu ta question personnelle, juste pour toi ? ;-)