VBA : sélectionne les onglets visibles

[matthieuS]

Bonjour à tous,

Je souhaiterez pouvoir transformer 20 feuilles excel en un PDF.
Jusque là ça va. je sélectionne tous les onglets avec CTRL puis je sauve en PDF.

Maintenant en VBA :
Sheets.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename ...

C'est ok

Le problème est que parfois, certains onglets sont masqués (je les masque car je ne veux pas les voir dans le PDF) et "Sheets.Select" plante la macro car elle n'arrive pas à sélectionner les onglets masqués

J'ai cherché qqch autour de : " visibleSheets.Select "

mais ca ne marche pas.

Bref merci par avance de votre aide.

Matthieu

 

[Pierrot93]

Re : VBA : sélectionne les onglets visibles

Bonsoir,

essaye ceci :

Dim ws As Object, b As Boolean
b = True
For Each ws In Sheets
    If ws.Visible = xlSheetVisible Then ws.Select b: b = False
Next ws

bonne soirée
@+

 

[matthieuS]

Re : VBA : sélectionne les onglets visibles

Parfait. Merci bien