Bonjour
J'ai lu cette discussion.
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
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.

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