Discussion :

[Invité]

Bonjour,

J'ai le message suivant:"Erreur d’exécution '1004'. document non enregistré. Le document est peut-être ouvert ou une erreur s'est produite lors de l'enregistrement" en exécutant ce code:

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
19
20
Sub En_PDF()
 
Dim Chemin As String, MonFichier As String, Ch As String
Application.ScreenUpdating = False
 
Ch = ThisWorkbook.Path
Chemin = Ch & "\Contrôle"
MonFichier = Chemin & "\" & "Rapport CP" & " " & Sheets("bd").Range("C2") & ".pdf"
 
txt = Dir(MonFichier)
If txt = "" Then
   Sheets(Array("A", "B", "C")).Select
'la ligne ci-dessous est surlignée + message d'erreur
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonFichier, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
    End
 End If
MsgBox "Opération terminée!"
End Sub

Je voulais en fait, sortir de la procédure dans le cas où le fichier existe déjà dans le dossier de destination "Contrôle".

J'ai eu beau cherché pour trouver mon erreur sans y parvenir. Je fais appel à vos compétences pour m'aider. Merci beaucoup.

Cordialement,

[Invité]

à vrai dire je ne comprends plus rien, je viens de retester ce satané code et maintenant il a bien fonctionné, alors que je n'ai rien touché au code (aucune modification).

Là, j'ai des doutes sur sa fiabilité. Comment gérer cette situation?

je vous remercie.

Cordialement,

[pyloupylou]

hello,

t'aurais pas un problème avec ton complément pdf

tiré de l'aide 2010 ActiveWorkbook.ExportAsFixedFormat

Remarque
Une erreur survient si le complément PDF n’est pas installé.

[Invité]

bonjour,

J'ai Excel 2007 et j'ai installé ce complément "SaveAsPDFandXPS". J'ai eu des bugs mais c'était du à mes erreurs de la syntaxe, mais sinon je n'ai jamais eu ce genre de souci.
Je ne comprends toujours pas pourquoi. Comme je ne maitrise pas bien le VBA, je ne sais pas comment faire pour gérer cette erreur. j'ai fait des tests mais rien de concluant.

Merci beaucoup.

Cordialement,

[pyloupylou]

j'ai pas trouvé de solution, mais une de possibilité alternative...

pourquoi t'essaierais pas d'imprimer vers un document pdf.

sinon peut être un problème de délai....ton code irait pas trop vite

heu j'ai oublié,

déjà pose une gestion d'erreur du genre on error resume next et en faisant tourner et vérifie si ton document ne s'est pas tout de même enregistré....

bon j'y crois pas trop, c'est un peu empirique comme solution

[Invité]

J'ai consulté l'aide VBA concernant la gestion des erreurs. Et, j'ai déjà essayé avec "On Error Resume Next", le code ne plante plus mais il n'enregistre pas non plus le fichier au format PDF.
Ce qui m'intrigue, c'est pourquoi des fois ça fonctionne et des fois non. On dirait que c'est un bug intempestif. C'est du à quoi? pour moi c'est un mystère.

je te remercie pour ta participation, tu as quand même essayé de m'aider.

Cordialement,