Macro enregistrer sous pdf dans un dossier choisi par l'utilisateur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
e
elisa
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 25 février 2018
Version d'Excel : Excel 2016 FR

Message par elisa » 25 février 2018, 18:24

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 ! :wink:

Merci d'avance
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 1'919
Appréciations reçues : 26
Inscrit le : 13 mai 2014
Version d'Excel : 2007-201364bits-2011MAC

Message par fred2406 » 25 février 2018, 19:45

bonjour
:bv:
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
Je ne réponds pas aux M.P. non sollicités.
Fred
e
elisa
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 25 février 2018
Version d'Excel : Excel 2016 FR

Message par elisa » 25 février 2018, 20:01

Super ça fonctionne, merci beaucoup
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 1'919
Appréciations reçues : 26
Inscrit le : 13 mai 2014
Version d'Excel : 2007-201364bits-2011MAC

Message par fred2406 » 25 février 2018, 20:03

bonnes continuations....
fred
Je ne réponds pas aux M.P. non sollicités.
Fred
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message