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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.