Macro enregistrer en PDF

Bonjour à tous.

J'ai un fichier avec une feuille regroupant les données des utilisateurs d'un programme.

Dans une deuxième feuille, j'ai une liste déroulante dans laquelle je sélectionne l'utilisateur afin de voir sa "fiche" détaillée.

J'ai actuellement un bouton "Imprimer" qui fonctionne via une macro que l'un d'entre vous m'a créé fin mars de cette année.

Je dois désormais sortir ces "fiches individuelles" en format PDF.

Serait-il possible de créer une macro me permettant d'enregistrer en PDF l'ensemble des fiches individuelles.

Merci d'avance pour votre soutien.

Bonjour,

A partir du moment où tu as le nom complet du document que tu veux sauvegarder ... il te suffit d'utilser le code suivant :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=lenomcomplet &".pdf"

Bonjour,

Merci pour votre réponse, mais je ne suis pas sure de comprendre.

Dans ma feuille "Utilisateur", j'aimerai avoir une macro qui me permette de :

• Sélectionner le premier nom de la liste
• Enregistrer sous [Nom d'utilisateur].pdf
• Choisir le nom suivant
• Enregistrer sous [Nom d'utilisateur].pdf
• etc.

Je débute avec la macro et comprends pas encore toutes les subtilités de cet outil.

Merci d'avance et bonne journée.

Bonjour,

Ci-joint un essai

cdt

Henri

Bonjour,

Après une petite correction dans le script (é manquant)

le script fonctionne très bien.

Par contre, cela ne change pas le nom de l'utilisateur dans la liste déroulante.

Je vais essayer de me pencher dessus...

Voila voila...

En bidouillant un peu, j'y suis arrivée.

Merci beaucoup pour votre aide.

Bonjour,

Enregistrement de toutes les données utilisateurs en PDFs. dans le répertoire courant.

Cdlt.

Public Sub creer_PDFs()
Dim wss As Worksheet, wsd As Worksheet
Dim rng As Range, c As Range
Dim Filename As String

    Application.ScreenUpdating = False

    Set wss = Worksheets("Carnet général")
    Set wsd = Worksheets("Utilisateur")
    Set rng = wsd.Range("B5:Q42")

    wss.Activate

    For Each c In wss.ListObjects(1).ListColumns(1).DataBodyRange
        With wsd
            .Cells(2, 4) = c.Value
            Filename = ThisWorkbook.Path & Application.PathSeparator & c.Value
            rng.ExportAsFixedFormat _
                    Type:=xlTypePDF, _
                    Filename:=Filename, _
                    Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, _
                    IgnorePrintAreas:=True, _
                    From:=1, _
                    To:=1, _
                    OpenAfterPublish:=False
        End With
    Next c

    Set rng = Nothing
    Set wss = Nothing: Set wsd = Nothing

End Sub

re bonjour

Effectivement le caractère accentué (é) de Données et Clé était faux.

En plus la celle sélectionnée C1 n'est pas la bonne. Il faut choisir D2.

J'ai ajouté la variable répertoire ( A adapter) et supprimer la ligne

[C1]=savSelection

derrière Next.

Ci joint le fichier corrigé

Bonne journée

henri