Discussion :

[lecail65]

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.

[DeaD78]

Bonjour,

Tente un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[lecail65]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

xlBook.Sheets(1).Delete

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

Merci DeaD78 pour ta proposition.