Problème d'enregistrement suite aux changement de nom d'un fichier

Bonjour,

J'ai un problème, j'essaye de créer un dossier et de faire à l'intérieur de ce dossier une sauvegarde Excel et PDF.

Le nom du fichier et des sauvegarde Excel et PDF est le numéro de devis, il est donc amené à changer. J'ai un problème sur la deuxième partie qui est d'envoyer la sauvegarde dans le dossier que je viens de créer avec le numéro de devis. Mon code ne reconnais pas le nom du dossier créer.

Voici le code :

Sub Test_Folder_Exist_With_Dir()

Dim Doss As String
Dim NomUtilisateur As String
Dim Sauvegarde As String
Dim Num As String

Num = Range("NumDevis").Value
NomUtilisateur = Environ("UserName")

Doss = "C:\Users\" & NomUtilisateur & "\OneDrive - xxxxxxxx\Documents\OFFRE 2021\" & Num
If Dir(Doss, vbDirectory) = "" Then
     MkDir Doss
     MsgBox "Le dossier " & Doss & " a été crée"
End If

'Updateby Extendoffice
    Dim sFolderPath As String
    sFolderPath = "C:\Users\" & NomUtilisateur & "\OneDrive - xxxxxxxxx\Documents\OFFRE 2021\" & Num
    If Right(sFolderPath, 1) <> "\" Then
        sFolderPath = sFolderPath & "\"
    End If
    If Dir(sFolderPath, vbDirectory) <> vbNullString Then
        MsgBox "le fichier existe", vbInformation, "Kutools for Excel"
    Else
        MsgBox "le fichier n'existe pas", vbInformation, "Kutools for Excel"
    End If

End Sub

quand je met ce code la deuxième partie du code me dit que le fichier n'existe pas alors qu'il vient d'être créer par contre quand au lieu de mettre :

sFolderPath = "C:\Users\" & NomUtilisateur & "\OneDrive - xxxxxxxxx\Documents\OFFRE 2021\" & Num

'je met :
sFolderPath = "C:\Users\" & NomUtilisateur & "\OneDrive - xxxxxxxxx\Documents\OFFRE 2021\PED 081221 - 06PM" 

'PED 081221 - 06PM (c'est mon numéro de devis)

il me dit que le fichier existe bien

je ne sais pas si vous allez pouvoir m'aider mais je vous remercie d'avance,

Goat

Bonjour,

Doss = "C:\Users\" & NomUtilisateur & "\OneDrive - xxxxxxxx\Documents\OFFRE 2021\" & Num
'Vous utilisez la fonction DIR dont la présence d'un "anti-slash" ( \ ) à la fin n'est pas obligatoire
If Dir(Doss, vbDirectory) = "" Then

'Vous utilisez la fonction MkDir qui elle doit se terminer par l'anti-slash  ( \ ) 
'Donc soit modifier Doss =  soit modifier votre MKDir comme suit
     MkDir Doss &"\"
     MsgBox "Le dossier " & Doss & " a été crée"
End If

Bonjour Xmenpl,

tout d'abord merci pour ta réponse.

Le problème c'est pas tant la création du dossier car j'y arrive mais plus incorporer les fichiers PDF et Excel une fois que le dossier est crée

J'ai réussi à résoudre le problème. je donnais un nom au fichier au lieu de lui donner une destination il fallait donc mettre :

Sauvegarde = "C:\Users\" & NomUtilisateur & "\OneDrive - xxxxxxxxxx\Documents\OFFRE 2021\" & Num & "\"

Oui ou puisque Doss réprésente une partie du chemin :

Sauvegarde =Doss & "\"