Impression de fichier en pdf avec macro VBA
Bonjour
J'ai utilisé la macro de Modus 57: je le remercie
Elle fonctionne très bien en interne sur PC, mais pas en réseau où il ne se passe rien: il n'y a pas d'alerte et pas d'impression non plus.
Quelqu'un peut-il m'aider
Merci.
JPS
Voici les 2 versions de macro:
Code:
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
60
61
62
63
| Dim Chemin As String, Fich As String, Rep As String, CheminComplet As String
Chemin PC qui fonctionne
Chemin = "C:\Users\jpschoch\Desktop\ARCHIVES PDF"
Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
CheminComplet = Chemin & "\" & Fich & ".pdf"
Rep = Dir(Chemin & "\" & Fich & ".pdf")
If Rep = "" Then
réponse = MsgBox("Le fichier n'existe pas, création du fichier PDFCreator", vbYesNo)
If réponse = vbYes Then
Impression:
ChDir Chemin
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rep, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False 'n'affiche pas le fichier PDF
Else
MsgBox "Sortie de la procédure"
Exit Sub
End If
Else
Réponse1 = MsgBox("le fichier existe voulez-vous le remplacer ?", vbYesNo)
If Réponse1 = vbYes Then
MsgBox "Remplacement du fichier existant"
GoTo Impression
Else
MsgBox "Sortie de la procédure"
End If
End If
End Sub
Chemin réseau qui ne fonctionne pas.
Dim Chemin As String, Fich As String, Rep As String, CheminComplet As String
Chemin = "R:\Ressources\_Partage\DouleurBelfort\DouleurCHBM\THERAPIES INTRATHECALES\CROP POMPES MEDTRONIC\ARCHIVES PDF"
Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
CheminComplet = Chemin & "\" & Fich & ".pdf"
Rep = Dir(Chemin & "\" & Fich & ".pdf")
If Rep = "" Then
réponse = MsgBox("Le fichier n'existe pas, création du fichier PDFCreator", vbYesNo)
If réponse = vbYes Then
Impression:
ChDir Chemin
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rep, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False 'n'affiche pas le fichier PDF
Else
MsgBox "Sortie de la procédure"
Exit Sub
End If
Else
Réponse1 = MsgBox("le fichier existe voulez-vous le remplacer ?", vbYesNo)
If Réponse1 = vbYes Then
MsgBox "Remplacement du fichier existant"
GoTo Impression
Else
MsgBox "Sortie de la procédure"
End If
End If
End Sub |
