merci de ton aide , du coup je suis arrivé a cette conclusion :
mais cela ne modifie en rien le fichier texte en question
merci de votre aide
Option Explicit
Const Fichier = "C:\Users\user\Desktop\imprimante.txt"
Const LigneCherche = "server"
Dim fso
Dim oRegEx
Dim monFichier
Dim sStream
Dim sNewStream
Set fso = CreateObject("Scripting.FileSystemObject" )
Set oRegEx = New RegExp
oRegEx.Global = True
oRegEx.Pattern = "\n" & LigneCherche & ".*(\r|$)"
Set monFichier = fso.OpenTextFile(Fichier,1)
sStream = monFichier.ReadAll
monFichier.Close
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject(""WScript.Network"" ).net.AddWindowsPrinterConnection ""\serveur""" & vbCr)
Set monFichier = fso.OpenTextFile(Fichier,2)
monFichier.Write sNewStream
monFichier.Close
Message édité par batmatjojo le 03-10-2013 à 09:44:17