Macro: Sauvergarder en .pdf
Résolu
ZeCaillou
-
ZeCaillou -
ZeCaillou -
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!!!!
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!!!!
A voir également:
- Macro: Sauvergarder en .pdf
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
5 réponses
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
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
Hmmm soit que j'ai fait un truc que j'aurais pas du, mais ca ne fonctionne pas...une fenetre "parcourir" apparait et cette portion de la macro est en débogage
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nomfichier, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Quel boubou ai-je fait?
Merci!
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nomfichier, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Quel boubou ai-je fait?
Merci!
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 ?
sous Excel, dans le menu fichier dans Enregister et envoyer, as tu "créer un
document PDF/XPS ?
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question