Problème écriture macro

Pierrot93

XLDnaute Barbatruc

• 14 Juillet 2010

• #2

Re : Problème écriture macro

Bonjour Enki,

essaye ce code, imprime toutes les feuilles du classeur actif :

Code:

Dim ws As Worksheet
For Each ws In Worksheets
    ws.PrintOut
Next ws

bonne journée
@+

 

Vote positif 0 Vote négatif

E

enki

XLDnaute Nouveau

• 14 Juillet 2010

• #3

Re : Problème écriture macro

je te remercie,
il y a t'il une solution pour les imprimer dans un certain ordre.
merci de ta réponse

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Juillet 2010

• #4

Re : Problème écriture macro

Re,

comme ceci, l'impression se fera selon l'index de l'array :

Code:

Option Explicit
Sub test()
Dim t() As Variant, i As Byte
t = Array("Pp H S 5", "Cc 01 Févr", "Cc 02 Févr", "Cc 03 Févr", "Cc 04 Févr", _
"Cc 05 Févr", "Cc 06 Févr", "Pp 01 Févr")
For i = LBound(t) To UBound(t)
    Sheets(t(i)).PrintOut
Next i
End Sub

@+

 

Vote positif 0 Vote négatif

E

enki

XLDnaute Nouveau

• 14 Juillet 2010

• #5

Re : Problème écriture macro

je te remercie,
mais comme je le disait en début de post les nom des onglets change "Pp H S 5", "Cc 01 Févr", "Cc 02 Févr",, je voudrait les remplacer par feuil1, feuil2 ect, mais je ne connait pas la syntaxe

 

Dernière édition: 14 Juillet 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Juillet 2010

• #6

Re : Problème écriture macro

Re

enki à dit:

je te remercie,
mais comme je le disait en début de post les nom des onglets change "Pp H S 5", "Cc 01 Févr", "Cc 02 Févr",, je voudrait les remplacer par feuil1, feuil2 ect, mais je ne connait pas la syntaxe.

Cliquez pour agrandir...

c'est à dire, les renommer ou utiliser les "codename" ???

 

Vote positif 0 Vote négatif

E

enki

XLDnaute Nouveau

• 14 Juillet 2010

• #7

Re : Problème écriture macro

oui, c sa, mais je ne connaisser pas le nom

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Juillet 2010

• #8

Re : Problème écriture macro

Re,

pour utiliser les "codename" :

Code:

Option Explicit
Sub test()
Dim t() As Variant, i As Byte
t = Array(Feuil1, Feuil2,Feuil3)
For i = LBound(t) To UBound(t)
    t(i).PrintOut
Next i
End Sub

@+

 

Vote positif 0 Vote négatif

E

enki

XLDnaute Nouveau

• 14 Juillet 2010

• #9

Re : Problème écriture macro

Nickel,
sa marche, merci pour tes réponses.
Bonne journée.
Enki

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Juillet 2010

• #10

Re : Problème écriture macro

Re,

A noter également que cette méthode (PrintOut) s'applique également au classeur, dans ce cas bien sur l'impression se fera dans l'ordre des numéros d'index des feuilles

Code:

ActiveWorkbook.PrintOut

@+

 

Vote positif 0 Vote négatif