Copier / coller valeurs et structures sans les formules.

Bonjour,

Je viens vers vous car je suis bloqué sur un copier/coller.

Données: j'ai un classeur dans lequel se trouve une feuille contenant tableaux, formules... Cette feuille est structurée de manière précise avec des colonnes réajustées, des lignes réajustées...

objectif: Je souhaite extraire cette feuille de mon classeur dans un autre classeur, tout en gardant les données et la structure.

solution appliquée: afin de réaliser cela j'ai mis en place le code suivant qui marche parfaitement

Code:

---

1 2 3 4 5 6

... Book_courant = ActiveWorkbook.Name Set xlBook = Workbooks.Add Workbooks(Book_courant).Sheets("feuille à copier").Copy After:=xlBook.Sheets(1) ...

---

problème: En testant le deuxième classeur contenant la copie de la feuille, je me suis rendu compte qu'il y avait des liaisons avec le classeur parent (émetteur). Du coup si je déplace le 1er classeur les valeurs contenu dans le deuxième sont perdues....

J'ai alors essayé de faire la manipulation suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

xlBook.Sheets(2).Select Range("A1:K600").Select Selection.Copy   xlBook.Sheets(1).Activate Application.DisplayAlerts = False 'évite le message d'alerte Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=True, Transpose:=False 'colle en valeur Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=True, Transpose:=False 'colle en format

---

C'est a dire que dans le classeur 2 je récupère la zone qui m'intéresse et je fait un copier et je colle dans une autre feuille.
Résultat --> lorsque je colle : les colonnes et lignes ne sont pas formatées à l'image de la zone copiée.

J'ai également essayé de faire un copier/coller sur la même feuille pour garder la structure.
Résultat --> les données sont mal collées et au final la page est incohérente....

HELP
Quelqu'un aurait-il une solution à mon problème ???
SVP ^^

Merci d'avance.

Bonjour,

Tente un

Code:

---

xlPasteAll

---

à la place de xlPasteValues ou xlPasteFormats histoire de tout copier dans ton deuxième code et dis-moi si ça marche (une seule des deux lignes suffit).

A+

Je viens d'essayer cette méthode mais le résultat est le même, la structure n'est pas conservée et les formules sont toujours présentent.

J'ai tout de même trouvé une solution un peu plus lourdes mais qui marche.
Résumé en étapes:
1- copie de la feuille dans un nouveau classeur

Code:

---

Workbooks(Book_courant).Sheets("test").Copy After:=xlBook.Sheets(1)

---

2- sélection et copie de la zone souhaité de la feuille créée

Code:

---

1 2 3

xlBook.Sheets(2).Select Range("A1:N523").Select Selection.Copy

---

3- collage spécial dans la feuille 1 du nouveau classeur. (on peut considérer cette feuille comme temporaire)

Code:

---

1 2 3 4 5 6 7

xlBook.Sheets(1).Activate Application.DisplayAlerts = False 'évite le message d'alerte Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False 'colle en format Application.DisplayAlerts = True

---

4- sélection et coupage des valeurs collées à l'étape 3.

Code:

---

1 2 3

xlBook.Sheets(1).Select Range("A1:N523").Select Selection.Cut

---

5- collage de la sélection dans la feuille 2 contenant la structure des lignes et colonnes...

Code:

---

1 2 3

xlBook.Sheets(2).Activate Range("A1").Select ActiveSheet.Paste

---

6- suppression de la feuille 1 du classeur (feuille temporaire en fait).

Code:

---

xlBook.Sheets(1).Delete

---

Voilà ! c'est du bricolage mais ça fonctionne !!!!!

Merci DeaD78 pour ta proposition.

:ccool::P:P:P