Problème macro petit bug

Bonjour, je rencontre deux problèmes que je n'arrive pas à résoudre sur une macro.

j'ai une commande qui génère un dossier en fonction de l'année ou la facture est créée et il crée en même temps une facture PDF.

le problème se situe au niveau du dossier , la facture ne s'enregistre pas dans le dossier (ici 2022), de plus quand je veux recréer une deuxième facture deuxième bug car il me dit que le dossier 2022 existe déjà. Pouvez vous m'aider.

Merci je joint le code si il le faut je mettrai le fichier.

Sub Sauvegarde()

Dim FactureNom As String, Repertoire As String, fs As Object

With Sheets("Facture")

FactureNom = ("Facture " & Format(.Range("B13"), "0000") & " " & .Range("C7") & " " & .Range("c1"))

Repertoire = "D:\Sauvegarde Factures\" & Year(Date) & "\"""

Repertoire = ActiveWorkbook.Path & "\"

Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FolderExists("D:\Sauvegarde Factures\" & Year(Date) & "\""") Then

Else: fs.CreateFolder "D:\Sauvegarde Factures\" & Year(Date) & "\"

End If
Set fs = Nothing

.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Repertoire & FactureNom & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Edit modo : code à mettre entre balises avec le bouton </>

Bonjour,

Enlève la ligne :

Repertoire = ActiveWorkbook.Path & "\"

Daniel

Bonjour merci mais toujours problème

bonsoir,

une proposition de correction

Sub Sauvegarde()

    Dim FactureNom As String, Repertoire As String, fs As Object

    With Sheets("Facture")

        FactureNom = ("Facture " & Format(.Range("B13"), "0000") & " " & .Range("C7") & " " & .Range("c1"))

        Repertoire = "D:\Sauvegarde Factures\" & Year(Date) 

        Set fs = CreateObject("Scripting.FileSystemObject")

        If fs.FolderExists(Repertoire) Then

            Else: fs.CreateFolder Repertoire

        End If
        Set fs = Nothing

        .ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Repertoire & "\" & FactureNom & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

Bonjour le fil,

@Zepe, merci de respecter la charte du forum et de mettre le code donné entre balises SVP

Bonjour,

Merci à tous pour l'aide H2SO4 et BrunoIC, problème résolu.

Je vais essayer de comprendre maintenant où j'ai fait des erreurs.

Pour la prochaine fois je n’oublierai pas les balises.