Discussion :

[jpschoch]

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 :

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
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

[kiki29]

Salut, n'étant pas devin, il semble être question de PDFCreator alors que ton code fait référence au format PDF inclus en natif dans Office depuis la version 2002 SP2 ?
Si PDFCreator 1.7.3 voir ici pour la version serveur