XL 2010 Macro enregistrement PDF + choix des feuilles

safranien à dit:

On pourrait se dire que les onglets devant apparaître sont les 12 en partant de la droite?

Cliquez pour agrandir...

safranien à dit:

Sinon je mets une x devant le nom de chaque onglets que je ne veux pas voir apparaître

Cliquez pour agrandir...

_Thierry à dit:

Re @safranien ,

Pas de souci, j'ai un peu de temps, c'est un cours sur les manips de Worksheets ce Fil !

Ce que tu mentionnes :

Regarde la pièce jointe 1071864

C'est le CodeName des Worksheets... Et Oui tu peux "jouer" avec ça aussi !

VB:

For Each WS In ThisWorkbook.Worksheets

If Left(WS.CodeName, 1) = "X" Then
Me.ListBox1.AddItem WS.Name
Select Case WS.Name
Case "Feuil1", "Feuil3", "Feuil4", "Feuil6", "Feuil7"
Me.ListBox1.Selected(x) = True

Case Else
'Do Nothing
End Select
x = x + 1
End If
Next

Bonne continuation
@+Thierry

EDIT Salut Patrick !

Cliquez pour agrandir...

on pourrait pas tourner l'écriture pour dire
Onglets à faire apparaître dans la liste = "Feuil1", "Feuil2" etc

Cliquez pour agrandir...

fanch55 à dit:

Bonjour à tous,
Sinon il existe cette macro pour imprimer les onglets que l'on désire dans un fichier quelconque:

VB:

Option Explicit
Private Sub CommandButton2_Click()
Dim PrintDlg        As DialogSheet
Dim CurrentSheet    As Worksheet
Dim Sh              As Worksheet
Dim Cb              As CheckBox
Dim Sel_Sheets      As String
Dim FileName        As Variant
Dim TopPos          As Integer

Application.ScreenUpdating = False

    ' Check for protected workbook
    If ActiveWorkbook.ProtectStructure Then
        MsgBox "Le classeur est protégé.", vbCritical
        Exit Sub
    End If

    ' Add a temporary dialog sheet
    Set CurrentSheet = ActiveSheet
    Set PrintDlg = ActiveWorkbook.DialogSheets.Add

    ' Add the checkboxes
    TopPos = PrintDlg.Buttons(1).Top
    For Each Sh In ActiveWorkbook.Worksheets
        ' Skip hidden sheets
        If Sh.Visible Then
           PrintDlg.CheckBoxes.Add(78, TopPos, 100, 16.5).Text = Sh.Name
           TopPos = TopPos + 13
        End If
    Next
   
    ' Move the OK and Cancel buttons
    PrintDlg.Buttons.Left = PrintDlg.CheckBoxes(1).Left + PrintDlg.CheckBoxes(1).Width
   
    ' Set dialog height, width, and caption
    With PrintDlg.DialogFrame
        .Height = Application.Max(68, PrintDlg.DialogFrame.Top + TopPos - 34)
        .Width = PrintDlg.Buttons(1).Left ' <-- bizarre mais fonctionne
        .Caption = "Cochez les feuilles à publier"
    End With
   
    ' Set focus on Cancel
    PrintDlg.Buttons(1).BringToFront
   
    ' Display the dialog box
    CurrentSheet.Activate
    Application.ScreenUpdating = True
        If PrintDlg.Show Then
            For Each Cb In PrintDlg.CheckBoxes
                If Cb.Value = xlOn Then Sel_Sheets = Trim(Sel_Sheets & " " & Cb.Caption)
            Next Cb
            If Sel_Sheets <> vbNullString Then
               ' Display the dialog box to obtain filename
                FileName = Application.GetSaveAsFilename( _
                    FileFilter:="Publication (*.pdf),*.pdf", _
                    InitialFileName:=ThisWorkbook.Path)
                If Not FileName = False Then
                    ' Select sheets to export
                    Sheets(Split(Sel_Sheets)).Select
                    ' Publication
                    ActiveSheet.ExportAsFixedFormat _
                        Type:=xlTypePDF, OpenAfterPublish:=True, _
                        FileName:=FileName
                End If
            End If
        End If

    ' Delete temporary dialog sheet (without a warning)
    Application.DisplayAlerts = False
    PrintDlg.Delete

' Reactivate original sheet
CurrentSheet.Activate
Set CurrentSheet = Nothing
Set PrintDlg = Nothing

End Sub

Cliquez pour agrandir...