Script VBS : Erreur 800A0005 : Argument ou appel de procédure incorrect

Bonjour ,

J'ai un problème lors de l'exécution d'un script .vbs , J'ai le droit a l'erreur 800A0005 : Argument ou appel de procédure incorrect
Cette erreur concerne la dernière ligne du bout de code qui suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Set objFSO = CreateObject("Scripting.FileSystemObject")   objFSO.DeleteFile("HTML\*.*")   'on copie les fichiers modèles objFSO.CopyFile "Modeles\signatureCG.html" , "HTML\" , OverwriteExisting objFSO.CopyFile "Modeles\signatureCGecrit.htm" , "HTML\" , OverwriteExisting   Comptel = 1   Set objTextFile = objFSO.OpenTextFile("HTML\signatureCG.html", ForReading) Set objCommentFile = objFSO.OpenTextFile("HTML\signatureCGecrit.htm", ForWriting, True)

---

Je tiens a preciser qu'il n'y a pas d'erreur sur le nom des fichiers , j'ai essayé de declarer les variables avant , ca ne change rien.. Je ne vois pas d'ou peut venir cette erreur .

Merci :ccool:

Set objCommentFile = objFSO.OpenTextFile("HTML\signatureCGecrit.htm", ForWriting, True)

C'est cette ligne la

Le but de ce script est de remplacer du texte " Nom , prenom.. " d'un fichier htm ou html par des variable presentes dans mon script.

as-tu bien déclaré tes constantes ?

Code:

---

1 2 3

Const ForWriting = 2 Const ForReading = 1 Const ForAppending = 8

---

Salut ;) comme il a dit bbil il faut déclarer les constantes :ccool:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Const ForWriting = 2 Const ForReading = 1 Const ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("HTML\*.*") 'on copie les fichiers modèles objFSO.CopyFile "Modeles\signatureCG.html" , "HTML\" , OverwriteExisting objFSO.CopyFile "Modeles\signatureCGecrit.htm" , "HTML\" , OverwriteExisting   Comptel = 1   Set objTextFile = objFSO.OpenTextFile("HTML\signatureCG.html", ForReading) Set objCommentFile = objFSO.OpenTextFile("HTML\signatureCGecrit.htm", ForWriting, True)

---