Bonjour,
j'avoue que je sèche sur ce code. Je veux exporter un fichier excel en PDF qui aurait comme nom Contrôle suivit de la date. Sur mon ordinateur personnel ce code fonctionne mais, sur mon lieu de travail j'ai un code erreur 1004 " Ce document non enregistré. Le document est peut-être ouvert ou une erreur s'est produite lors de l'enregistrement."
Si vous avez une idée je vous remercie d'avance.

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
Sub Enreg_Pdf()
    Dim LaDate$, Nom$, Rep$  'Déclaration des variables
    Dim Cancel As Boolean
    LaDate = Format(Now, "yyyy_mm_dd") 'formatage de la date et heure
    Nom = "Conso_"  'Nom de l'onglet à entregistrer
    Rep = "\\SLG0VW002\ser_kr_lingerie\Commun\PRODUCTION\CONTROLES\"   ' Chemin du répertoire à adapter depuis votre PC
        If MsgBox("Voulez-vous sauvegarder ?", vbQuestion + vbYesNo) = vbYes Then
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nom & "_" & LaDate & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False  'enregistrement du fichier en PDF
            ActiveWorkbook.Saved = True
            MsgBox ("Enregistrement effectué")
            Application.Quit
        ElseIf vbNo Then
            Application.Quit
        End If
End Sub