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