Macro enregistrer sous pdf dans un dossier choisi par l'utilisateur

Bonjour,

J'ai créer une macro affectée à un bouton permettant d'enregistrer ma feuille excel sous format PDF, seulement je souhaiterais que l’utilisateur puisse sélectionner le dossier dans lequel il enregistre ce pdf et aussi que le nom de ce fichier enregistré soit de la forme date-heure.pdf.

J'espère que vous pourrez m'aider !

Merci d'avance

bonjour

ci dessous une fonction qui demande a l'utilisateur de choisir un dossier

Function ChoixDossier()
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Choisir le dossier de destination"
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
     Else
       ChoixDossier = InputBox("Répertoire?")
     End If
End Function

appel de la fonction

chemin = choixDossier

et pour le nom de fichier date-heure :

Sub nomfichierdate_heure()
Dim fic$
fic = Replace(Now(), "/", "")
fic = Replace(fic, ":", "")
fic = Replace(fic, " ", "-") & ".pdf"
End Sub

fred

Super ça fonctionne, merci beaucoup

bonnes continuations....

fred

Rechercher des sujets similaires à "macro enregistrer pdf dossier choisi utilisateur"