L'exportation de Quelques Feuilles de Classeur Excel au format PDF

Je suis en train de travailler sur l'écriture d'un code VBA pour l'exportation de certaines feuilles dans excel pour un même fichier PDF. J'ai plusieurs feuilles de graphique dans mon fichier excel chaque dont le nom se termine par "(nom)_Chart".
Je veux exporter toutes les feuilles avec des noms se terminant wioth graphique vers un fichier PDF.
Voici le code que j'suis en train d'écrire.

Sub FindWS()
        'look if it at least contains part of the name
        Dim s As Worksheet
        Dim strPath As String

        strPath = ActiveWorkbook.Path & "\"

        For Each s In ThisWorkbook.Sheets
            If InStr(1, s.Name, Chart) Then
                s.Activate
                ActiveSheet.ExportAsFixedFormat xlTypePDF, strPath & s.Name & ".pdf"
                Exit Sub
            End If
        Next s
End Sub

Ce code n'est pas limting exporter uniquement les feuilles de graphique, mais l'exportation de tout ton classeur. Quelqu'un peut m'aider avec figurint hors whats est manquant dans mon code.

Merci!

CODE MODIFIÉ:

Sub FindWS()
'look if it at least contains part of the name
Dim s As Worksheet
Dim strPath As String

strPath = ActiveWorkbook.Path & "\"

For Each s In ThisWorkbook.Worksheets
      If InStr(1, s.Name, "Chart") = 0 Then
          ' Hide the sheet so it is not exported as PDF
          s.Visible = False
             End If
Next s
          With ActiveWorkbook
          .ExportAsFixedFormat xlTypePDF, strPath & "TEST.pdf"
                End With

End Sub

Qu'advient-il si vous cachez vos indésirables feuilles dans la boucle ci-dessus, alors il suffit d'exporter une fois que les fichiers PDF?
Merci pour votre réponse. J'ai plus de 300 feuilles de calcul excel et de cacher toutes les feuilles dans ces prendrait trop de temps. Alors, est-il une manière que je cam modifier le code?
Vous masquer les feuilles dans votre code, exporter, puis de l'afficher. Je vais poster un peu de code pour vous d'essayer
S'il vous plaît. Je vous remercie beaucoup. J'ai été vraiment du mal à obtenir le code de droit.
Le code est en fait juste des boucles jusqu'à ce qu'il trouve le premier nommé feuille puis exportations de l'ensemble du lot, peu importe.

OriginalL'auteur datacentric | 2013-02-18