Discussion :

[pacolapin]

Bonjour, je cherche à enregistrer mes graphiques sous le format PDF depuis un bouton avec une boite de dialogue deja crée, je n'arrive pas à créer un chemin pour l'enregistrer sous.

Pourriez - vous m'aider ?

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
 
 
Private Sub conversionpdf_Click()
 
Dim fichier As String
    'adaptez le nom de la feuille
    With Worksheets(graphiquetemperature.Value)
            fichier = "Import - Export Fichier CSV - TXT - graphique - 3.xlsm" & Range("D4").Value & ".pdf"
        'pensez a ecrire le chemin
        Chemin = "C:\Users\PC PACO\Desktop\BTS MASEN\Projet BTS\TRANSFERT\pdf méteo " & "\graphiquetemperature.pdf" & fichier
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
 
End Sub

[Pierre Fauconnier]

Salut.

Dans la variable Fichier, tu as .xlsm puis plus loin .pdf... Ce n'est pas interdit, mais c'est un peu incongru. A quoi te sert cette variable puisque tu ne l'utilises pas pour nommer ton fichier.

La variable Chemin, mal nommée à mon avis, définit en fait le nom du fichier. Es-tu certain que le dossier existe? VBA ne va pas le créer pour toi.