Discussion :

[canary]

Bonjour,

J'arrive à copier-coller des colonnes d'un classeur dans un autre.
Mais lorsque je souhaite mettre un fond blanc (enlever la grille de la feuille), j'obtiens une erreur et mes colonnes ne sont plus copiées.

Comment faire pour que mes colonnes soient copiées et que le reste de la feuille soit en fond blanc ?

Voici mon code initial :

Code :

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

1
2
3
4
5
6
7
8
9
 
With ThisWorkbook.Worksheets("PROPOSITION")
    Union(.Range("E:F"), .Range("N:U")).Copy
End With
Dim wb As Workbook
Set wb = Workbooks.Add(1)
ActiveWindow.DisplayGridlines = False 'C'est ICI que j'ai un message d'erreur !
wb.Worksheets(1).Paste
Application.CutCopyMode = False

Merci par avance !

[Daniel.C]

Bonjour,

Quel est le message d'erreur ?

[canary]

Bonjour Daniel,

C'est une fenêtre "Microsoft Visual Basic pour applications" avec une croix blanche dans un rond rouge comportant le message suivant : "400".

[jfontaine]

Bonjour,

A essayer en inversant les lignes 7 et 8

Code :

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

1
2
3
4
5
6
7
8
With ThisWorkbook.Worksheets("PROPOSITION")
    Union(.Range("E:F"), .Range("N:U")).Copy
End With
Dim wb As Workbook
Set wb = Workbooks.Add(1)
wb.Worksheets(1).Paste
ActiveWindow.DisplayGridlines = False
Application.CutCopyMode = False

[canary]

Après essai d'inversion de mes lignes de code, j'obtiens le même message d'erreur.

[jfontaine]

Pourtant plus d'erreur chez moi

[Philippe Tulliez]

Bonjour,
Ce code ne provoque pas d'erreur chez moi.

Code :

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

1
2
3
4
5
6
7
8
 Dim wb As Workbook
 Set wb = Workbooks.Add
 With ThisWorkbook.Worksheets("PROPOSITION")
  Union(.Range("E:F"), .Range("N:U")).Copy
  wb.Worksheets(1).Paste
 End With
 ActiveWindow.DisplayGridlines = False 
 Application.CutCopyMode = False