Impression

Bonjour Seigneur,

Tu copies ceci dans un module standard et tu sélectionnes dans la procédure "Imprimer" les dates qui correspondent à tes
besoins pour l'impression

Et tu peux regarder dans l'aide pour définir les paramètres de la méthode PrintOut

'----------------------------
Sub Imprimer()

Dim PremFeuille As Integer, DerFeuille As Integer
Dim Début As Date, Fin As Date

Début = CDate("01/01/04") 'Date du début
Fin = CDate("31/12/04") 'Date de la fin

PremFeuille = NUMSEM_ISO_europ(Début)
DerFeuille = NUMSEM_ISO_europ(Fin)

For A = PremFeuille To DerFeuille
Worksheets(A).Select Replace:úlse
Next
With ActiveWindow.SelectedSheets
.PrintOut
End With

End Sub
'----------------------------
Function NUMSEM_ISO_europ(cel As Date)
'De Alain Valon ... modifier légèrement...

'bug des dimanches 2 janvier pour les années 2101, 2501 (etc...intervalle 400 ans)
If Day(cel) = 2 And Month(cel) = 1 And Year(cel) Mod 400 = 101 Then
NUMSEM_ISO_europ = 52
Exit Function
End If
If Weekday(cel) = 2 And Month(cel) = 12 And Day(cel) > 28 Then
NUMSEM_ISO_europ = 1
Else: NUMSEM_ISO_europ = DatePart("ww", cel, 2, 2)
End If
End Function
'----------------------------


Salutations!



"SEIGNEUR Jean-Luc" <majeluc@wanadoo.fr> a écrit dans le message de news:O1Ekm8h%23DHA.4084@tk2msftngp13.phx.gbl...
Bonjour
Un petit coup de main serait le bienvenu
Dans une feuille cellule A1 (N° de semaine)
A2 (date du lundi de la semaine)
A3 (
)
A4 ( mercredi )
a5 (
)
A6 ( vendredi )
Je voudrai imprimer les feuilles entre le 01/01/04 et le 31/12/04 sur simple
clic.
Feuilles pour la semaine 1, semaine 2,..........,semaine 52 ou 53.
En janvier 2005 même chose etc....

D'avance merci

JLS

Effectivement ça ne marche pas trop.
J'ai copié la macro dans un module; les dates ne changent pas et il ne
s'imprime que la feuille à l''écran.
Cordialement
jls

"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:n%o_b.74465$2g.47198@charlie.risq.qc.ca...

Bonjour Seigneur,

Tu copies ceci dans un module standard et tu sélectionnes dans la
procédure "Imprimer" les dates qui correspondent à tes

besoins pour l'impression

Et tu peux regarder dans l'aide pour définir les paramètres de la méthode
PrintOut

'----------------------------
Sub Imprimer()

Dim PremFeuille As Integer, DerFeuille As Integer
Dim Début As Date, Fin As Date

Début = CDate("01/01/04") 'Date du début
Fin = CDate("31/12/04") 'Date de la fin

PremFeuille = NUMSEM_ISO_europ(Début)
DerFeuille = NUMSEM_ISO_europ(Fin)

For A = PremFeuille To DerFeuille
Worksheets(A).Select Replace:úlse
Next
With ActiveWindow.SelectedSheets
.PrintOut
End With

End Sub
'----------------------------
Function NUMSEM_ISO_europ(cel As Date)
'De Alain Valon ... modifier légèrement...

'bug des dimanches 2 janvier pour les années 2101, 2501 (etc...intervalle
400 ans)

If Day(cel) = 2 And Month(cel) = 1 And Year(cel) Mod 400 = 101 Then
NUMSEM_ISO_europ = 52
Exit Function
End If
If Weekday(cel) = 2 And Month(cel) = 12 And Day(cel) > 28 Then
NUMSEM_ISO_europ = 1
Else: NUMSEM_ISO_europ = DatePart("ww", cel, 2, 2)
End If
End Function
'----------------------------


Salutations!



"SEIGNEUR Jean-Luc" <majeluc@wanadoo.fr> a écrit dans le message de
news:O1Ekm8h%23DHA.4084@tk2msftngp13.phx.gbl...

Bonjour
Un petit coup de main serait le bienvenu
Dans une feuille cellule A1 (N° de semaine)
A2 (date du lundi de la semaine)
A3 (
)
A4 (
rcredi )

a5 (
)
A6 (
edi )

Je voudrai imprimer les feuilles entre le 01/01/04 et le 31/12/04 sur
simple

clic.
Feuilles pour la semaine 1, semaine 2,..........,semaine 52 ou 53.
En janvier 2005 même chose etc....

D'avance merci

JLS