Bonjour le forum,
J'ai, dans une procédure qui complète une correspondance sur une feuille, une commande qui m'imprime cette lettre via mon imprimante.
Cependant, en plus, je souhaite sauvegarder cette correspondance avec une copie PDF enregistrée dans un dossier précis.
J'ai écris ces lignes, mais cela ne fonctionne pas; la msgbox que j'ai intercalée m'affiche bien le bon chemin, mais j'ai un message d'erreur:
Voici le code en question:
Dim LaDate As String, LeParcours As String, LeRep As String
LaDate = Format(Date, "yyyy-mm")
LeRep = "D\GESTION LOCATIVE\Correspondance\"
MsgBox LeRep & LaDate & "Indexation " & ComboBox1.Value & ".pdf"
Worksheets("Lettre_Indexation").ExportAsFixedFormat Type:=xlTypePDF, Filename:=LeRep & LaDate & "Indexation " & ComboBox1.Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
Je ne vois où se situe l'erreur.
Merci d'avance de m'éclairer,
donpopo