Discussion :

[prosper02]

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.

[Invité]

Bonjour,

Avec OpenAfterPublish:=True, votre fichier pdf est ouvert après sa création. Si vous essayez d'en créer un autre avec le même nom, vous allez avoir ce message.

• Y aurait-il un autre événement qui répéterait la sauvegarde sans vous en rendre compte ?
• Continuez-vous à avoir le problème en mettant False ?

[prosper02]

Problème résolu, merci à vous.