Mettre document en form

Lagache · 3 Novembre 2006

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 · 3 Novembre 2006

Re : Mettre document en form

Salut Lagache, le Forum,

Non testé
avant le End Sub

Code:

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

PascalXLD · 3 Novembre 2006

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 · 3 Novembre 2006

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 !

@+

Mettre document en form

Lagache

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Lagache

XLDnaute Occasionnel

Discussions similaires

Mettre document en form

Lagache

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Lagache

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency