Bonjour à tous,

je viens vers vous avec un problème maintes et maintes fois répété dans ce forum et pourtant pas moyen de résoudre mon problème de sauvegarde.
En effet, après diverses vérifications, mes données "semblent " correctes et pourtant je reçois le traditionnel message qui m'indique qu'il est impossible de sauvegarder le document.

voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
chemin = "D:\prog_facturation\clotures\enregistrer\" & Year(Date) & "\" & repertoire & "\"
    nom_fichier = repertoire & "_" & ref_doc & ".pdf"
 
 With ActiveSheet
 .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & nom_fichier, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, from:=1, to:=1, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
 End With
1) il s'agit d'un fichier qui joue soit le rôle de devis soit celui de facture et pour cette raison, est réflêté dans la variable "répertoire".
2) Ref_doc est la variable qui intègre le nom du fichier à sauvegarder, ex: 2021_F001

merci d'avance pour votre aide.