[XL-2003] Imprimer une feuille par rapport à son nom [Résolu]

[pingoui]

Bonjour,

Je débute sur VBA et je n'arrive pas à selectionné plusieurs feuille pour les imprimer
Dans ma feuille suivi, j'ai une colonne avec le nom de mes feuilles et une autre ou je fait des croix pour choisir les feuilles à imprimer.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim var As String
Dim NomFeuille As String
Dim Feuille As Worksheet
' on imprime en premier les cellules et les transfos
        For x = 14 To 51 Step 1
            var = Sheets("Suivi").Cells(x, 5).Value
            If var = "x" Then
                NomFeuille = Sheets("Suivi").Cells(x, 47).Value
                Feuille = Sheets(NomFeuille)
                ActiveWorkbook.Worksheets(Feuille.Index).Select
            End If
        Next x

[Basicnav]

Bonjour,

tu nous parle d'impression et en survolant vite fait ton code, je ne trouve nul part la fonction PrintOut.

Code :

Sheets("NomdetaFeuille").PrintOut

[pingoui]

Je ne faisait pas de PrintOut pour le moment car je chercher à sélectionner toute les feuilles pour les imprimer.... J'avais une erreur de compile
au niveau du

Code :

1
2
 
Feuille = Sheets(NomFeuille)

Mais

Code :

1
2
 
Sheets("NomdetaFeuille").PrintOut

fonctionne parfaitement

Merci beaucoup