VBA Comment enregistrer sur différent pc

Bonjour,

Je ne trouve pas de piste pour résoudre mon problème d'enregistrement, si vous avez une petite idée ce serait le bienvenu.

Le classeur se promène d'un pc à un autre, voir même un 3ème, ce n'est pas en reseau mais bien sur trois lieus différents.

Une feuille de ce classeur est enregistrée dans un dossier bien précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :

   Dim NomFichier As String
    Sheets(Array("Facture dentiste")).Copy
    Dim Nom As String
    Dim Chemin As String
    Dim numero As String * 8
    With Sheets("Facture dentiste")
        Nom = .Range("R8") & " " & Day(.Range("E2")) & _
              "." & Format(Month(.Range("E2")), "00") _
              & "." & Year(.Range("E2")) & " Facture. N° " & .Range("B12") & " .xls"
    End With
    ChDrive "C"
    ChDir "C:\Documents and Settings\Maison\Bureau\facturation cabinet\Factures enregistrées dentiste"
    ActiveWorkbook.SaveAs Filename:=(Nom)

Mon problème est de l'enregistrer quand je suis sur un autre pc dont le chemin est :

  ChDrive "C"
    ChDir "C:\Documents and Settings\Standart\Bureau\Facturation cabinet\Factures enregistrées dentiste"

Je précise que j'ai créer un dossier sur le bureau de chaque pc avec exactement le même nom à savoir : Facturation cabinet
et à l'interieur j'ai exactement la même chose donc un dossier Factures enregistrées dentiste

C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent embrouiller mon code forcément quand je passe d'une machine à l'autre.

Est-ce qu'il y a un moyen de contourner ce problème ???

Très bonne journée à tous.