Discussion :

[Pierre67]

Bonjour à tous

d'une application exterieure, je récupère un fichier xl 2003.
Mon application tourne sur 2007 et/ou 2010. Pour cette raison je ne peux copier un onglet vers le fichier 2003 (pas le même nombre de lignes)

Pour contourner, je copie une plage entre 2 fichiers ouverts avec le bout de code ci-dessous

Code :

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

1
2
Workbooks("APPLI_DEF.xlsm").Sheets("MODELEDEP").Range("A1:I45").Copy Destination _
:=Workbooks(ActiveWorkbook.Name).Sheets("F_DEP").Range("A1")

En collant, il ne me reproduit pas la mise en forme de la plage initiale.

Comment coller avec conservation de la mise en forme (hauteur lignes, ....)

Au plaisir de vous lire

[Philippe Tulliez]

Bonjour,
Pour coller la largeur des colonnes, tu peux utiliser la constante xlPasteColumnWidths dans l'argument Paste dans le collage spécial.

Code :

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

PasteSpecial Paste:=xlPasteColumnWidths

[Pierre67]

Merci Philippe toujours présent à l'appel

d'accord pour les colonnes, pour les lignes ce sera sans doute du genre rowheight

mais cette commande je la colle où par rapport à mon code ci-dessus ?
@+

[Philippe Tulliez]

Bonjour Pierre,
Attention malgré le fait que je suis persuadé d'avoir réussi ce collage spécial avec largeur de colonne voilà que maintenant j'obtiens une erreur 1004.
Pour la hauteur, je ne vois pas d'autres solutions que boucler sur la propriété des lignes copiées pour l'appliquer aux lignes collées.

[Pierre67]

OK d'accord

il n'y pas beaucoup de lignes/colonnes à ajuster
j'écrirai ces quelques lignes

comme toujours un grand merci pour ta réactivité et précieux conseils

[Philippe Tulliez]

Bonjour,
J'ai trouvé la raison du problème de l'erreur 1004
Je n'avais pas constaté que lorsque l'on fait un Copy Destination le CutCopyMode était à False
Donc pour Coller la largeur des colonnes d'une plage copiée.
Soit on fait

Code :

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

1
2
3
With rngSource
.Copy: rngTarget.PasteSpecial xlPasteColumnWidths: .Copy rngTarget
End With

Soit

Code :

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

1
2
3
4
5
With rngTarget
 rngSource.Copy
.PasteSpecial xlPasteAll: .PasteSpecial xlPasteColumnWidths
End With
Application.CutCopyMode = False

où rngSource est la plage copiée et rngTarget est la plage où l'on colle.

Une procédure pour Copier/Coller une plage avec la largeur des colonnes et la hauteur des lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub CopyRange(SourceData As Range, TargetData As Range, Optional ClearTarget As Boolean = False)
 Application.ScreenUpdating = False
 Dim r As Long, c As Integer, rngTarget As Range
 With SourceData
  If ClearTarget Then TargetData.Worksheet.Cells.Clear
  Set rngTarget = TargetData.Resize(.Rows.Count, .Columns.Count)
 .Copy: rngTarget.PasteSpecial xlPasteColumnWidths: .Copy rngTarget
  For r = 1 To .Rows.Count: rngTarget.Rows(r).RowHeight = .Rows(r).RowHeight: Next
 End With
 Application.ScreenUpdating = True
End Sub

La procédure qui l'invoque

Code :

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

1
2
3
4
5
6
7
Sub test()
 With ThisWorkbook
  Dim rngSource As Range: Set rngSource = .Worksheets("Feuil1").Range("A2:E24")
  Dim rngTarget As Range: Set rngTarget = .Worksheets("Feuil4").Range("C5")
 End With
 CopyRange rngSource, rngTarget, True
End Sub