Bonjour,

Mon souci est de pouvoir sélectionner une Array de plusieurs feuilles afin de les imprimer ou les enregistrer dans un fichier PDF.

Les feuilles à imprimer sont contenus dans une zone nommée discontinue, par exemple : "Feuil1!A1;Feuil2!A1, Feuil3!A1"
La boucle en premier extrait le nom des feuilles à sélectionner.
La zone nommée peut aller de 1 à n feuilles.

Par avance merci d'un petit aiguillage

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim F As String                                           ' F contient la zone nommée range multiple
Dim FFs(30) As Variant, FFn(30) As Variant   ' FFs pour le nom des feuilles
             F = ActiveWorkbook.Names(No_N).RefersTo
                F = Mid(F, 2, Len(F))
                K = 1: L = 1
                If InStr(K, F, ",", vbBinaryCompare) > 1 Then
                    While InStr(K, F, ",", vbBinaryCompare) > 1
                        FFn(L) = Mid(F, K, InStr(K, F, ",", vbBinaryCompare) - K)
                        FFs(L) = Left(FFn(L), InStr(1, FFn(L), "!", vbBinaryCompare) - 1)
                        K = K + Len(FFn(L)) + 1
                        L = L + 1
                    Wend
                    FFn(L) = Right(F, Len(F) - K + 1)
                    FFs(L) = Left(FFn(L), InStr(1, FFn(L), "!", vbBinaryCompare) - 1)
                    Sheets(Array(FFs(????))).Select