Message d'erreur 1004

Bonjour à tous,

Je viens de réaliser un code qui fonctionne sur un ordinateur de mon réseau et lorque je souhaite le lancer sur un autre ordinateur équipé du même environnement il me met un message d'erreur '1004' la méthode 'save as' de l'objet' Workbook' a échoué. Ci dessous copie du code:


Workbooks("OFFRE DE PRIX.xls").Activate

Sheets("offre").Select

rac = Range("offre!r2").Text
rep = Range("offre!r3").Text


fichier = rac & "\" & rep & "\" & deviseur & nom & ".xls"

Workbooks("tampon3.xls").Activate

ActiveWorkbook.SaveAs Filename:=fichier, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

ActiveWorkbook.Close SaveChanges:=True

Merci par avance si vous avez des réponses à me donner.

Bonne journée.