VBA enregistrement en PDF - sans écraser

Bonjour,

J'ai trouvé ce code pour enregistrer en PDF sur mon bureau. Je rencontrer un bogue quand je réponds "oui" à la question "Faut-il l'écraser ?".

Savez-vous pourquoi ?

Merci de votre aide précieuse,

Camille

Sub Save_PDF_bureau()
    Dim xx As String
    Dim chemin As String
    Dim NomFichier As String

    chemin = "C:\Users\" & Environ("username") & "\Desktop"
    NomFichier = "test.pdf"

    '
    ' Tester l'éxistence du fichier
    xx = Dir(chemin & "\" & NomFichier)
    If xx <> "" Then
        '
        ' Si le fichier existe, demander à l'utilisateur s'il faut l'écraser
        If MsgBox("le fichier" & NomFichier & " existe déjà dans " & chemin & " Faut-il l'écraser ? ", vbYesNo + vbQuestion, "Création d'un fichier PDF - Document existant") = vbYes Then
            ' si l'utilisateur a répondu oui : Suppression du fichier existant
           Kill chemin & "\" & NomFichier
        Else
            ' Sinon sortir sans enregistrer le fichier
           Exit Sub
        End If
    End If
        ' Enrgistrement du fichier
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                    Filename:=chemin & "\" & NomFichier, _
                    Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, _
                    IgnorePrintAreas:=False, _
                    OpenAfterPublish:=True
End Sub

Bonjour

Vérifiez si le chemin est correct car le code fonctionne bien

Crdlt

Bonjour,

Question bête mais on ne sait jamais : Le pdf en question n'est pas ouvert ?

Le bog correspond-t-il à un message d'erreur en particulier ?

Bonjour Xmenpl,

Voici l'erreur : fenêtre "Permission refusée".

Le fichier excel est enregistré sur un sharepoint, c'est peut être une raison ?

Camille22 a écrit :

Bonjour Xmenpl,

Voici l'erreur : fenêtre "Permission refusée".

Le fichier excel est enregistré sur un sharepoint, c'est peut être une raison ?

C'est possible en effet si le répertoire partager n'autorise pas les suppressions. Quand tu vas toi-même avec l'explorateur

de fichier sur le pdf et que tu le supprimes çà fonctionne ?

En effet, le code fonctionne très bien quand le fichier est enregistré sur mon bureau. Cela vient donc du fait que le fichier est enregistré sur le SharePoint. Une idée de comment faire pour "autoriser la suppression " depuis SharePoint ?

Merci de ton aide en tout cas,

Camille

Bonjour,

Regardes cet article sur la modification de code vba pour la gestion des fichiers en SharePoint.

chemin sur serveur un peu différent.

https://excel-malin.com/faq/vba-faq/vba-et-sharepoint-2013/