Discussion :

[david-45]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[david-45]

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

C'est cette ligne la

[david-45]

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.

[SfJ5Rpw8]

as-tu bien déclaré tes constantes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hackoofr]

Salut comme il a dit bbil il faut déclarer les constantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)