Mettre une sauvegarde dans une distination dans le pc d'un utilisateur

Bonjour,

J'essaye de mettre une sauvegarde PDF/excel qui prends en compte le nom du PC par exemple BenoitChapo.

J'ai trouver une méthode pour y arriver qui est celle-ci :

Private Sub Sauvegarde_PDF_Click()

Dim NomUtilisateur As String

NomUtilisateur = Environ("UserName")

Sheets("Matrice").Range("B1") = NomUtilisateur

Sauvegardeindicateurs = "C:\Users\" & Range("Test").Value & "\OneDrive - ACTIVUS GROUP\Bureau\" & Range("NumDevis").Value
MsgBox (NomUtilisateur)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sauvegardeindicateurs & ".pdf", _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Mais je ne comprends pas pourquoi ces méthodes ne marche pas :

Private Sub Sauvegarde_PDF_Click()
Dim NomUtilisateur As String

NomUtilisateur = Environ("UserName")

Sauvegardeindicateurs = "C:\Users\" & NomUtilisateur & "\OneDrive - ACTIVUS GROUP\Bureau\" & Range("NumDevis").Value
MsgBox (NomUtilisateur)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sauvegardeindicateurs & ".pdf", _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

J'aimerais ne pas à passer par mettre le nom de l'utilisateur dans la feuille Matrice à la ligne B1, je veux que le nom soit directement prit et inséré

Je vous remercie par avance,

Goat

Finalement je ne sais pas pourquoi mais la deuxième ligne marche au final donc j'ai du faire une fausse manipe.

Sujet clos