Problème de sauvegarde d'un fichier sur deux machines différentes

Bonjour,

J'ai un fichier Excel que je partage sur OneDrive. Dans ce fichier, il y a une "macro de sauvegarde automatique".

Le problème vient du fait que sur mon PC fixe (Nom utilisateur: J-Charles) et mon PC portable (nom d'utilisateur: JC), le nom de l'utilisateur n'étant pas le même donc lorsque je ferme ce fichier sur le portable, j'ai un message d'erreur:

Y a t'il une solution simple, c'est à dire sans changer l'un des deux identifiants???

Merci à vous et bonne fin de journée.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'Déclaration des variables
    Dim NomDossier As String
    Dim NomFichier As String
    Dim NomDossier_E As String

    'Affectation des variables
    NomDossier = "C:\Users\J-Charles\Desktop\AMCB-2023.xlsm"
    NomDossier_E = "C:\Users\J-Charles\Desktop\AMCB\Sauvegarde\"
    'Désactiver les messages d'alertes
    Application.DisplayAlerts = False
    'On créé le nom du fichier de sauvegarde (Date + Nom)
    NomFichier = Day(Date) & "-" & Month(Date) & "-" & "AMCB-2023.xlsm"
    'On sauvegarde le fichier de backup
    ActiveWorkbook.SaveCopyAs NomDossier_E & NomFichier
    'On affiche un message de confirmation
    MsgBox "Votre fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
            "dans le dossier suivant : " & NomDossier_E, vbOKOnly + vbInformation, "CONFIRMATION"
    'On quitte Excel
    'Application.Quit
End Sub

bonjour Bayard

Remplacer

'Affectation des variables
NomDossier = "C:\Users\J-Charles\Desktop\AMCB-2023.xlsm"
NomDossier_E = "C:\Users\J-Charles\Desktop\AMCB\Sauvegarde\"

Par

'Affectation des variables
NomDossier = Environ("Userprofile") & "\Desktop\AMCB-2023.xlsm"
NomDossier_E = Environ("Userprofile") & "\Desktop\AMCB\Sauvegarde\"

Je te remercie Scraper, ça fonctionne impeccablement bien!!

Bonne soirée