Imprimer une sélection d’onglets dans un fichier

[tinet]

Bonjour le forum,

Problème avec ce code

plantage sur la ligne

Sheets(vararray).Select

voici le code

Sub Imprime_Feuilles()


Dim vararray() As String
Dim csname As Integer, c As Integer
Dim countarr As Integer, r As Integer
Dim sname As Worksheet


    csname = Range("b2").Column
    c = Range("c2").Column
    Set sname = ActiveSheet
    r = Range("b2").Row
    countarr = 1
 

    While sname.Cells(r, csname) <> ""


        If sname.Cells(r, c) = 1 Then
            ReDim Preserve vararray(countarr)
            vararray(countarr) = sname.Cells(r, csname).Value
            countarr = countarr + 1
        End If
        r = r + 1
    Wend
   Sheets(vararray).Select


    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    sname.Activate


End Sub

 

[néné06]

Re : Imprimer une sélection d’onglets dans un fichier

Bonjour tinet

Sheets(vararray).Select
vararray sera égal à chaine vide, si tu n'as pas donné de valeur.
countarr = 1
vararray(countarr)=Chaine du tableau vararray() donc chaine vararray(1) ex: "Toto"
countarr = countarr + 1
vararray(countarr)=Chaine du tableau vararray() donc chaine vararray(2): etc....
mais vararray= ""
tu peux placer
vararray=vararray(countarr)
et
Sheets(vararray).Select


A+

René

 

[tinet]

Re : Imprimer une sélection d’onglets dans un fichier

Bonjour Néné06

Ok merci