Discussion :

[ludodu52]

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

[kiki29]

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

[ludodu52]

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

[kiki29]

Salut, encore un adepte du tout cuit ! A lire

Bref qqch comme ceci, à adapter à ton contexte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Feil123 et Feuil1 étant les CodeNames des feuilles concernées.

[ludodu52]

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.
@+