Syntaxe pour identifier toute les feuilles de mon classeur

[tchangy71]

Bonjour,

Voila, je souhaite créer une automatisation pour l'impression en .pdf
J'ai trouvé une procédure pour le faire avec PDFCreator, un long code suivie d'un appel de procédure (enfin je ne sais pas vraiment comment ça s'appelle) qui est le suivant :

Public Sub Test2()
' Imprimer les feuilles Feuil1 et Feuil2
Sheets(Array("Feuil1", "Feuil2")).Select
SaveAsPDF "test2.pdf"
End Sub

Comment pourrais je indiquer dans ma sub qu'il faut imprimer toutes les feuilles de mon classeur (nombre variable)

Merci,

Cordialement,

Philippe

 

[job75]

Re : Syntaxe pour identifier toute les feuilles de mon classeur

Bonsoir,

Par exemple pour sélectionner toutes les feuilles :

Public Sub Test3()
Dim d As Object, s As Object
Set d = CreateObject("Scripting.Dictionary")
For Each s In Sheets
  d(s.Name) = s.Name
Next
Sheets(d.Items).Select
SaveAsPDF "test2.pdf"
End Sub

A+

 

[jmps]

Re : Syntaxe pour identifier toute les feuilles de mon classeur

Bonjour Tchangy,

Essaye comme ceci :

Sheets().Select

Au lieu de :

Sheets(Array("Feuil1", "Feuil2")).Select

Non testé pour le PDF mais le select semble marcher.

 

[tchangy71]

Re : Syntaxe pour identifier toute les feuilles de mon classeur

Merci,

Ca fonctionne !!

Encore merci,

Cordialement,

Philippe