Enregistrer fichier avec un chemin sans l'avoir sur le nom

Bonjour le forum,

j'ai créé une nouvelle macro qui fonctionne très bien, la voici :

Private Sub Workbook_Open()
variable = InputBox$("Veuillez renseigner le mois de référence")
Dim extension As String
    Dim chemin As String
    Dim nomfichier As String

    extension = ".xlsm"
    chemin = "\\Hautacam\Suivi-OI-DAG-TBM\TBM\2015\Résultats\old"
    nomfichier = "Suivi coût TBM " & variable & extension

    With ActiveWorkbook

        SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    End With
Sheets("OFFICIEL").Select
Range("D3").Value = variable
Range("N4").Value = "Moyenne " & variable
Range("O4").Value = "Delta " & variable
End Sub

Mais j'aimerai que le nom du fichier enregistré ne comporte que la variable "nomfichier" alors qu'ici il y a aussi le "chemin" mais si je l'enlève de Filename, le fichier ne s'enregistre pas au bon endroit ...

J'espère que j'ai été claire,

Merci d'avance

Bonjour,

essaie ceci

Private Sub Workbook_Open()
variable = InputBox$("Veuillez renseigner le mois de référence")
Dim extension As String
    Dim chemin As String
    Dim nomfichier As String

    extension = ".xlsm"
    chemin = "\\Hautacam\Suivi-OI-DAG-TBM\TBM\2015\Résultats\old\"
    nomfichier = "Suivi coût TBM " & variable & extension

    With ActiveWorkbook

        SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    End With
Sheets("OFFICIEL").Select
Range("D3").Value = variable
Range("N4").Value = "Moyenne " & variable
Range("O4").Value = "Delta " & variable
End Sub

Euh ... Il me semble que tu n'as rien changé , si ?? Peut-être que je me trompe mais je l'ai regardé plusieurs fois sans voir de différences...

j'ai ajouté un \

dans l'instruction

chemin = "\\Hautacam\Suivi-OI-DAG-TBM\TBM\2015\Résultats\old\"

Autant pour moi j'avais pas vu. Je te remercie beaucoup, c'est génial ça marche parfaitement comme je veux.

Merciiii