Discussion :

[zandru]

Bonjour,

Je cherche à copier une feuille xls dans une autre.
J'arrive à tout copier sauf les largeurs de colonne et les hauteurs de ligne.

Pour les largeurs de colonne j'ai trouvé en enregistrant une macro :

Code :

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

Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

mais cela plante une fois intégré dans mon code .
Et pour les hauteurs de ligne, je n'ai rien trouvé...

Une idée

[ancel17]

Bonjour,

peut-on avoir ton code ?

Sinon avec RowHeight ça devrait marcher...

[zandru]

merci pour ta réponse;

Voici un peu plus de code (le dernière ligne plante en me donnant comme message d'erreur : "la methode pastespecial de la classe range a échoué") :

Code :

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

1
2
3
4
5
6
7
8
Windows("GESTION 07 BETA1.xls").Activate
    ffac.Activate
    Range("A1:L51").Select
    Selection.Copy
    Windows(nomdefichier & ".xls").Activate
    Range("A1:L51").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Sinon avec RowHeight ça devrait marcher...

Tu veux dire quelque chose comme ça par exemple ?? :

Code :

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

ActiveSheet.Rows("8:8").RowHeight = 90

Ce qui est lourd pour beaucoup de ligne.

[ancel17]

pour ce qui est des colonnes, essaie de remplacer ActiveSheet par Selection.

pour ce que est des lignes, fais une boucle sur ta plage, si tu n'as que 51 lignes ça devrait pas trop se sentir... en attendant de trouver mieux

[zandru]

pour ce que est des lignes, fais une boucle sur ta plage, si tu n'as que 51 lignes ça devrait pas trop se sentir... en attendant de trouver mieux

mes lignes n'ont pas toutes la même taille donc pas de boucle possible

Bon je vais le faire à la main une à une en attendant de trouver mieux (une cinquantaine ça va, plus j'aurai eu une tendinite au poignée )

Pour les colonnes cela ne marche pas mieux. Donc mise à jour de la largeur à la main aussi

merci

[ancel17]

questions :
- ffac c'est quoi ?
- nom de la feuille où tu veux copier ta plage ?
- nom de la feuille où tu veux coller ta plage ?