ouvrir excel depuis page asp

[Christophe]

Salut à tous,

Je vous soumets ce problème par que je n'y comprends plus grand chose.
J'ai un classeur qui à son ouverture lance un userform qui lui-même envoie un mail lors de sa validation. Tout cela fonctionne parfaitement lorsque j'ouvre mon classeur directement depuis excel.
Mon problème est que ce classeur sera ouvert depuis une page ASP via un hyperlien. Le classeur s'ouvre donc dans une page ie et lors de l'envoi du mail, rien ne se passe.

1ère question, est-il possible d'ouvrir excel depuis un hyperlien ie et non pas q'excel s'ouvre dans ie ?

2ème question, quelqu'un aurait-il une explication sur le fait que le mail ne parte pas quand le classeur est ouvert dans une page ie ?

Pour info j'utilise Excel 97 sous windows NT 4 et ie5

Par avance merci de vos éventuelles réponse.

Bye


Christophe

 

[Popeye]

bonjour

tu peux peut etre ouvrir excel avec un script VBS mais rien n'est moins sur
regarde sur internet pour les script VBS pour savoir comment créer un objet pour ouvrir une session excel puis ouvrir un fichier excel
attention les scripts VBS peuvent contenir des virus donc il se peut que les personnes refusent de l'executer

je vais regarder de mon coté si je trouve rien pour ca (si je me souviens bien ya un exemple offert par microsoft dans la version windows 98 se qui pilote completement excel avec un script VBS)

 

[Popeye]

TIens j'ai trouvé ca


' Script d'exemple pour l'environnement d'exécution de scripts Windows
'
' ------------------------------------------------------------------------
' Copyright (C) 1996 Microsoft Corporation
'
' Microsoft vous concède le droit d'utiliser, de modifier, de reproduire
' et de distribuer les exemple de fichiers d'application (et/ou toutes
' versions modifiées) comme vous l'entendez, à condition que vous
' reconnaissiez que Microsoft n'a aucune garantie, aucune obligation,
' et aucune responsabilité pour aucun des exemples de fichiers
' d'application.
' ------------------------------------------------------------------------
' Cet exemple affiche les propriétés de l'environnement d'exécution
' de scripts Windows dans Excel.

L_Welcome_MsgBox_Message_Text = "Cet exemple affiche les propriétés de l'environnement d'exécution de scripts Windows dans Excel."
L_Welcome_MsgBox_Title_Text = "Environnement d'exécution de scripts Windows"
Call Welcome()


' ********************************************************************************
' *
' * Exemple Excel
' *
Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")

objXL.Visible = TRUE

objXL.WorkBooks.Add

objXL.Columns(1).ColumnWidth = 20
objXL.Columns(2).ColumnWidth = 30
objXL.Columns(3).ColumnWidth = 40

objXL.Cells(1, 1).Value = "Nom de propriété"
objXL.Cells(1, 2).Value = "Valeur"
objXL.Cells(1, 3).Value = "Description"

objXL.Range("A1:C1").Select
objXL.Selection.Font.Bold = True
objXL.Selection.Interior.ColorIndex = 1
objXL.Selection.Interior.Pattern = 1 'xlSolid
objXL.Selection.Font.ColorIndex = 2

objXL.Columns("B:B").Select
objXL.Selection.HorizontalAlignment = &hFFFFEFDD ' xlLeft

Dim intIndex
intIndex = 2

Sub Show(strName, strValue, strDesc)
objXL.Cells(intIndex, 1).Value = strName
objXL.Cells(intIndex, 2).Value = strValue
objXL.Cells(intIndex, 3).Value = strDesc
intIndex = intIndex + 1
objXL.Cells(intIndex, 1).Select
End Sub

'
' Affiche les propriétés de WScript
'
Call Show("Name", WScript.Name, "Nom détaillé de l'application")
Call Show("Version", WScript.Version, "Version de l'application")
Call Show("FullName", WScript.FullName, "Contexte de l'application : nom complet")
Call Show("Path", WScript.Path, "Contexte de l'application : chemin d'accès seulement")
Call Show("Interactive", WScript.Interactive, "État du mode interactif")


'
' Affiche les arguments de la ligne de commande.
'
Dim colArgs
Set colArgs = WScript.Arguments
Call Show("Arguments.Count", colArgs.Count, "Nombre d'arguments de la ligne de commande")

For i = 0 to colArgs.Count - 1
objXL.Cells(intIndex, 1).Value = "Arguments(" & i & ")"
objXL.Cells(intIndex, 2).Value = colArgs(i)
intIndex = intIndex + 1
objXL.Cells(intIndex, 1).Select
Next



' ********************************************************************************
' *
' * Bienvenue
' *
Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub

 

[Popeye]

celui la aussi

recherche sur ton pc les fichier VBS (*.vbs)
tu trouveras des trucs sympa

' Script d'exemple pour l'environnement d'exécution de scripts Windows
'
' ------------------------------------------------------------------------
' Copyright (C) 1996 Microsoft Corporation
'
' Microsoft vous concède le droit d'utiliser, de modifier, de reproduire
' et de distribuer les exemple de fichiers d'application (et/ou toutes
' versions modifiées) comme vous l'entendez, à condition que vous
' reconnaissiez que Microsoft n'a aucune garantie, aucune obligation,
' et aucune responsabilité pour aucun des exemples de fichiers
' d'application.
' ------------------------------------------------------------------------
' Cet exemple montre comment accéder à Microsoft Excel avec l'environnement
' d'exécution de scripts Windows.

L_Welcome_MsgBox_Message_Text = "Ce script montre comment accéder à Microsoft Excel avec l'environnement d'exécution de scripts Windows."
L_Welcome_MsgBox_Title_Text = "Exemple pour l'environnement d'exécution de scripts Windows"
Call Welcome()

' ********************************************************************************
' *
' * Exemple Excel
' *

Dim objXL
Dim objXLchart
Dim intRotate

Set objXL = WScript.CreateObject("Excel.Application")
objXL.Workbooks.Add
objXL.Cells(1,1).Value = 5
objXL.Cells(1,2).Value = 10
objXL.Cells(1,3).Value = 15
objXL.Range("A1:C1").Select

Set objXLchart = objXL.Charts.Add()
objXL.Visible = True
objXLchart.Type = -4100

For intRotate = 5 To 180 Step 5
objXLchart.Rotation = intRotate
Next

For intRotate = 175 To 0 Step -5
objXLchart.Rotation = intRotate
Next

' ********************************************************************************
' *
' * Bienvenue
' *
Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub