Enregistrer fichier Excel sous pdf

Bonjour

Je viens de creer une macro qui me permet d'enregistrer mon fichier en pdf dans le dossier ou se trouve ce fichier.

Le probleme c'est que je veux que le pdf s'enregistre dans un sous repertoire du dossier

En gros au lieu de l'enregistrer sous "Bureau" je veux qu'il aille dans "Bureau/mondossier"

Voici le code :

Private Sub CommandButton1_Click()
Dim chee
chee = lol.Value
 Dim LaDate As String, LeParcours As String, LeRep As String
LaDate = Format(Date, "yyyymmdd")
'LeParcours = Range("P4").Value
LeRep = ThisWorkbook.Path   'à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    LeRep & "_" & chee & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False

mdr.Hide
End Sub

Voici mon fichier

33classeur1.xlsm (22.21 Ko)

Bonjour,

une proposition

Private Sub CommandButton1_Click()
Dim chee
chee = lol.Value
 Dim LaDate As String, LeParcours As String, LeRep As String
LaDate = Format(Date, "yyyymmdd")
'LeParcours = Range("P4").Value
LeRep = ThisWorkbook.Path  & "\mondossier\"  'à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    LeRep & "_" & chee & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False

mdr.Hide
End Sub

Merci beaucoup ça fonctionne niquel

Rechercher des sujets similaires à "enregistrer fichier pdf"