Macro: Sauvergarder en .pdf Résolu/Fermé

Question

Bonjour a tous,

Je suis en train de finaliser un document et j'aimerais créer une macro qui sauvegarderait le "active sheet" seulement en .pdf. J'aimerais aussi que le nom du fichier soit déja défini en fonction des criteres suivant:

Nom du ficher Maitre: KST-

Cellules: C11 (Total) & C12 (Carrefour)

Date: Aujourd'hui (2013-11-25)

Ce qui donnerait: KST- Total Carrefour 2013-11-25

Je ne veux pas que le fichier s'enregistre automatiquement car je veux laisser la possibilité aux utilisateurs de sauvegarder le fichier ou ils le désirent mais en PDF avec le nom prédéfini. Donc lorsque l'utilisateur cliquerait sur le bouton, une fenetres "enregistrer sous" apparaitrait avec dans le champ " Nom du fichier" : KST- Total Carrefour 2013-11-25. Ensuite l'utilisateur pourrait choisir lui même l'emplacement ou il veut enregistrer le document et il pourrait peser par la suite sur le bouton enregistrer.


Est-ce possible de faire une macro de ce style?

Merci de votre aide!!!!

dlt-pan · Answer

Bonjour
Quelle version d'Excel utilises tu ?

dlt-pan · Answer

en admettant que la date soit en C13

dim nomfichier as string
nomfichier = "KST - " & cells(11,3) &" "& cells(12,3) &" "&cells(13,3)
'pour remplacer les / par un -
For i = 1 To Len(nomfichier)
If Mid(nomfichier, i, 1) = "/" Then
    Mid(nomfichier, i, 1) = "-"
End If
Next i
MsgBox SelDossier("C:\")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        nomfichier, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        false
end sub
---------------------------------------------------------
Function SelDossier(Defaut As String)

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function

dlt-pan · Answer

C'est pourtant la recopie de la macro qui fonctionne chez moi.

sous Excel, dans le menu fichier dans Enregister et envoyer, as tu "créer un 
document PDF/XPS ?

dlt-pan · Answer

il y a peut etre une fonction Excel qui n'est pas implantée dans ton excel 2010.
ouvre excel,
dans le menu fichier dans "Enregister et envoyer", regarde si tu as "créer un 
document PDF/XPS" ?
Si tu ne l'as pas c'est normal que la macro ne focntionne pas.

dlt-pan · Answer

Donc çà doit fonctionner. verifie.
pour la fenetre parcourir, elle sert a choisir ton repertoire de destination pour la sauvegarde comme tu l'as demandé.

Macro: Sauvergarder en .pdf

5 réponses

Discussions similaires