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
54
55
56
57
58
59
| 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 |
