Discussion :

[judoka0209]

Bonjour, je reviens vers vous car je seche completement
j'ai reussi a mettre le n° de semaine et quelques autres truc mais la je seche
je souhaiterai a l'ouverture dans la colonne D se trouve la semaine en court soit la semaine 21 et apres quand j'imprime il le fasse la semaine 21/22/23/24/25 avec le bouton imprime et cela imprimer 5 semaines
merci

[Patrice740]

Bonjour,

Il est difficile de te répondre : ton classeur ne contient pas de macro
(elle se trouve dans ton classeur Planning_EP.xls)

[judoka0209]

avec beaucoup l'aide j'ai presque reussi il me manque plus qu'a imprimer a partir de la colonne 21
ci-joint le fichier

[Patrice740]

Bonjour,

Ton code pour pointer la semaine est pas mal, mais il est conseillé préciser la feuille sur laquelle tu travailles et je suppose que tu veux pointer sur la ligne 5 de la semaine.
Voici une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub workbook_open()
Dim sem As Byte
  sem = CByte(Format(Date, "ww", 2, 2))
  Worksheets("année en cours").Activate
  With ActiveWindow
    .ScrollRow = 1
    .ScrollColumn = .SplitColumn + sem
    Cells(5, .SplitColumn + sem).Activate
  End With
End Sub

Pour l'impression, il faut définir la zone d'impression, si il s'agit d'imprimer uniquement des colonnes des 5 semaines, c'est assez simple à l'aide d'un code similaire à celui ci-dessus, d'un resize et d'un intersect.
Par contre si tu veux aussi les 3 premières colonnes c'est moins facile : il va falloir masquer les colonnes non désirées.

[judoka0209]

c'est exactement ca que je veux mais je ni arrive pas
la seule chose que j'arrive a faire c'est imprimer mais a partir de la colonne a1 jusqu'a h1 et non les colonnes de la macro

[78chris]

Bonjour

C'est bien de poster sur moult forums mais ensuite il faut gérer les réponses qui t'y sont données...