Bonjour à tous.

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
Const ForReading = 1, ForWriting = 2
 
Dim fso, f, MyFile, oShell
 
FileName = "Processeur 03-2011.xml"
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FileName, ForWriting, True)
 
f.WriteLine "<?xml version=""1.0"" encoding=""utf-8"" standalone=""yes""?>"
f.writeline "<CSVImport>"
f.writeline "  <Version>8.0.3.2</Version>"
f.writeline "  <Date>"
f.writeline "    <Start>2011-04-01-07-00-00</Start>"
f.writeline "    <End>2011-05-01-07-00-00</End>"
f.writeline "  </Date>"
Je voudrais avec mon code VBS implémenter les mois de façon automatique c'est-à-dire passé de 2011-04-01 à 2011-05-01 en faite changer les mois du Start et du End tout seul.

Je n'ai pas de piste actuellement et je ne vois pas comment m'y prendre.

Merci d'avance pour vos aides.