Discussion :

[blepy]

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

[kiki29]

Salut, voir ici en bas de ce post 1 Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant en l'adaptant à ton contexte

[blepy]

Salut,

Le Post cité m'a bien aidé à progresser, il me reste une erreur #9 lors de cette instruction "Sheets(FFs).Select",
Le code est maintenant le suivant, à priori mon Array est bien dimensionné (en Option Base 0), je ne vois pas bien l'origine de l'anomalie.

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
17
 
               F = ActiveWorkbook.Names(No_N).RefersTo
                F = Mid(F, 2, Len(F))
                K = 1: L = 0
                If InStr(K, F, ",", vbBinaryCompare) > 1 Then
                    While InStr(K, F, ",", vbBinaryCompare) > 1
                        ReDim Preserve FFs(L + 1), FFn(L + 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
                    ReDim Preserve FFs(L + 1), FFn(L + 1)
                    FFn(L) = Right(F, Len(F) - K + 1)
                    FFs(L) = Left(FFn(L), InStr(1, FFn(L), "!", vbBinaryCompare) - 1)
                    Sheets(FFs).Select

[kiki29]

Salut, je ne pratique pas l'extispicine, à toi de voir le contenu de ton tableau, d'utiliser des debug.print etc