bonjour,
ceci devrait donc fonctionner :
dim chemin as string
chemin = "xxxxxxx" 'copier coller le chemin ici
ThisWorkbook.SaveAs (chemin & "\" & Range("réf") & "-" & Format(Now(), "dd-mm-yyyy") & "-" & Range("E10") & ".xls")
MsgBox ("le fichier est enregistré")
et cela aussi :
Dim nom As String
ChDrive "xxxxxxxxxxx" 'copier coller le chemin ici
nom = Range("réf") & "-" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "-" & Range("E10") & ".xls"
ThisWorkbook.SaveAs (nom)
Le dossier se trouve sur un réseau partagé