copier coller mode bitmap

Bonjour,
Je récupère plusieurs classeurs qui possèdent chacun 5 onglets de DATA et un onglet de synthèse.
Il m'est demandé de faire une macro permettant d'avoir l'ensemble des onglets de synthèse dans un seul et même classeur.
Sachant que l'ensemble des onglets de DATA ainsi que l'onglet de synthèse ont les mêmes noms quelque soit le classeur, j'ai pensé faire une macro qui
1) Créer le classeur avec les futurs onglets rassemblés
2) Ouvre les classeurs d'origine
3) Effectue une copie de la feuille de synthèse
4) Copie la partie de l'onglet de synthèse du classeur d'origine
5) Retourne sur le classeur général et colle en mode Bitmap afin de conserver les données sans avoir les liens vers les onglets de DATA

Quand j'arrive à la ligne pour copier, j'ai une erreur 1004 que je n'arrive pas à comprendre.
Pourriez-vous, svp, m'aider?
Ci-dessous, le code concerné :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

nomClasseur = "nomgeneral"   'Création classeur Workbooks.Add   'suppression des onglets inutile ' Sheets("Feuil2").Select ' ActiveWindow.SelectedSheets.Delete ' Sheets("Feuil3").Select ' ActiveWindow.SelectedSheets.Delete   'enregistrement classeur ActiveWorkbook.SaveAs (Application.ActiveWorkbook.Path + "\" + nomClasseur)   ' Ajout onglet et renommage Sheets.Add ActiveSheet.Move After:=Sheets(2) ActiveSheet.Name = "Arras"   'ouverture d'un classeur Workbooks.Open Filename:="nom1"   'copie Windows("nom1").Activate   Sheets("Synthèse 1").Range("A1:O63").Select Selection.Copy   'retour Classeur où les onglets sont collés Windows(nomClasseur).Activate Sheets("Arras").Select ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:= _ False

---

Question annexe,
lors de la ligne

Code:

---

ActiveWindow.SelectedSheets.Delete

---

, il m'est demandé une confirmation de la suppression. Est-il possible de ne pas avoir la demande de confirmation.
Cordialement
Pinocchio

Bonjour,
pourquoi ne pas utiliser un collage spécial dans le même ou un autre classeur
exemple

Code:

---

1 2 3

Sheets("Feuil2").Range("A1:B10").Copy Sheets("Feuil3").Range("A1").PasteSpecial xlPasteValues

---

Je dois importer l'onglet synthèse qui contient des images, des graphiques et des valeurs de 50 classeurs différents.
D'où le coller en mode bitmap.
merci de m'aider

Bon finalement, j'ai trouvé une solution :

Code:

---

1 2 3 4 5

Worksheets("Synth").Range("A1:O63").CopyPicture xlScreen, xlBitmap Windows(nomClasseur).Activate Worksheets("feuil1").Activate Worksheets("feuil1").Paste _ Destination:=Worksheets("feuil1").Range("A1")

---

Merci