Enregistrer sous macro users différents

Bonjour à tous,

J'ai une macro qui enregistre mon dossier dans mes documents.

Seulement, le dossier excel avec la macro va être utilisé par plusieurs ordinateurs diférents...

Comment puis - je indiquer à ma macro un chemin "adaptable" à n'importe quel user ?

Merci d'avance

extension = ".xls"
chemin = "C:\Users\brenda\Documents\"
MsgBox ThisWorkbook.Path
nomfichier = ActiveSheet.Range("D10") & "_BEWEL_Leverbon" & extension
With ActiveWorkbook
    .SaveAs Filename:=chemin & nomfichier
    '.Sheets(1).PrintOut Copies:=3
    .Close
End With

Bonjour,

Une piste pour résoudre ton problème!

extension = ".xls"
chemin = Environ("USERPROFILE") & "\Documents\"
MsgBox ThisWorkbook.Path
nomfichier = ActiveSheet.Range("D10") & "_BEWEL_Leverbon" & extension
With ActiveWorkbook
    .SaveAs Filename:=chemin & nomfichier
    '.Sheets(1).PrintOut Copies:=3
   .Close
End With

Piste parfaite ! ça fonctionne

Un tout grand merci !