Sub essai()
ChDir [URL="file://mon%20réseau/mon%20dossier"][COLOR=#0000ff]\\Mon réseau\mon dossier[/COLOR][/URL]
ActiveWorkbook.SaveAs Filename:= _
"[URL="file://s-65-704-ssic01/mission_controle/essai.xls"][COLOR=#810081]\\[/COLOR][COLOR=#0000ff]Mon réseau\mon dossier[/COLOR][COLOR=#810081]\essai.xls[/COLOR][/URL]", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub