SaveAs Doesn't work

royersebastien · #1 03-23-2016, 01:29 AM

Hello Everybody,

the following code does not work on the computer of a colleague

Code:

    Dim WordApp As Word.Application
    Set WordApp = CreateObject("Word.Application")
    Dim DocWord As Word.Document
    Set DocWord = WordApp.Documents.Open("C:\TEST_WORD\Base\FICHIER_BASE.doc")
    DocWord.SaveAs "C:\TEST_WORD\DEVIS.doc"
    DocWord.Close
    Set DocWord = Nothing
    WordApp.Quit
    Set WordApp = Nothing

SaveAs command opens me a "file save as" window instead of saving the file to the desired location
the same program works perfectly on 50 other computers with different office release
but on this computer nothing to do

thank you for helping me

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
SHIFT+END doesn't work	derohanes	Excel	2	09-28-2015 09:31 AM
HelpViewer doesn't work	dherr	Office	1	03-27-2015 07:44 AM
VBS saveas API behaviour is different from Menu saveas	Ahmed AbuZekry	Word VBA	2	03-23-2015 02:14 AM
alt+numeric doesn't work	Kungen	Word	3	12-02-2011 11:25 AM
CNTL+X doesn't work	ACA	Office	3	09-19-2011 10:42 AM