Probléme chemin d´enregistrement

Bonjour

Mon code fonctionne trés bien j´ai simplement un problem avec mon chemin d enregistrement qui enregistre dans mon dossier temp ...

Sub SaveADM()

Dim Chemin As String

'Macro qui me permet de copier/coller la feuille active dans un nouveau classeur
' Chemin pas bon - m envoie dans mes fichiers TEMP

     ActiveSheet.Copy

     ActiveWorkbook.SaveAs Filename:=Range("A1")

     Chemin = "I:\User_Groups_Only\25_HP_MW_High_Potential_Mac_Wuerth\Statistics\Customer Management International\France\Product group development\eiCan\eiCan - extended version\2014\NORTH\PAR ADM\Sauvegarde"

     ActiveWorkbook.Close

 End Sub

Quelqu´un peu m aider ?!

Merci

bonjour,

si tu veux sauver ta copie dans le répertoire indiqué par chemin, essaie ceci (non testé)

Sub SaveADM()

Dim Chemin As String

'Macro qui me permet de copier/coller la feuille active dans un nouveau classeur
' Chemin pas bon - m envoie dans mes fichiers TEMP

     ActiveSheet.Copy

     Chemin = "I:\User_Groups_Only\25_HP_MW_High_Potential_Mac_Wuerth\Statistics\Customer Management International\France\Product group development\eiCan\eiCan - extended version\2014\NORTH\PAR ADM\Sauvegarde"
      ActiveWorkbook.SaveAs Filename:=chemin & "\" &Range("A1")
     ActiveWorkbook.Close

 End Sub

Ca marche mille merci !

Bonne soiree