Discussion :

[aaristocat]

bonjour

je souhaite exporter une feuille de calcul en pdf en pouvant choisir le nom du fichier créé et son emplacement.

j'ai le code ci-dessous, mais la boite de dialogue se ferme sans pouvoir choisir l'emplacement et le nom.

Code :

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

1
2
3
4
5
6
7
8
Sub Exporte()
'
    Sheets("Donnees").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Isocinetisme\Desktop\Export.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

d'avance merci

[Menhir]

Fais précéder ton code d'un GetSaveAsFilename.
https://msdn.microsoft.com/fr-fr/VBA...e-method-excel
Ca permettra à l'utilisateur d'indiquer le nom de fichier, de le récupérer dans une variable et de l'utiliser dans ton Export.

Cela dit, je ne comprends pas trop pourquoi tu veux recréer une commande qui existe déjà dans Excel, y compris sous forme d'icone.

[kiki29]

Salut, pour info : Liste des contributions et téléchargements la réponse et d'autres y sont.

Sinon qqch du genre :

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
Option Explicit
 
Sub Exporte()
Dim NomFichier As Variant
    ChDir ThisWorkbook.Path
    Sheets("Donnees").Select
    NomFichier = Application.GetSaveAsFilename(fileFilter:="PDF (*.pdf), *.pdf")
    If NomFichier <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                        Filename:=NomFichier, _
                                        Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, _
                                        IgnorePrintAreas:=False, _
                                        OpenAfterPublish:=False
    End If
End Sub

[aaristocat]

bonjour

je souhaite exporter une feuille de calcul en pdf en pouvant choisir le nom du fichier créé et son emplacement.

j'ai le code ci-dessous, mais la boite de dialogue se ferme sans pouvoir choisir l'emplacement et le nom.

Code :

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

1
2
3
4
5
6
7
8
Sub Exporte()
'
    Sheets("Donnees").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Isocinetisme\Desktop\Export.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

d'avance merci

explications complémentaires : Je récupère des données issues d'un appareil de mesure. Elles sont traitées dans une feuille Excel à l'aide de différentes macros.

Ensuite, je souhaite exporter cette feuille Excel en pdf en donnant la possibilité à l'utilisateur de saisir le nom du fichier pdf et déterminer son emplacement.

Comment afficher la boite de dialogue "exporter en pdf" ?