Export Pdf

Bonjour a tous,

Mon classeur est une liste de personne que dont je voudrais tirer des listings et les imprimer en PDF,

J'ai réussi a créer la tri, l'exportation vers l'onglet..., mais je coince pour l’exportation en PDF,

j'ai fouillé un peu partout avec des idées mais sans résultat de mon coté.

Je vous joint mon fichier.

il n'y a que le choix adjudants qui est activé pour le moment

Merci pour votre aide

RE: Le voici anonymiser

Bonjour,

Ta pièce jointe a été supprimée en raison du grand nombre de données confidentielles qu'il contenait.

Commence par anonymiser ton fichier puis reposte-le.

Cordialement,

Bonjour toutes et tous,

un léger coup de pouce (aucune idée si cela va t'aidé sorry)

Tu peux essayer déjà de mettre en place une boîte à message dans quel répertoire sera déposé l"exportation ? de ton .pdf par exemple.

vu ici dans le forum

1/ Demande de confirmation pour exporter le .pdf

2/ voir si le fichier .pdf existe déjà

cela donne ceci à peu près :

Option Explicit
'Dim cpt_i , ligne_depart, ligne_fin, x As Long
'Dim Chemin, msg As String

Sub Exporter()

Dim msg As String
    msg = MsgBox("Souhaitez-vous enregistrer cette feuille en PDF ?", vbQuestion + vbYesNo, "Exporter en PDF")
    If msg = vbNo Then
        Exit Sub
    End If

Dim cpt_i , ligne_depart, ligne_fin, x As Long
Dim Chemin As String

With Application.FileDialog(msoFileDialogFolderPicker)
    'Définit un titre pour la boîte de dialogue
    .Title = "Sélectionnez le répertoire dans lequel exporter"
    'Affiche la boîte de dialogue
    .Show

   'Affiche le nom du dossier sélectionné et si je clic sur Annuler
   If .SelectedItems.Count > 0 Then
        Chemin = .SelectedItems(1)
    Else
        MsgBox "Aucun Dossier sélectionné"
        Exit Sub
    End If
' si un fichier existe avec le même nom

Txt = Dir(Chemin & "\"  & ".pdf")
If Txt = "" Then
   MsgBox "Le fichier n'existe pas"
Else
    MsgBox "Le fichier " & Txt & " Existe"
End If
End With
End Sub