Discussion :

[val28]

Bonjour,

Voici mon problème.
Grâce à un VBscript j'exécute un code SAS qui exporte des données dans un fichier Excel. Ensuite VBScript ouvre ce fichier xls (pour permettre un traitement VBA à l'ouverture du fichier) l'enregistre et ferme le fichier. Cependant une copie de mon fichier Excel est placée dans "Mes documents" avec une extension .XLW . Cette copie m'empêche de fermer automatiquement mon fichier excel , car il me dit que l'emplacement est déjà occupé par le fichier .XLW et demande si je veux le remplacer.

J'aimerais que la copie en XLW ne soit pas réalisée, mais je ne sais pas comment le faire ou je ne vois pas où le code le fait.

Voici mon code :

Code :

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

1
2
3
4
5
Set objExcel = CreateObject("Excel.Application")
	objExcel.Workbooks.Open("chemin\fichier.xls")
	objExcel.visible = true
	objExcel.workbooks.save("chemin\fichier.xls")
	objExcel.workbooks.close("chemin\fichier.xls")

Merci de votre aide !!!!!

[ced600]

Ensuite VBScript ouvre ce fichier xls (pour permettre un traitement VBA à l'ouverture du fichier) l'enregistre et ferme le fichier

C'est une macro qui s'exécute ?
C'est peut être elle qui fait la copie de fichier.

Peux tu montrer le code de la macro ?

[val28]

Voici le code entier, le debut à été créer par SAS guide en ordonnançant un projet il y a juste la partie que j'ai indiqué plus haut que j'ai rajouté et qui me crée le fichier XLW

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
'chemin="L:\Campagnes\11n11\preparation\1 - Inscriptions a l operation\Diffusion\validation HP au 2009_03_05.xls"
 
'*****************************************************************************************************************
'__________________________________________   Exécute le code SAS   ______________________________________________
 
'******************************************************************************************************************
Dim app
Call dowork
 
'shut down the app
If not (app Is Nothing) Then
    app.Quit
    Set app = Nothing
End If
 
sub dowork()
    On Error Resume Next
    '----
    ' Start up Enterprise Guide using the project name
    '----
    Dim prjName
    Dim prjObject
 
    prjName = "L:\Univers\VBO\Projet.egp"    'Project Name
 
    Set app = CreateObject("SASEGObjectModel.Application.4")
    If Checkerror("CreateObject") = True Then
        Exit Sub
    End If
 
    '-----
    ' open the project
    '-----
    Set prjObject = app.Open(prjName,"")
    If Checkerror("app.Open") = True Then
        Exit Sub
    End If
 
 
    '-----
    ' run the project
    '-----
    prjObject.run
    If Checkerror("Project.run") = True Then
        Exit Sub
    End If
 
 
    '-----
    ' Save the new project
    '-----
    'prjObject.Save
    'If Checkerror("Project.Save") = True Then
    '    Exit Sub
    'End If
 
    '-----
    ' Close the project
    '-----
    prjObject.Close
    If Checkerror("Project.Close") = True Then
        Exit Sub
    End If
	'*******************************************************************************************************************************
	'______________________________   ouvre, enregistre puis ferme le fichier Excel   _______________________________________________
 
	'*******************************************************************************************************************************
	Set objExcel = CreateObject("Excel.Application")
	objExcel.Workbooks.Open("chamin\fichier.xls")
	objExcel.visible = true
	'objExcel.Save = true
	objExcel.workbooks.save("chemin\fichier.xls")
	'objExcel.workbooks.close("chemin\fichier.xls")
	'objExcel.Application.Quit
 
 
End Sub
 
Function Checkerror(fnName)
    Checkerror = False
 
    Dim strmsg
    Dim errNum
 
    If Err.Number <> 0 Then
        strmsg = "Error #" & Hex(Err.Number) & vbCrLf & "In Function " & fnName & vbCrLf & Err.Description
        'MsgBox strmsg  'Uncomment this line if you want to be notified via MessageBox of Errors in the script.
        Checkerror = True
    End If
 
End Function

[ced600]

C'est quoi le :

traitement VBA à l'ouverture du fichier

Une macro ?
Si oui peux tu montrer le code ?