re
Difficile de dire encore une fois sans avoir de fichier (problème d'orthographe dans les noms ? ....)
mais encore bcp trop de choses qui ne vont pas pour moi dans tes quelques lignes de codes
supposons ton fichier contenant la macro s'appelle
toto.xlsm
et se trouve sur le bureau "C:\Users\Soussou\Desktop"
tu essayes de concatener
chemin & "C:\Users\Soussou\Desktop\test"
hors
chemin = ThisWorkbook.Path
donc tu essaye d'ecrire dans un chemin :
C:\Users\Soussou\DesktopC:\Users\Soussou\Desktop\test & nomdufichier
donc c'est impossible....
le nouveau nom que tu essaye de faire pour le nouvel enregistrement :
fichier = ThisWorkbook.Name & "Miramas" & Format(Date, "yy-mm-dd")
donc le nom de ton fichier sera si je reprends mon exemple en cours
toto.xlsmmiramas15-07-13 ce qui est impossible aussi
je te propose le code suivant en espérant que cela soit ce que tu désires
Sub Macro1()
Dim fichier As String
fichier = "Miramas" & Format(Date, "yy-mm-dd")
Sheets(Array("Préparation du jour", "Prévision transport")).Copy
With ActiveWorkbook
.SaveAs "C:\Users\Soussou\Desktop\test\" & fichier
.Close
End With
End Sub
fred