Discussion :

[ouskel'n'or]

La dernière erreur (à laquelle ton code n'est jamais parvenue ) m'incombe
Corrige cette ligne (ajouter "Preserve")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

               ReDim Preserve tablo(k)

D'ailleurs, voila le code corrigé

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
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
Dim tablo(), mois As Variant, i As Integer, k As Integer
Dim Ctrl As Control, feuilles As Variant
    k = 0
    mois = Array("", "janvier", "fevrier", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "decembre")
    feuilles = Array("", "Janv", "Fev", "Mars", "Avr", "Mai", "Juin", "Juil", "Aout", "Sept", "Oct", "Nov", "Dec")
    For i = 1 To 12
        If Me.Controls("enr_" & mois(i)) Then
               k = k + 1
               ReDim Preserve tablo(k)
               tablo(k) = feuilles(i)
        End If
    Next
'****************************
    For j = 1 To UBound(tablo)
        msg = msg & tablo(j) & vbCr
    Next
    MsgBox msg
'****************************
 
    'Sheets(tablo).PrintOut
    DoEvents
    Unload Me
End Sub

Pour de vrai, supprime ce qu'il y a entre les étoiles qui n'est là que pour tester

Edit
Je me suis farci le fichier avec tous les contrôles qui vont bien et les feuilles kifo, alors ne viens pas me dire que ça ne fonctionne pas !

[ptitepo]

AHAH, je te promet ca marche pas lol, il n'y a pas d'erreur, mais il a disparu mon fichier PDF !!
Moi quant je l'est fait a l'enregistreur de macro, il ma donner ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ca ouvre la fenetre pour donner un titre au fichier PDF. Et la en fait ca marche mais au final il y a rien lol
(C'est des rires nerveux dsl)

[ouskel'n'or]

Si tu mets... ce que tu as mis... alors ajoute une ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets(tablo).Select
Selectedsheets.printout etc...

Si tu dis d'imprimer les feuilles sélectionnées, le moins que tu puisses faire pour ce pauv' VBA, serait de les sélectionner... Non ?
Nom de gu !

[ptitepo]

J'ai tourner le problème dans tout les sens le " Sheets(tablo).Select" il en veux pas !!! t'es sur qu'on à le droit de mettre un tableau dans un sheets ?

[ouskel'n'or]

Oui, on peut ! Mais je fais commencer mon tableau à 1 ce qui est une erreur... de plus. Je vérifie, je corrige et je te dis. Rien de tel que le test

C'est bien ça !

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
18
19
20
21
22
23
Private Sub CommandButton1_Click()
Dim tablo(), mois As Variant, i As Integer, k As Integer
Dim Ctrl As Control, feuilles As Variant
ReDim tablo(0)
    k = 0
    mois = Array("", "janvier", "fevrier", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "decembre")
    feuilles = Array("", "Janv", "Fev", "Mars", "Avr", "Mai", "Juin", "Juil", "Aout", "Sept", "Oct", "Nov", "Dec")
    For i = 1 To 12
        If Me.Controls("enr_" & mois(i)) Then
               ReDim Preserve tablo(k)
               tablo(k) = feuilles(i)
               k = k + 1
        End If
    Next
    For j = 1 To UBound(tablo)
        msg = msg & tablo(j) & vbCr
    Next
    MsgBox msg
    Sheets(tablo).Select
    'Sheets(tablo).PrintOut
    DoEvents
    Unload Me
End Sub

Pffffffffffff !
Je suis d'une patience... Des fois je m'étonne !

[ptitepo]

OUI !!
et c'est normal que ca me mette les 2 mois sur 2 fichier PDF différent ?
lol bon ca ira je crois, ca restera comme ca, je sature moi aussi.
Merci de ta patience, tu doit me detester maintenant
@ bientot merci encore

[ouskel'n'or]

Quand même une dernière chose : Si tu veux n'avoir qu'un seul pdf, ajoute une feuille "compil" ou "Recap", place dans cette feuille toutes les données de tes 12 feuilles mensuelles à la suite, puis, avec Printsetup, fais la mise en page qui va bien (1 mois par feuille à éditer) et tu n'auras qu'un pdf avec les sauts de pages aux bons endroits.
Et si tu as besoin d'aide ...

A bientôt

[ptitepo]

Non ba c'est bon ca me mets tout sur la même feuille, reste plus que la dimension et c'est niquel !