Hello zazaraignée, Alain, Michel et les autres
Je vois que vous êtes tous là alors j'ai une question qui s'adresse aux essspécialistes que vous êtes.
Pour créer un tableau en dynamique et en extraire une chaîne on peut faire tout ça
Par ailleurs, pour imprimer un tableau de feuilles de calculs on peut faire ça
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub LaSub() Dim Tableau(), LeTableau ReDim Tableau(1) Tableau(1) = """X""" & ", " ReDim Preserve Tableau(2) Tableau(2) = """IX""" 'Conversion en chaîne LeTableau = Join(Tableau) '=> "X", "IX" End Sub
Dernier code offert gratuitement par Michel, y'a longtemps.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Sheets(Array("Sommaire", "Feuil1", "III", "V", "VII", "IX")).PrintOut
Ma question : Comment utiliser LeTableau de mon premier exemple dans la syntaxe du second
ce dernier exemple ne fonctionnant pas quelque soit la manière de créer la chaîne "LeTableau" (en concaténant ou en partant d'un tableau converti par join)
Code : Sélectionner tout - Visualiser dans une fenêtre à part Sheets(Array(LeTableau)).PrintOut
Existe-t-il une manière de faire ça, sachant que c'est pour imprimer un ensemble variable de feuilles numérotées ou mieux, créer un pdf unique de ces feuilles.
Par avance, un grand merci.
Partager