Discussion :

[amnorian]

Bonjour,

Je suis sur excel 2007. J'enregistre un fichier excel en PDF sur un chemin précis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub enregistrement()
Dim fichier As String
Application.DisplayAlerts = False
 
fichier = ActiveWorkbook.Name
nombre = Len(fichier)
fichier = ActiveWorkbook.Path & "\" & Left(fichier, nombre - 5) & ".pdf"
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fichier _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
End Sub

Tout se passe bien la première fois, mais lors de l'enregstrement suivant, il indique une erreur 1004. Je suppose qu'il s'agit de la recopie du fichier puisque j'utilise le même nom (si je supprime le fichier tout fonctionne).
Je ne vois pas comment valider la suppression du fichier (j'ai indiquer le displayalert mais il ne doit pas le prendre)

[kiki29]

Salut, inspire toi de Générer des PDFs sans doublons via l'incrémentation d'un N° de fichier en l'adaptant à ton contexte

[Menhir]

Il suffit, donc ton code, de mettre une suppression de ce fichier juste avant l'enregistrement du PDF.

[amnorian]

suppression de fichier via un "kill" ?
Pas d'autres moyens ?

(je n'ais pas envie de créer plusieurs fichiers du même type)

[amnorian]

Bon j'ai ajouté la suppression dans le code et cela marche tout le temps maintenant.

si cela peut aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub enregistrement()
Dim fichier As String
Application.DisplayAlerts = False
 
fichier = ActiveWorkbook.Name
nombre = Len(fichier)
fichier = ActiveWorkbook.Path & "\" & Left(fichier, nombre - 5) & "2.pdf"
Fsupprimer = Dir(fichier)
If Fsupprimer <> "" Then Kill fichier
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fichier _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
 
 
End Sub

merci pour l'info.

[Menhir]

suppression de fichier via un "kill" ?

Non, juste un simple DeleteFile sur l'objet FileSystem avec ton fichier comme paramètre.
Regarde la syntaxe de DeleteFile dans l'aide VBA d'Excel.