Impression liste déroulante

Bonjour à tous,

Débutant sur Excel, il se peut que la réponse à ma question existe déjà mais je ne l'ai pas trouvée ou compris.

J'ai un classeur Excel avec une feuille dans laquelle j'ai une liste déroulante.

J'utilise cette macro pour imprimé l'ensemble des feuilles:

Sub Macro17()
Dim Liste As String, c As Range
With ActiveSheet
Liste = .Range("C13").Validation.Formula1
Liste = Right(Liste, Len(Liste) - 1)
For Each c In Range(Liste)
.[C13] = c.Value
.PrintOut
Next c
End With
End Sub

Malheureusement, je n'arrive pas à faire en sorte d'enregistrer des pdf plutôt que d'imprimer.. Comment modifié cette macro pour faire en sorte d'enregistré des pdf? (avec le nom du fichier de la liste déroulante?)

Merci d'avance pour vos réponses!

Hello,

Transmet nous un fichier exemple

Bonsoir,

pas essayé :

Sub Macro17()
Dim Liste As String, c As Range
With ActiveSheet
Liste = .Range("C13").Validation.Formula1
Liste = Right(Liste, Len(Liste) - 1)
For Each c In Range(Liste)
.[C13] = c.Value
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\" & c.Value & ".pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
Next c
End With
End Sub

@ bientôt

LouReeD

Bonjour,

Je vous remercie pour vos réponses !

Pour l'instant quand j'essaie cette nouvelle macro le message d'erreur "Run-Time error '1001' " s'affiche.

Avez-vous une solution? J'ai l'impression qu'on se rapproche du but :)

Merci encore, A+

.

Bonsoir,

petite correction :

Sub Macro17()
    Dim Liste As String, c As Range, Chemin As String
    With ActiveSheet
        Liste = .Range("C13").Validation.Formula1
        Liste = Right(Liste, Len(Liste) - 1)
        For Each c In Range(Liste)
            .[C13] = c.Value
            Chemin = ActiveWorkbook.Path & "\" & c.Value & ".PDF"
            ChDir ActiveWorkbook.Path
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin
        Next c
    End With
End Sub

Je part du principe que les enregistrements se font dans le dossier où se trouve le classeur Excel. l'erreur est peut-être due à un problème d'autorisation d'accès à "C:" en écriture... J'ai supprimé quelques paramètres d'enregistrement, vous pouvez les ajouter.

@ bientôt

LouReeD