Discussion :

[JACK7460]

Bonjour, et une erreur que je ne comprend pas car si j'y mets fin et que je relance se la marche ? Mon erreur est : '1004: Document est peut-être ouvert ou une errer s'est produite lors de l'enregistrement.
mon vba et :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub PDF_Click()
'
'
Dim msg As Long
 
msg = MsgBox("A tu Sauvegarder ta facture poure generer le numpero automatique?", vbYesNo, "jak t'informe")
If msg = vbNo Then
Exit Sub
Else
End If
 
 
 Dim chemin As String, fichier As String, par1 As String, par2 As String, par3 As String, engpar As String, feui As String
 
par1 = Range("F12").Value
par2 = Range("I2").Value
par3 = Range("E20").Value
 
engpar = par1 & "-" & par2 & "-" & par3
 
chemin = ThisWorkbook.Path
 
fichier = chemin & "\" & engpar & ".xls"
 
ActiveWorkbook.SaveAs fichier
 
    ActiveWorkbook.Save
    Sheets("Facture").Select
    Range("J6").Select
 
 
    ActiveWorkbook.Save
    ActiveWorkbook.Activate
 
Dim Path_name As String
Dim File_name As String
Dim Complete_File_name As String
 
Path_name = ThisWorkbook.Path
File_name = ActiveWorkbook.Name
Complete_File_name = Path_name & "\" & "pdf" & "\" & File_name
 
    ActiveWorkbook.Save
 
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       Complete_File_name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
 
 
 
'
End Sub

merci de me donner un petit coup de main.

[gnain]

Bonjour,
essayé comme cela

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub PDF_Click222()
    Dim msg As Long
 
    msg = MsgBox("A tu Sauvegarder ta facture poure generer le numpero automatique?", vbYesNo, "jak t'informe")
    If msg = vbNo Then
        Exit Sub
    End If
 
    Dim chemin As String, fichier As String, par1 As String, par2 As String, par3 As String, engpar As String, feui As String
 
    par1 = Range("F12").Value
    par2 = Range("I2").Value
    par3 = Range("E20").Value
 
    engpar = par1 & "-" & par2 & "-" & par3
 
    chemin = ThisWorkbook.Path
 
    fichier = chemin & "\" & engpar & ".xls"
 
    ActiveWorkbook.SaveAs fichier
 
    ActiveWorkbook.Save
    Sheets("Facture").Select
    Range("J6").Select
 
    ActiveWorkbook.Save
    ActiveWorkbook.Activate
 
    Dim Complete_File_name As String
 
    Complete_File_name = ThisWorkbook.Path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1) & ".pdf"
 
    ActiveWorkbook.Save
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         Complete_File_name, Quality:= _
          xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
          OpenAfterPublish:=True
 
End Sub

[JACK7460]

Bonjour,
désolé mes toujours la même erreur . merci de ton coup de main.

[piotr76]

Bonjour

Ce genre d'erreur arrive si le pdf est ouvert, ou en train de s'ouvrir
Elle est sur quelle ligne cette erreur?

@+

[gnain]

Bonjour,
avec ton code, j'ai moi aussi cette erreur,
mais avec mon code, je ne l'ai pas.

[JACK7460]

Bonjour, et tenter de recopier ton code et toujours la même l'erreur .

Code :

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

1
2
3
4
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         Complete_File_name, Quality:= _
          xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
          OpenAfterPublish:=True

la fleche et en face de : OpenAfterPublish:=True .
merci encore de m'aider .