Bonjour,
J'ai 2 chiffriers ouverts et je souhaite appliquer un formatage au second.
Aussitôt que je veux faire mon .select, je bloque avec une erreur 1004.
Windows("Tableau de saisie des serveurs_20091201_142228.xls").Activate
Columns("A:I").Select
Range("A1").CurrentRegion.Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Columns.AutoFit
Range("A1:H21").Select
Selection.RowHeight = 12.75
Quoi faire?
Merci,
J'ai 2 chiffriers ouverts et je souhaite appliquer un formatage au second.
Aussitôt que je veux faire mon .select, je bloque avec une erreur 1004.
Windows("Tableau de saisie des serveurs_20091201_142228.xls").Activate
Columns("A:I").Select
Range("A1").CurrentRegion.Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Columns.AutoFit
Range("A1:H21").Select
Selection.RowHeight = 12.75
Quoi faire?
Merci,