Probleme macro enregistrement

bonjour le forum,

petit problème sur une macro

Sub Archiver()

Worksheets("Stats RHL").Unprotect ""
Worksheets("Récap Stats RHL").Unprotect ""

Dim extension As String
Dim chemin As String
Dim style As Integer

Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "\\xxx\xxx\xxx\xxx\Partage\12 - stats\STATS 2"

With ActiveWorkbook
    .ActiveSheet.DrawingObjects.Delete
    .SaveAs Filename:=chemin + ActiveSheet.Range("F2") & extension
    .Close
End With
Worksheets("Stats RHL").Protect ""
Worksheets("Récap Stats RHL").Protect ""
End Sub

je souhaiterais donc enregistrer la feuille dans le dossier stats 2 avec pour nom le cellule F2.

Mais ca me l'enregistre dans le dossier "12 - stats" sous le nom "STATS2"

Je ne dois pas être loin du résultat mais j'ai beau essayé je n'y arrive pas...

HELP...

Bonjour Dub_inc, le forum,

Essaye comme ceci :

"\\xxx\xxx\xxx\xxx\Partage\12 - stats\STATS 2\"

Bien cordialement,

AP

Déja essayé mais ca ne marche pas ...

voir le message erreur en PJ

???HELP???

Bonjour Dub_inc, le forum,

Comme tu l'as dit :

"\\xxx\xxx\xxx\xxx\Partage\12 - stats\STATS 2"

Ce code t'enregistre ton fichier sous le nom "STATS 2" dans le dossier "12 - stats".

Je te propose donc d'essayer ceci :

"\\xxx\xxx\xxx\xxx\Partage\12 - stats\STATS 2\NomClasseur.Range("F2")"

Je suis presque sur que ce que j'ai écrit ne fonctionne pas mais c'est dans ce principe que SaveAs fonctionne. Le dernier argument est le nom donnée à ton fichier et l'avant dernier est l'endroit où tu pointe ce fichier.

Si quelqu'un de plus compétent pourrait nous aider, ca serrait top !

Bien cordialement,