Mettre document en form

[Lagache]

Bonjour le Forum

Ci joint deux macros qui me permettent de copier dans un nouveau classeur une plage de cellules , commment donner l'ordre que le document copié soit automatiquement mis en police Arial 8 ?

Private Sub BoutCop_Click()
Workbooks.Open Filename:="F:\Boss\Compta.xls"
Unload Me
Call Copie
End Sub

Sub Copie()
Windows("CloManu.xls").Activate
Worksheets("Paie1").Select
Range("a1:bf52").Select
Selection.Copy
Windows("Compta.xls").Activate


Range("a1:BF52").Select
ActiveSheet.Paste

End Sub

Merci de votre aide

 

[Dull]

Re : Mettre document en form

Salut Lagache, le Forum,

Non testé
avant le End Sub

Application.ScreenUpdating = False
    Cells.Select
    With Selection.Font
        .Name = "Arial"
        .Size = 8
    End With
    Application.ScreenUpdating = True

 

[PascalXLD]

Re : Mettre document en form

Bonjour

ajoute ceci après ton past

With Cells.Font
.Name = "Arial"
.Size = 8
End With

Bon courage

EDIT Oups Dull a été plus rapide
Juste le select en moins

 

[Lagache]

Re : Mettre document en form

Salut Dull et Pascal

Une question , deux réponses efficaces !! Que demande le peuple.
C'est parfait - Merci à tous les deux ,vous êtes de sacré chef !

@+