Bonjour,
Je cherche à exporter un onglet excel en pdf par un bouton sur la feuille vers un chemin de mon choix...:(
Le but étant de choisir le chemin par clic de souris pour 'enregistrement de cet export.
Quelqu'un aurait-il une idée ?
Merci
Version imprimable
Bonjour,
Je cherche à exporter un onglet excel en pdf par un bouton sur la feuille vers un chemin de mon choix...:(
Le but étant de choisir le chemin par clic de souris pour 'enregistrement de cet export.
Quelqu'un aurait-il une idée ?
Merci
Salut, regarde Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant en bas de ce post # 1 du 16/10/2007. A adapter à ton contexte, voir Excel et l'enregistreur de macro.
A lire
Merci Kiki, mais ce n'ai pas exactement ce que je cherche , peut-être que ma demande n'était pas explicite:
Suite à la création de feuilles en remplissant un formulaire dans un fichier excel, je souhaite exporter la feuille créé ,
dans un répertoire de mon choix sur le disque dur et pouvoir le nommer également comme je souhaite.
J'ai regardé les différentes solutions mais l'enregistrement de mon export ne va pas s'enregistrer à l'endroit que je souhaite...
C'est pas simple d'après moi ....( un genre de commande comme : " Fichier /enregistrer sous /TEL FORMAT et à TEL ENDROIT"
Je donne presque ma langue au chat :?
Salut, encore un adepte du tout cuit ! A lire
Bref qqch comme ceci, à adapter à ton contexte
Feil123 et Feuil1 étant les CodeNames des feuilles concernées.Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Option Explicit Sub Tst() Dim Ar(0) As String Dim Fichier As Variant ChDir ThisWorkbook.Path & "\" Ar(0) = Feuil123.Name Fichier = Application.GetSaveAsFilename(InitialFileName:="Essai", fileFilter:="Fichier PDF (*.pdf), *.pdf") If Fichier <> False Then Application.ScreenUpdating = False Sheets(Ar).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=sNomFichierPDF, _ quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Feuil1.Select Application.ScreenUpdating = True End If End Sub
Salut kiki29,
Merci pour ta réponse , mais pas cool pour "l' adepte du tout cuit.:("
Je débute dans le VBA et je ne suis pas un pro.
J' arrive à exporter en pdf mais pas exactement comme je le souhaite:
Je cherche la façon de pourvoir exprimer en vba la commande suivante:
"fichier/enregistrer sous / puis avoir la boîte de dialogue afin de remplir le nom de mon choix et le lieu d'enregistrement".
Les connaissances livresques sont bien mais pas suffisantes.DSL.
@+