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
