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
Partager