Discussion :

[notar]

bonjour,
débutant, j'ai eu beau chercher, soit dans l'aide vbs, soit sur le net, je n'ai pas trouvé de fonction me signifiant si une application ( excel, word,...) existe sur le poste.
en effet, quand je fais:

AppExcel = CreateObject("Excel.Application")

soit je crée l'objet, soit j'ai une erreur.
en fait, je souhaite vérifier si une appli existe avant de lancer mon script vbs; et la, je sèche.

si vous pouviez m'orienter pour une solution.
merci d'avance.
Notar

[Flamby38]

En vbscript il existe un moyen de gérer les erreurs en ajoutant en début de script la manière de gérer les erreurs.

Par exemple tu peut lui mettre en première ligne "on error resume next" ce qui fera que ton script ne tient pas compte des erreurs, ou alors "on error goto GESTION_ERREUR" avec un pavé de gestion d'erreur qui commence par "GESTION_ERREUR : ".

[notar]

bonjour,
en cherchant, j'ai touvé et adapté ceci:

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
 
strComputer = "."
set fso =CreateObject ("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where FileName = 'excel'  and Extension='exe'")
 
For Each objFile in colFiles
        dim DriveRoot, DrivePath
  Set  fso = CreateObject("Scripting.FileSystemObject")
     DriveRoot = objFile.drive
     DrivePath = objFile.path
If (fso.FileExists(DriveRoot&DrivePath&"excel.exe" ))Then
Wscript.echo DriveRoot&DrivePath&"excel.exe"
End If
Next

c'est impeccable mais avec un ordi cadencé à 2.66GHz avec 500Mo de RAM et un DD de 40 Go, çà met environ 45'' pour obtenir le résultat.
Y-a-t-il une autre procédure qui pourrait accélérer notablement l'execution de la requête?
merci d'avance pour vos contributions.
Notar

[notar]

merci Flamby38, je vais de ce pas employer ta solution.

[notar]

en fait, ce sont deux scripts:
le premier formate un fichier xls

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
 
Dim xlapp, classeur, feuille, Selection
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = false
alert(xlapp)
xlapp.DisplayAlerts = FALSE
Set classeur = xlapp.Workbooks.open("C:\........\*.xls")
Set feuille = classeur.ActiveSheet
Set Selection = feuille.Columns("D:D")
With Selection
.ColumnWidth = 80
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Set Selection = feuille.Columns("C:C")
With Selection
.ColumnWidth = 30
.WrapText = True
End With
Set Selection = feuille.Columns("A:A")
With Selection
.ColumnWidth = 10
.WrapText = True
End With
classeur.Save
classeur.Close  'quitte en sauvant
xlapp.quit
Set classeur = Nothing
Set xlapp = Nothing

le second envois ce fichier formaté

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
 
With CreateObject("CDO.Message")
.From="toto@wanadoo.fr"
.To="tata@hotmail.com"
.Subject="rapport hebdo pour la semaine 1 de 2010"
.TextBody="Bonjour.Veuillez trouver, ci-joint, mes rapports pour la semaine 1 de 2010"
.AddAttachment("C:\..........\*.xls")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.wanadoo.fr"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With

donc si je mets

Code :

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

1
2
 
on error resume next

en tête du premier script alors il ne s'interprètera pas et passera directement au second?

merci.

[omen999]

bonjour,
remplace les deux premières lignes de ton script par ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim xlapp, classeur, feuille, Selection
On Error Resume Next
Set xlapp = CreateObject("Excel.Application")
If IsObject(xlapp) Then
  On Error GoTo 0
  MsgBox "Le serveur automation MS Excel® est actif" 
Else
  MsgBox "L'application MS Excel® n'est pas installée sur ce poste " & vbcrlf & "Bonne journée"
  WScript.Quit
End if

[notar]

merci omen999 pour ta contribution.
dans le cas présent je n'ai pas besoin d'indiquer que Excel est installé ou pas car je mets juste en forme un fichier excel si l'appli existe: c'est plus propre pour envoyer le fichier; par contre si l'appli n'est pas installée le fichier restera brut; à charge pour le lecteur de le mettre en forme ( largeur colonnes pour lire facilement )
mais je note, pour plus tard, la façon de faire pour savoir si l'appli existe.