L'avant dernière ligne donne une erreur et je n'arrive pas à trouver pourquoi ? (erreur : Object required objFile )

Bien à vous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile2 = objFSO.GetFile("WordVBS.vbs") 
FolderName=objFSO.GetParentFolderName(objFile2)&"\Word\" 
For Each objFile In objFSO.GetFolder(FolderName).Files 
Filename = objFSO.GetBaseName(objFile.Path)
strCurrentExt = objFSO.GetExtensionName(objFile.Path) 
next 
PrinttemplateFolder=objFSO.GetParentFolderName(objFile2)&"\Printtemplate\"
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc= objWord.Documents.Open(Foldername&"rtf.rtf")
Set objSelection= objWord.Selection
objSelection.Wholestory()
objSelection.copy()
Set objWord1 = CreateObject("Word.Application")
objWord1.Visible = False
Set objDoc1 = objWord1.Documents.Add(PrinttemplateFolder&"printtemplate.dot")
Set objSelection1= objWord1.Selection
objSelection1.Paste()
objDoc1.SaveAs(Foldername&Filename&".doc")
ObjWord1.Quit
ObjWord.Quit  
 
For Each objFile In objFSO.GetFolder(FolderName).Files 
strCurrentExt = objFSO.GetExtensionName(objFile.Path)   
next
If strCurrentExt = "rtf" Then 
objFile.Delete
End If