Discussion :

[nouha_79]

Bonjour,
j ai plusieurs feuilles environ 50 feuilles ;je dois d abord les selectionner pour pour pouvoir les enregesitrer sous pdf :voila j ai fait cette boucle avec array et ca marche rien que pour les premiers 13 feuilles .

Code:

Code :

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

Array("feuille1", "feuille2", "feuille3", "feuille4", "feuille5","feuille6"",........)).Select

alors dans cette boucle je peux definir rien que 13 feuilles ,et quand je revien a laligne pour definir les autres feuilles ca me donne une erreure.

Code :

Code :

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

1
2
Array("feuille1", "feuille2", "feuille3", "feuille4", "feuille13", _ 
"feuille14",...,"feuille20",.., "feuille25", ...,"feuille30", .."feuille40".., "feuille50")

quand je defini les premiers 13 feuilles et je les enregistres .toutes les 13 feuilles sont enregistre ,mais lors que je defini la 14 eme feuilles ca me donne une erreure elle est initilaiser sur ,_ celle ci a cote du 13 .

je comprends pas pourkoi ?
est ce qu il ya une autre methode pour selectionner toutes mes feuilles a part quelque unes? .
j ai pris cette methode de array parceque ca me permet de selectionner les feuilles que je veux enregistré .parcequ il en a quelque feuilles que je veux pa sles enregistrer.

merci beaucoup pour votre aide. et j espere que je me suis bien exprimeé

merci

[peaceandloveman01]

Bonjour,

je sais que je ne suis que débutant mais as tu pensé à un truc du genre:

Code :

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

1
2
3
4
5
6
For i=1 To 50
If i<>"ce que tu veux" Then
     Sheets("Feuille"&i).select
     ' code pour l'enregistrement
End If
Next i

Ca vaut ce que ca vaut mais je pense que ca marche... A toi de voir

En tous cas bonne journée !

Lyonel

[nouha_79]

non ca marche pas ,est ce quelqu un peux m aider? merci

[tirex28]

Bonsoir,

Code :

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

1
2
3
4
5
6
 
Dim F(1 To 50), i As Integer
For i = 1 To 50
    F(i) = i
Next
Worksheets(F).Select

Ceci selectionne les cinquantes premieres feuilles du classeur.

A adapter bien sur.

Cordialement,

Tirex28/