Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Impression pages de feuilles Excel

Impression pages de feuilles Excel

2 réponses
Avatar
JK
Bonsoir,
Je souhaiterai imprimer certaines pages des feuilles d'un classeur Excel
J'ai écrit un bout de code qui m'imprime toutes les pages :

Sub imprime()

Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).PrintOut
Next i

End Sub

Merci pour votre aide
Jack
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lSteph
Bonsoir,
If....ce qui les rend certaines?...

lSteph

"JK" a écrit dans le message de news:

Bonsoir,
Je souhaiterai imprimer certaines pages des feuilles d'un classeur Excel
J'ai écrit un bout de code qui m'imprime toutes les pages :

Sub imprime()

Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).PrintOut
Next i

End Sub

Merci pour votre aide
Jack



Avatar
FxM
Bonjour,

Ma réponse du 08/09 21h42 heure de Paris à un problème similaire :

Testé sous Excel 2002 :
Sub test()
Dim tablo: ReDim tablo(1)
tablo(0) = "Feuil1"
tablo(1) = "Feuil3"
Sheets(tablo).Select
End Sub

où tu peux .printout au lieu de .select

@+
FxM


Bonsoir,
Je souhaiterai imprimer certaines pages des feuilles d'un classeur Excel
J'ai écrit un bout de code qui m'imprime toutes les pages :

Sub imprime()

Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).PrintOut
Next i

End Sub

Merci pour votre aide
Jack