Bonjour,

J'ai cree un VBS qui fait differentes actions sur des repertoires puis les ecrits dans un excel ( Excel 2007 ).

- je lis la valeur de la cellule - je verifie si le repertoire existe, je le supprime et j'eris le resultat dans la cellule d'à coté ....

Mon soucis se situe a la fermeture d'exel / enregistrement du classeur ...

je voudrais enregistrer et quitter EXCEL sans aucune action .... mais j'ai un popup qui me dit
"Un fichier nommé 'RESUME.XLW' existe deja a cet emplacement. Voulez-vous le remplacer ?" avec un OUI, NON,ANNULER


voici mon code

**** VBS ****

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
31
32
33
34
35
36
37
Option Explicit
 
Dim oXL, OfSC, sXL, UUID, MUUID, DUUID, oFSO
 
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set oXL = WScript.CreateObject("EXCEL.application")
 
 
oXL.Visible = false
sXL = "c:\boulot\uuid.xlsx"
MUUID = "c:\boulot\"
oXL.Workbooks.Open sXL
oXL.ActiveSheet.Range("A2").Activate
UUID = oXL.ActiveSheet.Range("A2").Value
 
while UUID <> ""
 
	DUUID = MUUID & UUID
 
	if oFSO.folderexists ( DUUID ) then
		oFSO.deletefolder DUUID
		oXL.ActiveCell.Offset(0,1).Activate
		oXL.ActiveCell.Value = " Répertoire supprimé "
		oXL.ActiveCell.Offset(0,-1).Activate
	else
		oXL.ActiveCell.Offset(0,1).Activate
		oXL.ActiveCell.Value = " Répertoire inexistant "
		oXL.ActiveCell.Offset(0,-1).Activate
	end if
 
	oXL.ActiveCell.Offset(1,0).Activate
	UUID = oXL.ActiveCell.Value
 
wend
 
oXL.save
oXL.Application.Quit
**** FIN VBS ***

merci par avance pour votre aide