Enregistrer sous dans le même dossier que le fichier d'origi

Bonjour le forum,

comment puis-je enregistrer sous un classeur excel dans le même dossier que le fichier d'origine, sans spécifier de chemin dans la macro ou dans une case du fichier ?

En effet ce fichier pouvant être utilisé par d'autres personnes avec des emplacements différents, ou qui peuvent changer, je souhaite que le fichier d'origine commande directement l'emplacement du fichier créé.

J'utilise ce code :

Dim ret As Integer
ret = MsgBox("Voulez vous créer le fichier de saisie/facturation restauration du mois suivant ? (La création du fichier peut prendre une minute)?", vbYesNo)
If ret = vbNo Then
    Exit Sub
End If

ActiveWorkbook.Save
'enregistre le mois en cours

Dim mydate As Date
mydate = Worksheets("Cycle de 8 semaines").Range("A1") + 31
mymonth = Format(mydate, "mmmm")
myfile = mymonth & " " & Year(mydate) & " Saisie et Facturation Restauration"
ThisWorkbook.SaveAs myfile

Bien à vous,

Vincent

Bonjour

Essaies

ThisWorkbook.SaveAs ThisWorkbook.path & "\" & myfile

ça marche ! c'est bien dans le dossier d'origine !

Merci