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,

[pyloupylou]

regarde là tu tombes peut être dans le cas de figure
http://support.microsoft.com/kb/210684/fr

[jijie]

Salut,

Essaye ça en adaptant!

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
Sub Macro2()
 
    Dim pdfjob
Dim NomExcel, NomPdf, DefaultPrinter
 
NomExcel = ThisWorkbook.Name
NomPdf = "Facture" & ".pdf"
Dim sNomFichierPDF As String
 
    sNomFichierPDF = ThisWorkbook.Path & "\" & NomPdf
    'Application.ScreenUpdating = False
 
    ThisWorkbook.Sheets("Liste_Factures").ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
End Sub

Je suis sur le 2007, et j'ai pas mal d'utilisation avec le pdf !

cordialement,

Et aussi si le fichier existe contrôle le par vrai ou faux
exemple dans le FAQ:

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
    MsgBox FichierExiste("C:\Documents and Settings\dossier\dataBase.mdb")
End Sub
 
 
Function FichierExiste(NomFichier As String) As Boolean
    FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function

remplace msgbox par une condition
et si =true :

Code :

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

1
2
3
Application.displayalerts = False
'** ton code ***
Application.displayalerts = true

essaye mais je pense que ta solution est là !

[Invité]

Bonjour Jijie,

je te remercie beaucoup, ta solution est bonne avec quelques modifications.

Encore merci à tous ceux qui ont participé.

cordialement,