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.
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.