Selection feuille jusqu'à la dernière

[gourdin]

Bonjour,

Je n'arrive pas à trouver le code vba qui permette de sélectionner de la 6e feuille à la dernière d'un classeur.

Merci

 

[Staple1600]

Bonsoir le fil, le forum

Sub a()
Dim i
For i = 6 To Sheets.Count
Sheets(i).Select False
Next
End Sub

 

[gourdin]

Merci Staple,

Celà fonctionne très bien mais ensuite je suis passé par l'enregistreur de macro pour créer un fichier PDF unique pour les feuilles sélectionnées mais cela ne fonctionne pas.
Le code proposé qui ne fonctionne pas est :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= etc

 

[Staple1600]

Re

Essaie ainsi

Sub b()
Dim vRay, i
ReDim vRay(6 To Sheets.Count)
For i = 6 To Sheets.Count
    vRay(i) = ThisWorkbook.Sheets(i).Name
Next
Sheets(vRay).Copy
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "C:\temp\test.pdf", xlQualityStandard
End Sub

 

[gourdin]

Celà fonctionne.
Le PDF est créé mais reste ouvert un nouveau classeur excel nommé classeur2

 

[Staple1600]

Re

Bah, il suffit de le fermer, ce classeur, non ?

Sub c()
Dim vRay, i
ReDim vRay(6 To Sheets.Count)
For i = 6 To Sheets.Count
    vRay(i) = ThisWorkbook.Sheets(i).Name
Next
Sheets(vRay).Copy
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "C:\temp\test.pdf", xlQualityStandard
ActiveWorkbook.Close False
End Sub

 

[gourdin]

OK merci et bonne soirée

 

[Staple1600]

Re

Tu as vu que j'avais ajouté une macro dans mon dernier message incluant la fermeture du classeur?

 

[gourdin]

Non je n'avais pas vu
C'est sympa merci